MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Dando erro no CPF

    Compartilhe

    sueli1947
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 122
    Registrado : 17/05/2013

    [Resolvido]Dando erro no CPF

    Mensagem  sueli1947 em 15/4/2014, 06:41

    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
    avatar
    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 08/07/2013

    Re: [Resolvido]Dando erro no CPF

    Mensagem  clynton em 15/4/2014, 06:57

    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.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4153
    Registrado : 20/04/2011

    Re: [Resolvido]Dando erro no CPF

    Mensagem  Silvio em 15/4/2014, 10:32

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    rdrck
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1000
    Registrado : 11/03/2014

    Re: [Resolvido]Dando erro no CPF

    Mensagem  rdrck em 15/4/2014, 11:36

    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.


    .................................................................................
    Meu Programa / OS:
    Access 2007 - Windows 7.
    avatar
    wsenna
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    Re: [Resolvido]Dando erro no CPF

    Mensagem  wsenna em 15/4/2014, 14:28

    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
    Anexos
    Validar CPF.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (77 Kb) Baixado 28 vez(es)
    avatar
    rdrck
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1000
    Registrado : 11/03/2014

    Re: [Resolvido]Dando erro no CPF

    Mensagem  rdrck em 25/4/2014, 13:31

    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.


    .................................................................................
    Meu Programa / OS:
    Access 2007 - Windows 7.

    sueli1947
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 122
    Registrado : 17/05/2013

    Dando erro no Cpf

    Mensagem  sueli1947 em 8/5/2014, 12:53

    Tudo Beleza !!!!

    Obrigado !!!

    crysostomo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 23/01/2018

    Re: [Resolvido]Dando erro no CPF

    Mensagem  crysostomo em 13/8/2018, 21:38

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1000
    Registrado : 11/03/2014

    Re: [Resolvido]Dando erro no CPF

    Mensagem  rdrck em 14/8/2018, 15:24

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


    .................................................................................
    Meu Programa / OS:
    Access 2007 - Windows 7.

    crysostomo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 23/01/2018

    Re: [Resolvido]Dando erro no CPF

    Mensagem  crysostomo em 14/8/2018, 17:34

    eu copiei seus códigos e no meu não funciona
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    rdrck
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1000
    Registrado : 11/03/2014

    Re: [Resolvido]Dando erro no CPF

    Mensagem  rdrck em 16/8/2018, 13:06

    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.


    .................................................................................
    Meu Programa / OS:
    Access 2007 - Windows 7.

    crysostomo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 23/01/2018

    Re: [Resolvido]Dando erro no CPF

    Mensagem  crysostomo em 16/8/2018, 16:52

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4153
    Registrado : 20/04/2011

    Re: [Resolvido]Dando erro no CPF

    Mensagem  Silvio em 17/8/2018, 11:36

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: 16/12/2018, 15:45