Preciso que um campo nº Cliente gere um numero aleatorio, sempres diferente, de 13 numeros em que os ultimos dois esteja compreendidos entre 1 e 49!
É possivel?
Grande desafio!!!! :-)
Jorge Veloso
ajveloso@iol.pt

AJVeloso,

Apenas para entender:

O número gerado tem que ter 13 dígitos?

Se sim, os dois últimos dígitos tem que ser um número entre 01 e 49 ??

Entendi direito??

Ewoks

Sim , entendeu!
É complicado!!!!

Veja o seu email...

Montei um exemplo que atende a sua solicitação...


Espero ter contribuido...


Ewoks

Ewoks

Sera que vc pode enviar pra mim tambem
edimar@brisanet.com.br

Edimar,

Veja o seu email.

Arquivo já foi enviado...


Ewoks

Prezado EWOKS:
O exemplo que me enviou está excelente, mas o que eu pretendo é que os ultimos dois digitos nao se repitam em cada série de 49.Eu explico: tenho uma aplicacao que faz contratos para campanhas publicitarias que tem um numero de 49 anunciantes em cada campanha.Nessa campanha esses dois algarismos vao ser sorteados para atribuicao de um premio e tem que ser unicos(nao repetidos) senao vou à falencia
Um grande abraco
Ajveloso@iol.pt

COLEGA SE NÃO ME ENGANO EM UM EX. NO www26.brinkester.com/accessjr, mas de qualquer maneira aqui vai um exemplo:

Dim T As Integer
Randomize
T = Rnd() * 100 / 2
MsgBox T
End Sub

Abraços

ve se atendeu seu objetivo

Veja o seu email...

Remodelei o exemplo anterior.

Retorne se deu certo...


Ewoks