Usuário com melhor resposta
Consulta seleção em VBA

Pergunta
-
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!.
Respostas
-
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
- Sugerido como Resposta Hezequias VasconcelosModerator quarta-feira, 19 de setembro de 2012 11:35
- Marcado como Resposta Hezequias VasconcelosModerator domingo, 28 de outubro de 2012 01:31
-
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- Sugerido como Resposta Hezequias VasconcelosModerator quarta-feira, 19 de setembro de 2012 11:35
- Marcado como Resposta Hezequias VasconcelosModerator domingo, 28 de outubro de 2012 01:31
Todas as Respostas
-
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
- Sugerido como Resposta Hezequias VasconcelosModerator quarta-feira, 19 de setembro de 2012 11:35
- Marcado como Resposta Hezequias VasconcelosModerator domingo, 28 de outubro de 2012 01:31
-
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- Sugerido como Resposta Hezequias VasconcelosModerator quarta-feira, 19 de setembro de 2012 11:35
- Marcado como Resposta Hezequias VasconcelosModerator domingo, 28 de outubro de 2012 01:31