[Resolvido]pesquisa via VBA em 2 tabelas e mostra-las no mesmo formulário

Bom dia,

Tenho um problema aqui em uma base minha.

No formulário em questão, preciso selecionar campos de 2 tabelas diferentes e deixá-los disponiveis em caixas de texto.

Estou usando a seguinte estrutura em VBA:

queryFOAS2 = "SELECT * FROM TABELA_FOAS WHERE "

Consulta = "(N_SAVANA = '" & NUMERO_SAVANA & "') "

queryFOAS2 = queryFOAS2 + Consulta + "ORDER BY [N_SAVANA]"
Me.RecordSource = queryFOAS2


Precisava agora fazer uma pesquisa em outra tabela, através de código VBA e exibir no mesmo formulário em caixas de texto.

Quando 1 pesquisa fosse executada, eu teria que executar uma segunda pesquisa em uma segunda tabela baseada em um dos campos da primeira pesquisa.


Desde já agradeço a atenção

Olá, seja bem vindo ao forum. Para começar, uma dica importante: procure sempre informar a versão do Access e o tipo de objeto. No caso, o objeto é um formulário. Esse formulário é simples ou contínuo?

Obrigado,

Nesse caso é um formulário simples e estou trabalhando com access 2003.

Tente algo assim após esse código:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM NomeDaTabela WHERE CampoDaTabela=" & Me.CampoDoForm & "")
Campo1DoForm = rs!Campo1DaTabela
Campo2DoForm = rs!Campo2DaTabela
...
rs.Close
Set rs = Nothing

É mais ou menos por aí, apenas precisará mudar para os nomes corretos da tabela, dos campos da tabela e dos campos do formulário. Se o campo que vai servir de filtro para a seleção dos dados não for tipo texto, altere a linha do Set assim:

...
Set rs = CurrentDb.OpenRecordset("SELECT * FROM NomeDaTabela WHERE CampoDaTabela='" & Me.CampoDoForm & "'")
...

Realmente o campo de origem não era um campo de texto,

portanto alterei o código para a seguinte forma.

Set rs = CurrentDb.OpenRecordset("SELECT * FROM TAB_DATAS WHERE Projeto = '" & Me.PROJETOS & "'")

Com isso funcionou,

Muito Obrigado pela ajuda

O forum agradece o retorno. Só faltou clicar no botão Resolvido. Dessa vez eu clico.