Bom Dia!!!
Amigos
Tenho uma dúvida e não estou sabendo corrigir, preciso clicar em um botão e com base no valor da caixa de combinação ele me apresente a msg de que a informação não existe, estou colocando conforme o código abaixo, mas existindo ou não a informação a msg aparece, mas quero que só seja apresentada a msg se a informação não existir.
Já tentei invertendo, já tentei (not isnull, já tentei começando pelo DLookup e sempre é apresentado a msg em qualquer condição, se alguém puder me ajudar agradeço.
Segue:
If IsNull(DLookup("[MeuCampoTabela]", "MinhaTabela", "[MeucampoTabela] ='" & Me!MeuCampoFormulário & "'")) Then
'Se não existe a informação apresenta a msg
MsgBox "Minha Mensagem.", vbOKOnly + vbInformation, "Título"
Me!MeuCampoFormulário = "" 'Desfaz a digitação.
Else
'Se existe a informação abre outro formulário
DoCmd.OpenForm "OutroFormulário"
End If
Amigos
Tenho uma dúvida e não estou sabendo corrigir, preciso clicar em um botão e com base no valor da caixa de combinação ele me apresente a msg de que a informação não existe, estou colocando conforme o código abaixo, mas existindo ou não a informação a msg aparece, mas quero que só seja apresentada a msg se a informação não existir.
Já tentei invertendo, já tentei (not isnull, já tentei começando pelo DLookup e sempre é apresentado a msg em qualquer condição, se alguém puder me ajudar agradeço.
Segue:
If IsNull(DLookup("[MeuCampoTabela]", "MinhaTabela", "[MeucampoTabela] ='" & Me!MeuCampoFormulário & "'")) Then
'Se não existe a informação apresenta a msg
MsgBox "Minha Mensagem.", vbOKOnly + vbInformation, "Título"
Me!MeuCampoFormulário = "" 'Desfaz a digitação.
Else
'Se existe a informação abre outro formulário
DoCmd.OpenForm "OutroFormulário"
End If