[Resolvido]Localizar dados com DLookup.

Prezados, boa noite,

Tenho o campo chamado Corredor grifado em anexo no form (frmCedoCadastProntuario) e que este é ligado a tabela tblCedocPront.

Em uma segunda tabela tenho os campos Corredor, Estante e LocalizacaoFisica.

Link: https://www.dropbox.com/s/n0hrb3gebi095a4/Teste%20DLookup.accdb?dl=0

Estou usando o código abaixo no evento após atualizar da textBox cxCorredor que está ligada a tabela tblCedocPront para localizar o registro:

If txtCorredor = DLookup("cxCorredor", "tblLocalizacaoFisica", "cxCorredor = '" & Me!cxCorredor & "'") Then

Else
MsgBox ("O valor informado está diferente do cadastrado em sistama, gentileza informar dados corretos"), vbQuestion, "Informação..."

End If

Preciso o seguinte: Ao digitar HM-1 na caixa cxCorredor o DLookup percorresse a tabela tblLocalizacaoFisica e caso ache o dado que eu digitei Then prossiga, caso contrário critique msgbox.

Alguma sugestão?

Olá amigo bom dia!

no seu caso o que está errado é o Dlookup veja que na sua tabela os nomes dos campos não estão iguais a função Dlookup

Errado:
If txtCorredor = DLookup("cxCorredor", "tblLocalizacaoFisica", "cxCorredor = '" & Me!cxCorredor & "'") Then

Correto:
If txtCorredor = Nz(DLookup("Corredor", "tblLocalizacaoFisica", "Corredor = '" & Me!cxCorredor & "'"), 0) Then

copie este codigo abaixo e cole no lugar do seu antigo.

Código:



Private Sub cxCorredor_AfterUpdate()
'txtCorredor = "HM-" & txtCorredor

If txtCorredor = Nz(DLookup("Corredor", "tblLocalizacaoFisica", "Corredor = '" & Me!cxCorredor & "'"), 0) Then
Else
MsgBox ("O valor informado está diferente do cadastrado em sistama, gentileza informar dados corretos"), vbQuestion, "Informação..."
End If

End Sub



sucesso!

Verdade Danilo,

Desatenção minha, tópico resolvido.

Grato pela ajuda!