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