[Resolvido]VBA para executar consulta ???

VBA para executar consulta ???

Sei que para executar macro é este comando DoCmd.RunMacro "01"

agora para executar consulta seria qual ?

quem pode me ajudar nessa questão ?



desde ja agradeço~~.

DoCmd.OpenQuery ("suaConsulta")

Basta o amigo fazer uma Macro para correr a consulta, e depois coverter para VBA que mostra a instrução completa;

DoCmd.OpenQuery "SuaConsulta", acViewNormal, acEdit

Desculpas minha falta de detalhes agora que pode perceber que, na verdade quero que execute á determinada consulta no
campo lista0 seria uma caixa de listagem..

nome da caixa é lista0
nome da consulta busca_01

digamos de agordo com o usuario vai executar uma consulta diferente..

quem pode me ajudar..

código abaixa pode ajudar em uma solução.



Private Sub Form_Open(Cancel As Integer)
If getUsuarioAtual = "OPERADOR01" Then ' Se for o usuário 1 habilitar consulta 1

'Aqui executar consulta 01 que vai ser feita dentro da lista0, uma caixa de listagem

End If

If getUsuarioAtual = "OPERADOR02" Then ' Se for o usuário 2 habilitar conulta 2


'Aqui executar consulta 02 que vai ser feita dentro da lista0, uma caixa de listagem


End If


quem poder me ajudar desde ja agradeço!

Então já não existe duvida alguma, certo ?

Private Sub Form_Open(Cancel As Integer)

If getUsuarioAtual = "OPERADOR01" Then ' Se for o usuário 1 habilitar consulta 1
DoCmd.OpenQuery "SuaConsulta1", acViewNormal, acEdit
ElseIf getUsuarioAtual = "OPERADOR02" Then ' Se for o usuário 2 habilitar conulta 2
DoCmd.OpenQuery "SuaConsulta2", acViewNormal, acEdit
End If

A função funciona perfeitamente porem não efetua o filtro dentro da caixa de listagem,, quero fazer da seguinte forma


tenho 2 bancos: BD_CENTRAL,agenda.
.
Criei um botão pra exporta e excluir o suposto dado de agendamento para tabela agenda.


no form bd_central existe um botão para cada usuario botão de agendamento que deve puxar esse agendamento e expor para
o form bd_central, o form de agendamento e feito com caixa de listagem, que pode executar uma consulta

com seguinte vba de ligação com form bd_central:

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "bd_central"
stLinkCriteria = "[Código]=" & Me![Lista0]
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, ("agenda"), acSavePrompt
End Sub


porem quando clico no agendamento o mesmo não e exportado paro o form bd_central ?? quem pode ajudar nessa questão

é porque é dois bancos diferentes que não é aceito??

...dois bancos diferentes...

Você quer dizer duas tabelas não? ou esses dois forms, cada um está em bancos distintos mesmo?

isso duas tabelas...

Por alto, deduzo que estás querendo que essa listbox que está em outro objeto filtre só as mensagens referente ao operador logado. Se for isso, acho que não conseguirá dessa forma, Para dar certo precisará novamente referenciar o nome do operador. Poderá fazer isso registrando na tabela o nome desse operador e e quando chamar o objeto, novamente referenciar o nome.

Se não conseguir, e se desejar, poderá disponibilizar o projeto ou somente parte dele, para darmos uma olhada e propor uma solução, esteja a vontade.

[Resolvido] Muito obrigado como repito sempre esse forum é o melhor.