O SQL pelo que vejo é muito bom para consultas, so que preciso da ajuda de vc's pois ainda não conheço absolutamente nada.

Duvida.: tenho na minha tabela Baixas os campos Codigo e OS, preciso carregar todas as OS cadastradas referente a um determinado código. Como faço essa intrução?Ja tentei um monte nada deu certo.

Set BdLc = OpenDatabase("C:EstoqueMateriais.mdb")
Set TbOrs = BdLc.OpenRecordset("SELECT * FROM Baixas WHERE Like Os ?", dbOpenSnapshot)

A instrução é a seguinte:

 

SELECT [campos] FROM [tabela] WHERE [Campo] = [critério]

Ex.:

SELECT * FROM Baixas WHERE OS = 1             'caso o campo seja numérico

                                                   ou

"SELECT * FROM BAIXAS WHERE CODIGO = '" & TEXTBOX1.TEXT & "'"

Onde o código esta num textbox.

E levando em consideração que o código é numérico.

Caso o código seja alfanumérico use:

 

Da mensagem de erro na No current record na linha salientada em vermelho.

 

Private Sub MontaOS()
Dim BdLc As DAO.Database
Dim TbOrs As DAO.Recordset

Dim Ln5
Ln5 = 4
Set BdLc = OpenDatabase("C:EstoqueMateriais.mdb")
Set TbOrs = BdLc.OpenRecordset("SELECT * FROM Baixas WHERE Os='1'", dbOpenSnapshot)
TbOrs.MoveMin
Do While Not TbOrs.EOF
Ln5 = Ln5 + 1
Plan421.Range("C" & Ln5 + 1) = TbOrs("Os")
Ln5 = Ln5 + 1
TbOrs.MoveNext
Loop
End Sub

Eu não tenho essa propriedade.