[Resolvido]Consulta dá erro para 6 digitos

Olá,

Peguei uma dica de consulta que procura e 2 tabelas e informa
se encontrou ou não e em qual tabela, código abaixo:

Esta dando erro de "Estouro" quando entro um número maior que 5 dígitos.
Para os outros etá Ok.

Private Sub CmvVerificar_Click()
On Error GoTo Err_cmvVerificar_Click

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

txtBusca01 = DLookup("Numero", "Material", "Numero=" & i)
txtBusca02 = DLookup("Numero", "Material Bx", "Numero=" & i)

If Not IsNull(txtBusca01 And txtBusca02) Then
MsgBox "O Material de Nº.: " & i & " Foi encontrado nas duas tabelas, Favor corrigir!", , "Resultado da Verificação"
Me.Texto1 = Empty
ElseIf Not IsNull(txtBusca01) And IsNull(txtBusca02) Then
MsgBox "O Material de Nº.: " & i & " Foi encontrado apenas na tabela Material em Uso!", , "Resultado da Verificação"
Me.Texto1 = Empty
ElseIf IsNull(txtBusca01) And Not IsNull(txtBusca02) Then
MsgBox "O Material de Nº.: " & i & " Foi encontrado apenas na tabela Material Baixado!", , "Resultado da Verificação"
Me.Texto1 = Empty
ElseIf IsNull(txtBusca01) And IsNull(txtBusca02) Then
MsgBox "O Material de Nº.: " & i & " Não foi encontrado!", , "Resultado da Verificação"
Me.Texto1 = Empty
End If

Exit_cmvVerificar_Click:
Exit Sub

Err_cmvVerificar_Click:
MsgBox Err.Description & " Campo Vazio ou não é numérico!!!!"
Resume Exit_cmvVerificar_Click

End Sub

Podem me ajudar a consertar?

Mude conforme está em evidência.
Abraço

Private Sub CmvVerificar_Click()
On Error GoTo Err_cmvVerificar_Click

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

txtBusca01 = DLookup("Numero", "Material", "Numero=" & i)
txtBusca02 = DLookup("Numero", "Material Bx", "Numero=" & i)

If Not IsNull(txtBusca01 And txtBusca02) Then
MsgBox "O Material de Nº.: " & i & " Foi encontrado nas duas tabelas, Favor corrigir!", , "Resultado da Verificação"
Me.Texto1 = Empty
ElseIf Not IsNull(txtBusca01) And IsNull(txtBusca02) Then
MsgBox "O Material de Nº.: " & i & " Foi encontrado apenas na tabela Material em Uso!", , "Resultado da Verificação"
Me.Texto1 = Empty
ElseIf IsNull(txtBusca01) And Not IsNull(txtBusca02) Then
MsgBox "O Material de Nº.: " & i & " Foi encontrado apenas na tabela Material Baixado!", , "Resultado da Verificação"
Me.Texto1 = Empty
ElseIf IsNull(txtBusca01) And IsNull(txtBusca02) Then
MsgBox "O Material de Nº.: " & i & " Não foi encontrado!", , "Resultado da Verificação"
Me.Texto1 = Empty
End If

Exit_cmvVerificar_Click:
Exit Sub

Err_cmvVerificar_Click:
MsgBox Err.Description & " Campo Vazio ou não é numérico!!!!"
Resume Exit_cmvVerificar_Click

End Sub

Leandro,

Agora dá erro para qualquer numero

Uso de 'Null' inválido.



Assim funcionou:

Dim txtBusca01, txtBusca02
Dim i As Long

Qual linha depura?
Faça só assim então:

Private Sub CmvVerificar_Click()
On Error GoTo Err_cmvVerificar_Click

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

txtBusca01 = DLookup("Numero", "Material", "Numero=" & i)
txtBusca02 = DLookup("Numero", "Material Bx", "Numero=" & i)

If Not IsNull(txtBusca01 And txtBusca02) Then
MsgBox "O Material de Nº.: " & i & " Foi encontrado nas duas tabelas, Favor corrigir!", , "Resultado da Verificação"
Me.Texto1 = Empty
ElseIf Not IsNull(txtBusca01) And IsNull(txtBusca02) Then
MsgBox "O Material de Nº.: " & i & " Foi encontrado apenas na tabela Material em Uso!", , "Resultado da Verificação"
Me.Texto1 = Empty
ElseIf IsNull(txtBusca01) And Not IsNull(txtBusca02) Then
MsgBox "O Material de Nº.: " & i & " Foi encontrado apenas na tabela Material Baixado!", , "Resultado da Verificação"
Me.Texto1 = Empty
ElseIf IsNull(txtBusca01) And IsNull(txtBusca02) Then
MsgBox "O Material de Nº.: " & i & " Não foi encontrado!", , "Resultado da Verificação"
Me.Texto1 = Empty
End If

Exit_cmvVerificar_Click:
Exit Sub

Err_cmvVerificar_Click:
MsgBox Err.Description & " Campo Vazio ou não é numérico!!!!"
Resume Exit_cmvVerificar_Click

End Sub

Opa!
Estava editando e você respondendo.

Valeu!

Resolvido.

ÓTIMO!
Que bom que deu certo Flecha, vamos rumo ao alvo (entendeu? flecha + alvo )
Abraço