[Resolvido]Validar CPF!!

Pessoal, Boa Noite a todos

Estou com uma dúvida no exemplo do nosso mestre JPaulo. Em um exemplo que utilizei para validar CPF, uso o código abaixo no campo CPF_FUNCIONARIO, funciona tudo legal (ou seja, quase tudo), mas tem um porém. se eu limpar o campo e der um Enter, gera um erro (Erro no tempo de execução 94, Uso de Null inválido). Não posso deixar assim pois vou utilizar este mesmo código para pacientes e existem alguns (crianças por exemplo) que não os possuem: Utilizo

Private Sub CPF_FUNCIONARIO_BeforeUpdate(Cancel As Integer)
If Me.CPF_FUNCIONARIO.Value <> fCPF(Me.CPF_FUNCIONARIO) Then
DoCmd.OpenForm "ATENCAO_CPFINVALIDO"
Me.Undo
Cancel = True
Else
Me.CPF_FUNCIONARIO.InputMask = "000\.000\.000\-00"
End If
End Sub

Lembrando: que utilizo um módulo também do mestre.

Alguém pode me ajudar.

Faça um tratamento de erro:

Private Sub CPF_FUNCIONARIO_BeforeUpdate(Cancel As Integer)

If Not IsNull(Me.CPF_FUNCIONARIO) Then
    If Me.CPF_FUNCIONARIO.Value <> fCPF(Me.CPF_FUNCIONARIO) Then
        DoCmd.OpenForm "ATENCAO_CPFINVALIDO"
        Me.Undo
        Cancel = True
    Else
        Me.CPF_FUNCIONARIO.InputMask = "000\.000\.000\-00"
    End If
Else
    Exit Sub
End If

End Sub

Críquio! Sem palavras... vc é demais... Tão simples.

Mais uma vez meu muito obrigado e boa noite.

Valeu amigão. Essas coisas a gente vai adquirindo com a prática

!!

Tópico Resolvido.

Faça esses ultimos contatos, via PM.