[Resolvido]Valida CPF

Bom dia,

Access 2010.

No repositório de Exemplos, peguei um exemplo do mestre JPaulo, cujo tópico é "Valida CPF ou CNPJ". O exemplo está funcionando, porém queria modificar um detalhe.

No meu formulário, o campo CPF é o quinto campo a ser preenchido, e quando acontece do CPF ser inválido todos os demais campos (que já estavam preenchidos) voltam a ser nulos, ou seja, é como tivesse sido apertado ESC e o registro que estava sendo inserido é cancelado.

Gostaria de saber se há como, quando o CPF for inválido, que apenas o campo CPF fique como nulo e os campos que já estavam preenchidos permaneçam preenchidos.

Alguém poderia ajudar?

Obrigado

Poste o código completo.. assim todos poderão ver e ajudá-lo com uma solução

Obrigado pelo retorno. Consegui o que eu queria.

O código era assim:

'A introdução do CPF terá de ser feita sem máscara de entrada
'Os dois campos terão de estar como texto na tabela

Private Sub txtcpf_BeforeUpdate(Cancel As Integer)
If Me.txtcpf.Value <> fCPF(Me.txtcpf) Then
MsgBox "CPF Invalido, introduza novamente...", vbInformation
Me.Undo
Cancel = True
Else
MsgBox "CPF válido."
Me.txtcpf.InputMask = "000\.000\.000\-00"
End If
End Sub


Fiz uma alteração em uma linha (em vermelho):

'A introdução do CPF terá de ser feita sem máscara de entrada
'Os dois campos terão de estar como texto na tabela

Private Sub txtcpf_BeforeUpdate(Cancel As Integer)
If Me.txtcpf.Value <> fCPF(Me.txtcpf) Then
MsgBox "CPF Invalido, introduza novamente...", vbInformation
DoCmd.CancelEvent
Cancel = True
Else
MsgBox "CPF válido."
Me.txtcpf.InputMask = "000\.000\.000\-00"
End If
End Sub

Obrigado mais uma vez.

Se resolveu.. Resolvido Está... Apenas se esqueceu do resolvido..

Saudações

Tópico resolvido