[Resolvido]Consulta em duas tabelas no mesmo Botão

Olá,
Tenho duas tabelas, Material e MaterialBx.
Quero que ao preencher um Txt em um form execute uma consulta pesquisando o campo Numero em ambas Tabelas e retorne em qual tabela esta se existir.
Tendo o retorno como um dos abaixo:

Ex: Número localizado na Tabela MaterialBX
Ex: Número localizado na Tabela Material
Ex: Número não localizado.

Boa noite, tente assim ...

Private Sub cmvVerificar_Click() 'Botão no formulário
On Error GoTo Err_cmvVerificar_Click

Dim txtBusca01, txtBusca02
Dim i As Integer
i = Me.Texto1.Value 'Texto1 = campo no formulário

txtBusca01 = DLookup("Número", "Material", "Número=" & i)
txtBusca02 = DLookup("Número", "MaterialBx", "Número=" & i)

If Not IsNull(txtBusca01 And txtBusca02) Then
MsgBox "ocorrência: " & i & " Encontrada nas duas tabelas"
ElseIf Not IsNull(txtBusca01) And IsNull(txtBusca02) Then
MsgBox "ocorrência: " & i & " Encontrada apenas na tabela Material"
ElseIf IsNull(txtBusca01) And Not IsNull(txtBusca02) Then
MsgBox "ocorrência: " & i & " Encontrada apenas na tabela MaterialBx"
ElseIf IsNull(txtBusca01) And IsNull(txtBusca02) Then
MsgBox "ocorrência não encontrada"
End If

Exit_cmvVerificar_Click:
Exit Sub

Err_cmvVerificar_Click:
MsgBox Err.Description
Resume Exit_cmvVerificar_Click

End Sub

Jungli,

Testei e ficou perfeito.

Obrigado

Boa noite, flecha
Devia ter marcado "Resolvido". Desta vez, marco eu.

Desculpe,

Juro que procurei onde estava o Resolvido e não achei.

Acho que em função de ter editado a resposta depois de ter enviado.

Coloquei o Tanks, vou tentar não cometer mais essa "gafe"