[Resolvido]Erro NULL em validação de CPF & CNPJ quem pode me ajudar.

Tenho dois campos no meu form que validam CPF & CNPJ funciona tudo perfeito mais da uma erro caso eu digite o os dados no campo
e depois apague e va para outra parte do form, erro de NULL numero 94, esse fonte de validação achei aqui no forum,
quando vou depurar o error VBA me leva pra esta linha


linha com erro >>> If Me.txtcnpj.Value <> fCNPJ(Me.txtcnpj) Then


Private Sub txtcnpj_BeforeUpdate(Cancel As Integer)
'A introdução do CNPJ terá de ser feita sem máscara de entrada
'Os dois campos terão de estar como texto na tabela
If Me.txtcnpj.Value <> fCNPJ(Me.txtcnpj) Then
MsgBox "CNPJ Invalido, introduza novamente...", vbInformation
Me.Undo
Cancel = True
Else
Me.txtcnpj.InputMask = "00\.000\.000/0000\-00;;_"

End If
End Sub

Teste:

Private Sub txtcnpj_BeforeUpdate(Cancel As Integer)
On Error Resume Next
'A introdução do CNPJ terá de ser feita sem máscara de entrada
'Os dois campos terão de estar como texto na tabela
If Me.txtcnpj.Value <> fCNPJ(Me.txtcnpj) Then
MsgBox "CNPJ Invalido, introduza novamente...", vbInformation
Me.Undo
Cancel = True
Else
Me.txtcnpj.InputMask = "00\.000\.000/0000\-00;;_"

End If
End Sub

Muito obrigado aprende mais um novo comando hashasha forumm é 10
[Resolvido]

O On Error Resume Next elimina todos os alertas de erro, o que não é boa pratica na programação.

Os erros devem ser tratados sempre, para um bom funcionamento do aplicativo.

If Nz(Me.txtcnpj.Value,0) <> fCNPJ(Nz(Me.txtcnpj,0)) Then

OU

If Not IsNull(Me.txtcnpj) Then

É isso ae Criquio, evitar sempre o On Error Resume Next

Já imaginou a Microsoft lançar um Software e metade das opções não funcionarem e não devolver qualquer erro ?

E sabe o que é mais engraçado? Eu ia postar exatamente If Not IsNull no primeiro Post. Estava com ele em mente e não sei porque raios coloquei o On Error...

então VBA de validação vai ficar assim?


Private Sub txtcnpj_BeforeUpdate(Cancel As Integer)


If Nz(Me.txtcnpj.Value,0) <> fCNPJ(Nz(Me.txtcnpj,0)) Then 'Seria se o campo txtcnpf for diferente de zero então executa o código abaixa,

'A introdução do CNPJ terá de ser feita sem máscara de entrada
'Os dois campos terão de estar como texto na tabela
If Me.txtcnpj.Value <> fCNPJ(Me.txtcnpj) Then
MsgBox "CNPJ Invalido, introduza novamente...", vbInformation
Me.Undo
Cancel = True
Else
Me.txtcnpj.InputMask = "00\.000\.000/0000\-00;;_"

End If
End Sub

O nz converte campos nulos em 0.

perfeito Resolvido muito obrigado hashhas

Para Resolvidos deve sempre pressionar o botão Resolvido.