[Resolvido]Validação de CPF, só passar para o campo seguinte com o número válido

Boa tarde pessoal!

Verificando o fórum, consegui um módulo para fazer a valiação do CPF, funciona perfeitamente (inclui no meu BD) só que não consegui fazer com que, caso o número digitado não seja válido seja obrigatória a digitação de um válido para poder prosseguir.

O módulo é esse:
Function DVCPF(CPF As String) As String

'Rotina alterada por Dalvo Aragão Junior
'Data: 15/02/98
'Site: www.freeespace.com.br/sc/estoque

Dim lngSoma, lngInteiro As Long
Dim intNumero, intMais, I, intResto As Integer
Dim intDig1, intDig2 As Integer
Dim strDigVer, strcampo, strCaracter, StrConf As String
Dim dblDivisao As Double
lngSoma = 0
intNumero = 0
intMais = 0
strcampo = Left(CPF, 9)
strDigVer = Right(CPF, 2)
For I = 2 To 10
strCaracter = Right(strcampo, I - 1)
intNumero = Left(strCaracter, 1)
intMais = intNumero * I
lngSoma = lngSoma + intMais
Next I
dblDivisao = lngSoma / 11
lngInteiro = Int(dblDivisao) * 11
intResto = lngSoma - lngInteiro
If intResto = 0 Or intResto = 1 Then
intDig1 = 0
Else
intDig1 = 11 - intResto
End If
strcampo = strcampo & intDig1
lngSoma = 0
intNumero = 0
intMais = 0
For I = 2 To 11
strCaracter = Right(strcampo, I - 1)
intNumero = Left(strCaracter, 1)
intMais = intNumero * I
lngSoma = lngSoma + intMais
Next I
dblDivisao = lngSoma / 11
lngInteiro = Int(dblDivisao) * 11
intResto = lngSoma - lngInteiro
If intResto = 0 Or intResto = 1 Then
intDig2 = 0
Else
intDig2 = 11 - intResto
End If
StrConf = intDig1 & intDig2
DVCPF = StrConf

If DVCPF = strDigVer Then
MsgBox "CPF válido!", vbInformation
Else
MsgBox "CPF inválido", vbCritical
DoCmd.CancelEvent
End If

End Function

Tentei incluir, na parte que mostra a mensagem de que o cpf é inválido um comando para limpar o campo CPF, só que está dando erro.
Teoricamente era pra ser assim:
Se o CPF for inválido, então:
Limpar campo CPF.
Voltar Foco para campo CPF.

Basta dar uma procurada;

http://maximoaccess.forumeiros.com/t3990-resolvidovalida-cpf

http://maximoaccess.forumeiros.com/t286-valida-cpf-ou-cnpj

http://maximoaccess.forumeiros.com/t1040-valida-cpf-e-cnpj-no-mesmo-campo

1 - Apliquei o código diretamente no módulo do form
2 - Criei uma caixa texto RecebeFoco.. deixo-a com largura 0 para ficar invisível
3 - se o CFP é invalido envio o foco para esta caixa texto para não passar ao proximo registro
4 - Envio o foco para a caixa texto CPF
5 - Coloco a cor de fundo em vermelho para indicar o erro.


http://dl.dropbox.com/u/26441349/Totongo_24_09_11.rar


Cumprimentos.

Não percebi que estavas a respoder João Paulo..

Cumprimentos.

Este que enviou é perfeito.

http://maximoaccess.forumeiros.com/t286-valida-cpf-ou-cnpj


Saudações

Pessoal, consegui fazer funcionar através dos exemplos postados.
Com isso aconteceu um novo problema, o campo CPF é requerido, então quando coloco o 'Me!CPF.Undo'
ou 'DoCmd.CancelEvent' aparece uma mensagem de erro informando que o valor ignora a regra de validação do campo, além disso, quando esse campo é preenchido, um outro campo que é o 'Protocolo' é preenchido com autonumeração.
Dessa forma, quando eu digito algum cpf, ele já gera o protocolo específico, quando o cpf é inválido que eu digito novamente ele já pula a numeração para o seguinte, o que não é interessante.
Exemplo: Procotolo: 1, CPF: 001.123.999.87 (inválido), quando digito o outro CPF o Protocolo vai pra 2 e assim por diante. Como resolver isso?

Substitua o:

Me.Undo
Cancel=True

Por:

DoCmd.CancelEvent
Exit Sub

Veja com campos requeridos:

http://dl.dropbox.com/u/771097/ValidaCPF_CNPJ_III.rar

Obrigado JPaulo!
Resolvido o problema, inclui o valor padrão '0' e funcionou.
Grato pela atenção!

O Fórum agradece o Retorno.