Caros colegas estou precisando de algo q gere numeros aleatorios, isso com 11 digitos, to querendo fazer um tipo de codigo de identificacao unico para cada registro, vou adicionar esse codigo ao codigo de barras para localizacao e validacao do mesmo na hora da busca,

 

alguem poderia me ajudar a fazer essa sintaxe q gere esses numeros aleatorios com 11 digitos, exemplo:

 

45876542154

00215471578

35840944577

24781266842

 

seria dessa forma q a sintaxe iria gerar os codigos....

 

 

Pode sair letras no seu codigo?

Caso possa use esse codigo aqui:

 

Public Function GeraSerial() As String
Dim udtGUID As GUID
Dim sGUID As String
Dim lResult As Long
Dim temp As String

lResult = CoCreateGuid(udtGUID)

If lResult Then
   sGUID = ""
Else
   sGUID = String$(38, 0)
   StringFromGUID2 udtGUID, StrPtr(sGUID), 39
End If

temp = Replace(sGUID, "-", "")
temp = Replace(temp, "{", "")
GeraSerial = Mid(temp, 1, 11)

End Function

 

Nunca vai repetir pois usa o metodo GUID do proprio windows

so uma pergunta a mais, o codigo de barras aceita letras?

tipo:

 

45A57DSD3S7

|||||||||||||

 

digo na barra mesmo...

 

tudo depende do tipo de tipo de codigo que vc vai usar.

Se for o 3of9 aceita. o 2of5 nao aceita nao.

Ai se for o caso faz uma rotina que substitui a letra por um numero.

 

qualquer coisa tamos ai.

o meu é de 44 digitos, para pagamento de tributos, no padrao da febraban...

E que tipo de fonte vc vai usar?

3of9?

Qual fonte? Ou vc tah "desenhando" o codigo???

Ja adiantando, ateh onde eu sei o padrao Febrabam pra tributos nao aceita letras.

Se eu estiver errado me corrijam por favor.