[Resolvido]botão de formulário utilizando a função Dlookup para eetuar 2 pesquisas

Boa noite a todos, antes de tudo muito obrigado

estou com o seguinte problema, no momento esta funcionando sem problemas mas não gostaria de ter de criar outro botão para efetuar a 1 pesquisa e caso der nulo efetuar a segunda pesquisa, veja abaixo como funciona

tenho um botão que no evento clicar efetua o seguinte código

Private Sub pesquisaBd_Click()

Dim aJ As String, VAR As Variant

' Avalia filtro antes de ser passado para a função DLookup.
aJ = "[nr] = '" & Me!ab1 & "'"

' Pesquisa e traz o resultado para os campos.

Me!nm = DLookup("nm", "qryRgIma", aJ)
Me!sobr = DLookup("sobr", "qryRgIma", aJ)
Me!og = DLookup("og", "qryRgIma", aJ)

End Sub

desta forma esta funcionando, comecei a desenvolver criando um outro botão e ficou assim

Private Sub pesquisaBd1_Click()

Dim aJ As String, VAR As Variant

' Avalia filtro antes de ser passado para a função DLookup.
aJ = "[nr] = '" & Me!ab1 & "'"

' Pesquisa e traz o resultado para os campos.

Me!nm = DLookup("nm", "qryRgImb", aJ)
Me!sobr = DLookup("sobr", "qryRgImba", aJ)
Me!og = DLookup("og", "qryRgImb", aJ)

End Sub

até funciona e traz o resultado que eu quero mas gostaria de fazer tudo isso em um botão só imagino que ficaria assim


Private Sub pesquisaBd_Click()

Dim aJ As String, VAR As Variant

' Avalia filtro antes de ser passado para a função DLookup.

Me.Refresh
If IsNull(aJ = "[nr] = '" & Me!ab1 & "'") Then

' Pesquisa e traz o resultado para os campos.

Me!nm = DLookup("nm", "qryRgIma", aJ)
Me!sobr = DLookup("sobr", "qryRgIma", aJ)
Me!og = DLookup("og", "qryRgIma", aJ)

Else

aJ = "[nr] = '" & Me!ab1 & "'"

' Pesquisa e traz o resultado para os campos.

Me!nm = DLookup("nm", "qryRgImb", aJ)
Me!sobr = DLookup("sobr", "qryRgImba", aJ)
Me!og = DLookup("og", "qryRgImb", aJ)

End If

End Sub

fiz alguns testes mas esta dando erro, acredito que seja na estrutura, peço a ajuda de vocês caso possam me auxiliar.

desde já meu muito obrigado e fico no aguardo

Boas..


Private Sub pesquisaBd_Click()

Dim aJ As String, VAR As Variant

' Avalia filtro antes de ser passado para a função DLookup.

Me.Refresh
If IsNull(aJ = "[nr] = '" & Me!ab1 & "'") Then

' Pesquisa e traz o resultado para os campos.

Me!nm = DLookup("nm", "qryRgIma", aJ)
Me!sobr = DLookup("sobr", "qryRgIma", aJ)
Me!og = DLookup("og", "qryRgIma", aJ)

ElseIF

aJ = "[nr] = '" & Me!ab1 & "'"

' Pesquisa e traz o resultado para os campos.

Me!nm = DLookup("nm", "qryRgImb", aJ)
Me!sobr = DLookup("sobr", "qryRgImba", aJ)
Me!og = DLookup("og", "qryRgImb", aJ)

End If

End Sub

Silvio, antes de tudo muito obrigado

vou fazer um teste e te falo se deu certo

Silvio antes de tudo gostaria de agradecer a sua ajuda

apliquei a solução que você me encaminhou mas deu errado

1º na expressão ElseIF o Microsoft Visual Basic gerou erro de compilação, era esperado: expressão

tive de usar somente else porem ao clicar o botão ele só consegue trazer os resultados da consulta qryRgImb, os dados da consulta qryRgIma ele não consegue trazer.

estou estudando pra ver se encontro outra solução se puder continuar ajudando eu agradeceria muito

reforçando meu muito obrigado.

Mais alguma ajuda pessoal

desde já meu muito obrigado

Bom dia,
Apenas para confirmar:
qryRgImb e qryRgImb são consultas distintas, correto?

obrigado pelo retorno, sim atualmente estou atualizando duas consultas distantas que que são acionadas quando sai do campo, quando não retorna nenhuma informação ao clicar o botão de pesquisa faz a segunda pesquisa, mas gostaria de fazer apenas uma consulta com as duas pesquisas.

desde já agradeço a sua ajuda.

Bom dia Pessoal, mais alguma ajuda, sugestão

Desde já agradeço a todos

um excelente ano novo a todos

Bom dia senhores e boas festas na presença do Criador.

Andrey, interprete essa parte do seu código, ou tente fala-nos a intenção:

andreyab escreveu:If IsNull(aJ = "[nr] = '" & Me!ab1 & "'") Then

Essa expressão acima sempre dará false, ou seja, nunca entrará no IF e irá
direto para ELSE, pois você já atribuiu valor a variável aJ, quando pois isso:
aJ = "[nr] = "...

Ou seja, mesmo que não haja nada em ab1, a variável aJ, sempre terá o valor [nr] =.
Então, nunca será nula.

Aguardamos.

Também desejo a todos um excelente ano novo e que esse 2022 seja um ano excepcional para nós

vou fazer a analise no código e postar um exemplo, só tenho de agradecer a todos pelo empenho

pessoal coloquei dois arquivos compactados um em pdf explicando todo o processo e o segundo em.mdb com o programa funcionando, quem puder me ajudar agradeceria muito

Desde já meu muito obrigado.....

Boa tarde Pessoal

Antes de tudo gostaria de agradecer a todos!!!

Alguma sugestão pessoal?

fico no aguardo

Opa, blz?
Vamos continuar.
Estou com dificuldade de entender o seguinte:

Ao informar um registro, o sistema já faz uma pesquisa e caso encontre dados, ele preenche
o formulário. Porém se não encontrar dados, ele realiza uma pesquisa em outra consulta e se
encontrar dados, também preenche. Porém se não encontra, realiza mais outra consulta?

Desculpe, o tico-teco aqui ainda está com resquícios das festas de final de ano... rsrs

Imagina Marcelo, eu que agradeço a sua ajuda, caso ele fizer a segunda consulta e não encontrar registro ai vou entrar com um novo registro no banco.

Alguma ajuda pessoal?

Pessoal alguém para ajudar? desde já agradeço, muito obrigado.

Olá Andre

Espero que isto seja o que você precisa

Saludos

Franklin muchas gracias por tu ayuda, muchas gracias de corazón, estudiaré tu solución para entender más, yo también estoy enamorado de MS Access desde hace mucho tiempo, debería haber una plataforma web para el desarrollo al estilo de MS Access, de nuevo muchas gracias

André

Ojalá el ejemplo que hice resuelva tu problema. Cualquier duda intentaremos aclararla

Saludos

Franklin desculpe a demora, gostaria de agradecer, resolveu o problema, eu aproveitei o seu código e utilizei ele para mais algumas consultas,, muito obrigado mesmo.

sem a sua ajuda ainda estaria da forma convencional que eu fiz, obrigado mesmo,, mais importante, entendi o seu raciocinio e fluxo.
muito obrigado mesmo

Olá André

Que bom!!!