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

    [Resolvido]Gerador de Cpf

    Compartilhe

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    [Resolvido]Gerador de Cpf

    Mensagem  formiga10x em Qui 13 Nov 2014, 18:58

    Boa tarde.
    Será que algum dos amigos teria módulo gerador de cpf válido que pudesse me disponibilizar?
    Busquei no fórum no entanto não encontrei.

    Agradecido.


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2267
    Registrado : 09/04/2012

    Re: [Resolvido]Gerador de Cpf

    Mensagem  Kaynan em Qui 13 Nov 2014, 20:25

    Veja esse amigo véio.

    Abç



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

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

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: [Resolvido]Gerador de Cpf

    Mensagem  formiga10x em Qui 13 Nov 2014, 20:35

    Fala meu amigo.
    Seria um Gerador de cpf pois estou sem tem para fazer e pensei que talvez algum amigo já tivesse um pronto.




    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 11/11/2009

    Re: [Resolvido]Gerador de Cpf

    Mensagem  Dilson em Qui 13 Nov 2014, 21:11

    Olá,
    Sendo uma opção:
    Se digitar nos buscadores "gerador de cpf online" virá muitos sites que fornecem esse serviço gratuitamente.


    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: [Resolvido]Gerador de Cpf

    Mensagem  formiga10x em Qui 13 Nov 2014, 21:14

    Pois é Dilson porém preciso gerar este número dentro da aplicação e então verificar se ele é válido para então dar prosseguimento na gravação dos dados.


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: [Resolvido]Gerador de Cpf

    Mensagem  formiga10x em Qui 13 Nov 2014, 22:58

    Resolvi aqui pessoal.

    Muito obrigado Dilson

    Kaynan aproveitei o código verificador para após gerar números randonicos fazer a verificação do mesmo.

    Segue o código a grosso modo porém funciona.

    Código:
    Sub FazCPF()

    Dim intSoma, intSoma1, intSoma2, intInteiro As Long
    Dim intNumero, intMais, i, intResto As Integer
    Dim intDig1, intDig2 As Integer
    Dim strcampo, strCaracter, StrConf, strCGC, strDigVer As String
    Dim dblDivisao As Double

    Randomize    ' Inicializa o gerador de números aleatórios.

    1 For i = 1 To 1

     CGC = Int((12345678909#) * Rnd)

    If Len(CGC) < 11 Then GoTo 1
    If Len(CGC) > 11 Then GoTo 1


    k = Str(CGC)

    Next i

    intSoma = 0
    intSoma1 = 0
    intSoma2 = 0
    intNumero = 0
    intMais = 0

    strDigVer = Right(CGC, 2)
    strcampo = Left(CGC, 8)
    strCGC = Right(CGC, 6)
    strCGC = Left(strCGC, 4)
    strcampo = Right(strcampo, 4) & strCGC

    For i = 2 To 9
        strCaracter = Right(strcampo, i - 1)
        intNumero = Left(strCaracter, 1)
        intMais = intNumero * i
        intSoma1 = intSoma1 + intMais
    Next i
    'Separa os 4 primeiros dígitos do CGC
    strcampo = Left(CGC, 4)
    For i = 2 To 5
        strCaracter = Right(strcampo, i - 1)
        intNumero = Left(strCaracter, 1)
        intMais = intNumero * i
        intSoma2 = intSoma2 + intMais
    Next i
    intSoma = intSoma1 + intSoma2
    dblDivisao = intSoma / 11
    intInteiro = Int(dblDivisao) * 11
    intResto = intSoma - intInteiro
    If intResto = 0 Or intResto = 1 Then
        intDig1 = 0
    Else
        intDig1 = 11 - intResto
    End If
    intSoma = 0
    intSoma1 = 0
    intSoma2 = 0
    intNumero = 0
    intMais = 0

    strcampo = Left(CGC, 8)
    strCGC = Right(CGC, 6)
    strCGC = Left(strCGC, 4)
    strcampo = Right(strcampo, 3) & strCGC & intDig1

    For i = 2 To 9
        strCaracter = Right(strcampo, i - 1)
        intNumero = Left(strCaracter, 1)
        intMais = intNumero * i
        intSoma1 = intSoma1 + intMais
    Next i
    strcampo = Left(CGC, 5)
    For i = 2 To 6
        strCaracter = Right(strcampo, i - 1)
        intNumero = Left(strCaracter, 1)
        intMais = intNumero * i
        intSoma2 = intSoma2 + intMais
    Next i
    intSoma = intSoma1 + intSoma2
    dblDivisao = intSoma / 11
    intInteiro = Int(dblDivisao) * 11
    intResto = intSoma - intInteiro
    If intResto = 0 Or intResto = 1 Then
        intDig2 = 0
    Else
        intDig2 = 11 - intResto
    End If
    StrConf = intDig1 & intDig2
    DVCGC = StrConf

    If DVCGC = strDigVer Then

      If DCount("cpf", "Cliente", "cpf ='" & CGC & "'") Then GoTo 1  'VERIFICA SE O CPF JÁ EXISTE NA TABELE CASO EXISTA REFAZ TODO O PROCESSO


      Form_FCliente.txtCpf = CGC

      MsgBox "CPF válido!", vbInformation, "Atenção"

    Else
      GoTo 1
      End If
    End Sub



    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2267
    Registrado : 09/04/2012

    Re: [Resolvido]Gerador de Cpf

    Mensagem  Kaynan em Sex 14 Nov 2014, 00:40

    Legal meu amigo.Sucesso ....

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: [Resolvido]Gerador de Cpf

    Mensagem  formiga10x em Sex 14 Nov 2014, 04:46

    Ai Kaynan veja como ficou a parte de gerar Cpf do cadastro de produtos Very Happy

    Link


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 11/11/2009

    Re: [Resolvido]Gerador de Cpf

    Mensagem  Dilson em Sex 14 Nov 2014, 12:49

    Bom que resolveu, obrigado por compartilhar a solução.

    Eu já havia colocado a mão na massa e construído um gerador. Veja no repositório:

    Gerador de CPF Válidos por MS Access e VBA


    Última edição por Dilson em Sex 14 Nov 2014, 22:44, editado 1 vez(es)


    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2267
    Registrado : 09/04/2012

    Re: [Resolvido]Gerador de Cpf

    Mensagem  Kaynan em Sex 14 Nov 2014, 15:35

    Grande formiga,muito bom mesmo.
    Abç.

      Data/hora atual: Qui 08 Dez 2016, 23:54