[Resolvido]Dlookup em duas tabelas em simultaneo

Boa noite

Precisava de combinar o comando Dlookup com duas tabela no mesmo Form.

Private Sub Analise_Exit(Cancel As Integer)
If (Not IsNull(DLookup("[sys]", "Tabela1", "[sys] ='" & Me!sys & "'"))) Then
MsgBox "A Análise Já está Registada Neste Documento .", vbQuestion, "Aviso"
Me.analise.SetFocus
Exit Sub
End If

If (Not IsNull(DLookup("[sys]", "Tabela2", "[sys] ='" & Me!sys & "'"))) Then
MsgBox "A Análise Já está Registada Neste Documento .", vbQuestion, "Aviso"
Me.analise.SetFocus
Exit Sub
End If
End Sub

Acredito que dê certo assim. Faça o teste:

Private Sub Analise_Exit(Cancel As Integer)
If (Not IsNull(DLookup("[sys]", "Tabela1", "[sys] ='" & Me!sys & "'"))) And Not IsNull(DLookup("[sys]", "Tabela2", "[sys] ='" & Me!sys & "'"))) Then
MsgBox "A Análise Já está Registada Neste Documento .", vbQuestion, "Aviso"
Me.analise.SetFocus
Exit Sub
End If

Obrigado Criquio

Só faltou a parte a vermelho

Private Sub Analise_Exit(Cancel As Integer)
If (Not IsNull(DLookup("[sys]", "Tabela1", "[sys] ='" & Me!sys & "'"))) And (Not IsNull(DLookup("[sys]", "Tabela2", "[sys] ='" & Me!sys & "'"))) Then
MsgBox "A Análise Já está Registada Neste Documento .", vbQuestion, "Aviso"
Me.analise.SetFocus
Exit Sub
End If

Funciona

Bem, na verdade, acusou a falta do parêntese porque tinha o fechamento dele no final. É que eu não costumo iniciar Not IsNull com parêntese. Geralmente faço assim:

If Not IsNull(DLookup("[sys]", "Tabela1", "[sys] ='" & Me!sys & "'")) And Not IsNull(DLookup("[sys]", "Tabela2", "[sys] ='" & Me!sys & "'")) Then
...


É só questão de gosto mesmo

Obrigado Criquio

E bom carnaval