[Resolvido]Dando erro no CPF

Olá amigos professores ;
Eu tenho um código aqui de validar cpf ele funciona bem mas quando eu coloco mascara de entrada assim :
 
999.999.999-99 ai fica dando erro alguém por ai tem uma solução
 
Observação : O código não é meu não baixei em algum lugar que não me lembro bem. Tem problema eu usá-lo ?
 
Sueli

Bom dia Sueli, mande por favor o código que está usando e onde está colocando-o.
Mande também o erro e em que momento ele está sendo apresentado.

Bom dia..com a tua permissão Clyton.

Se no código houver um inputmask....não há necessidade de mascara de entrada na tabela.

Olá Suely,
Tive esse problema também num campo CPF.
Setei o mesmo como número e coloquei a máscara de entrada: !000.000.000\-00.
Deu erro.
Então mudei o campo para texto.
Funcionou perfeitamente.

Olá Senhores, bom dia.

Caso o objetivo seja puramente estética quanto ao formato do campo CPF sugiro que utilizem um campo calculado que após a validação do CPF exiba o mesmo com a formatação 000.000.000/00
Para tanto basta seguir o exemplo abaixo:

Abraços, WSenna

Olá Sueli,
Conseguiu resolver o problema?
Se sim, só não esqueça de clicar no [Resolvido] para não deixar o tópico em aberto.
Valeu.

Tudo Beleza !!!!

Obrigado !!!

quando eu coloco ele no meu programa ele não verifica mas , ate o cpf certo ele diz que está invalido

Olá Crysostomo,
Não entendi sua dúvida.
Se puder postar parte do seu projeto com o problema, talvez possamos lhe ajudar.
Abraço.

eu copiei seus códigos e no meu não funciona
https://drive.google.com/open?id=1njbMseG2jieCNDyqMQ8Yaq_koaw-t17H

Bom, eu dei uma olhada mas ainda continuo sem entender.
Na tabela de pacientes estão cadastrados os CPF's.
Confesso que não consegui entender sua dúvida.

sim , estão cadastrados , .
eu coloco um cpf certo no formulario e da invalido

Bom dia a todos....se me permitem um pitaquinho...

1- Copiar o código abaixo em um modulo e salve com o nome:ModValida

Código:


' modolo para validar o CPF
Public Function fDigCPF(CPF As String) As String
'Calcula os dígitos verificadores do CPF
Dim I As Integer
Dim intFator As Integer
Dim intTotal As Integer
Dim intResto

'Verifica se tem 9 ou 11 dígitos
If Not (Len(CPF) = 9 Or Len(CPF) = 11) Then
    Exit Function
Else
    'Verifica se é numérico
    If Not IsNumeric(CPF) Then
        Exit Function
    Else
        'Trunca o CPF em 9 caracteres
        CPF = Left$(CPF, 9)
    End If
End If

Inicio:
'Percorre as colunas (de trás para frente),
'multiplicando por seus respectivos fatores
intFator = 2
intTotal = 0
For I = Len(CPF) To 1 Step -1
    intTotal = intTotal + ((CInt(Mid(CPF, I, 1)) * intFator))
    intFator = intFator + 1
Next I

'Obtém o resto da divisão por 11
I = intTotal Mod 11
'Subtrai 11 do resto
I = 11 - I
'O dígito verificador é i
If I = 10 Or I = 11 Then I = 0
'Concatena ao CPF
CPF = CPF & CStr(I)

If Len(CPF) = 10 Then
    'Calcula o segundo dígito
    GoTo Inicio
End If

'Retorna os dígitos verificadores
fDigCPF = Right$(CPF, 2)
End Function

Public Function fCPF(CPF As String) As Boolean
'Verifica se o CPF é válido
Dim strChar As String

'Verifica se tem 11 caracteres
If Not Len(CPF) = 11 Then
    fCPF = False
    Exit Function
End If

'Verifica se o dígito verificador confere
strChar = Mid$(CPF, 10, 2)
If fDigCPF(CPF) = strChar Then
    fCPF = True
Else
    fCPF = False
End If


2- No Evento antes de atualizar o CPF ( lembrando que o formato do CPF tem que estar no modo texto lá na tua tabela )

Código:

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