MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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


    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    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!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

      Data/hora atual: Dom 04 Dez 2016, 12:12