Consulta seleção em VBA

Question

Ola colegas,  até agora sempre trabalhei com formularios viculados às tabelas, mas estou mudando tudo, e preciso fazer a consulta seleção em VBA (recordset, querydefs, nao sei..) . preciso do ponto inicial ,  tenho uma tabela  (tab_clientes) e quero uma consulta que retorne as informocoes do registro, determinado pelo campo "codcli".  desde agradeço a cooperação!.

Answer 1

Passe o comando SELECT via código VBA para o controle.

Exemplo:

Private Sub cboChaveCoord_BeforeUpdate(Cancel As Integer)
Dim strSQL As String

    strSQL = "SELECT * FROM CON_PROCESSOS WHERE CHAVE_COORD='" & Me.cboChaveCoord & "'"
    Me.FORM_CONSULTAR_PROCESSOS_SUB.Form.RecordSource = strSQL
    Me.FORM_CONSULTAR_PROCESSOS_SUB.Requery
    
End Sub

Answer 2

Dim query as String
dim db as database
dim rt as Dao.Recordset

query="Select * From Table where codcli= '" & registo & "'"

db=currentDB

Set rt = db.OpenRecordset(query, dbOpenDynaset)


with rt

if .EOF then

msgbox ("nao existe registo")

else

Me.Bookmark = rt.Bookmark

end if

---

DeepF1