[Resolvido]random de NUMEROS

boa tarde!


estou tentando fazer random de numeros por textbox.

eu ate consegui... porem estou encontrando dificuldade de hora de pessoas simultaneamente acessam o formulario. pior que o formulario na hora de abrir abre mesmo numero random iguais

Código:

Me.COD = Int(Rnd(4) * 10000)

ou

Me.COD = Int((6 * Rnd) + 1)



a ideia sempre que abrir simultaneamente abrir um numero diferente, sem hipótese de repetir mesmo numero.


alguem pra dar um luz?

abraços

Para que não haja repetição, experimente adicionar ao RND um Numero Único, como por exemplo o ID do registro... Assim, mesmo que 2 pessoas abram ao mesmo tempo e que o RND dê a elas numero iguais (somente no RDN) o registro se tornará diferente quando Somar, Subtrair ou Multiplicar pelo Valor Único.

certo, poderia me dar um exemplo por favor.


seria mais o menos isso ?

Código:

Me.COD = Int(Rnd(nomedocampo na tabela? ou dlookup?) * 10000)

Pode ser assim:

Int((Rnd(4) * 10000)*NumUnico)
ou
Int((Rnd(4) * 10000)+NumUnico)

Pode utilizar como Numero Único o próprio ID do Usuário Logado.

assim ?

Dim acesso As Integer

acesso = DLookup("CodUsuario", "Tbl_01_01_Usuario", "Usuario = '" & getUsuarioAtual() & "'")

me.cod = Int((Rnd(4) * 10000)+acesso)

fabio meu amigo

deu certo.


porem ele esta sempre abrindo com mesmo numero diferente aleatoriamente.

como posso evitar que esse numero sejam aleatoriamente iguais?

pensei em algo com dlookup pra verificar na tabela se ja existe esse numero... problema é sabemos que se os numero seguem mesma coisa aleatoriamente. Como evitar essa sequencia ?

ex: se o cara cadastra 10 coisas no mesmo ID. E eu dar um refresh no form, ele ira fazer isso sequencialmente 10x me entende ?

não consigo pensar em algo diferente.


abraços.

Amigo, confesso que fiquei confuso:

... abrindo com mesmo numero diferente ...

Explique melhor... Me diga o que pretende com esse RND().
Se possivel manda Prints.

Olá!

utilize o RANDOMIZE

Sucesso!

meu amigos obg

consegui fazer funcionar perfect

@fabio

na verdade o que eu quis dizer é...

Código:

Int((Rnd(4) * 10000)+acesso)

ele sempre gerava os mesmo numeros aleatorios mesmo outra pessoa abrindo o formulario entendeu ??

ele sempre abria

1354
depois
3658
depois
2541

ou seja, sempre numeros aleatorios em orden sequencial entendeu ?

@avelino

foi ponto essencial esse randomize



RESOLVIDO.

segue o codigo que usei

Código:

Dim acesso As Integer

acesso = DLookup("CodUsuario", "Tbl_01_01_Usuario", "Usuario = '" & getUsuarioAtual() & "'")
Randomize
Me.COD = Int(Rnd * 10000) + 1 + acesso

Grato pelo retorno e até a Próxima se Deus quiser!