MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]random de NUMEROS

    Compartilhe

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 15/05/2013

    [Resolvido]random de NUMEROS

    Mensagem  maguim em 30/1/2018, 17:52

    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


    Última edição por maguim em 31/1/2018, 11:43, editado 1 vez(es)


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]random de NUMEROS

    Mensagem  FabioPaes em 30/1/2018, 18:16

    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.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 15/05/2013

    Re: [Resolvido]random de NUMEROS

    Mensagem  maguim em 30/1/2018, 18:20

    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)


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]random de NUMEROS

    Mensagem  FabioPaes em 30/1/2018, 18:30

    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.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 15/05/2013

    Re: [Resolvido]random de NUMEROS

    Mensagem  maguim em 30/1/2018, 18:48

    assim ?

    Dim acesso As Integer

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

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



    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 15/05/2013

    Re: [Resolvido]random de NUMEROS

    Mensagem  maguim em 30/1/2018, 19:53

    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.


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]random de NUMEROS

    Mensagem  FabioPaes em 30/1/2018, 22:24

    Amigo, confesso que fiquei confuso:
    ... abrindo com mesmo numero diferente ...
    Explique melhor... Me diga o que pretende com esse RND().
    Se possivel manda Prints.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3462
    Registrado : 04/04/2010

    Re: [Resolvido]random de NUMEROS

    Mensagem  Avelino Sampaio em 30/1/2018, 22:39

    Olá!

    utilize o RANDOMIZE

    Sucesso!

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 15/05/2013

    Re: [Resolvido]random de NUMEROS

    Mensagem  maguim em 31/1/2018, 11:42

    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


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]random de NUMEROS

    Mensagem  FabioPaes em 31/1/2018, 12:41

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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 18/10/2018, 13:05