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

    Verificar CPF e CGC ( cnpj)

    Compartilhe

    Rosemberg
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 09/10/2014

    Verificar CPF e CGC ( cnpj)

    Mensagem  Rosemberg em Qua 15 Out 2014, 15:33

    Tenho campo - CPF num frm e o módulo que vou cito abaixo ;mas não sei como inserir para que seja verificado.
    Em propriedades do campo CPF - onde devo colocar este módulo ? Sou iniciante, fico grato.
    Option Compare Database
    Option Explicit

    '******************************************
    'Rotinas para cálculo de dígito verificador
    'e validação de CNPJ e CPF
    '******************************************

    Public Function fDigCNPJ(CNPJ As String) As String
    'Calcula os dígitos verificadores do CNPJ
    Dim I As Integer
    Dim intFator As Integer
    Dim intTotal As Integer
    Dim intResto

    'Verifica se tem 12 ou 14 dígitos
    If Not (Len(CNPJ) = 12 Or Len(CNPJ) = 14) Then
    Exit Function

    Else

    'Verifica se é numérico
    If Not IsNumeric(CNPJ) Then
    Exit Function

    Else
    'Trunca o CNPJ em 12 caracteres
    CNPJ = Left$(CNPJ, 12)

    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(CNPJ) To 1 Step -1
    If intFator > 9 Then intFator = 2
    intTotal = intTotal + ((CInt(Mid(CNPJ, 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 CNPJ
    CNPJ = CNPJ & CStr(I)

    If Len(CNPJ) = 13 Then
    'Calcula o segundo dígito
    GoTo Inicio

    End If

    'Retorna os dígitos verificadores
    fDigCNPJ = Right$(CNPJ, 2) 'OK

    End Function

    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) 'OK

    End Function

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

    'Verifica se tem 14 caracteres
    If Not Len(CNPJ) = 14 Then
    fCNPJ = False
    Exit Function

    End If

    'Verifica se o dígito verificador confere
    strChar = Mid$(CNPJ, 13, 2)

    If fDigCNPJ(CNPJ) = strChar Then
    fCNPJ = True

    Else
    fCNPJ = False

    End If 'OK

    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 'OK

    End Function

    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3385
    Registrado : 04/04/2010

    Re: Verificar CPF e CGC ( cnpj)

    Mensagem  Avelino Sampaio em Qua 15 Out 2014, 19:31

    Olá!

    Veja se este exemplo ajuda:

    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso!

      Data/hora atual: Sex 18 Ago 2017, 02:09