[Resolvido]Gerador de Cpf

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.

Veja esse amigo véio.

Abç



https://dl.dropboxusercontent.com/u/90217826/verifica_cpf_cnpj.zip

https://dl.dropboxusercontent.com/u/90217826/CGC_CPF.rar

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

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

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.

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



Legal meu amigo.Sucesso ....

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

Link

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

Grande formiga,muito bom mesmo.
Abç.