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

    Como escolher um registro aleatório (numérico) de uma tabela de números?

    Compartilhe

    gordo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 10/10/2011

    Como escolher um registro aleatório (numérico) de uma tabela de números?

    Mensagem  gordo em Dom 16 Abr 2017, 13:53

    Como faço para escolher um registro aleatório (numérico) de uma tabela de números?

    Abaixo, segue parte do código que estou utilizando:

    For i = 1 To 20
       a = Rnd(rcsJogosSorteados!D1)
       b = Rnd(rcsJogosSorteados!D2)
       c = Rnd(rcsJogosSorteados!D3)
       d = Rnd(rcsJogosSorteados!D4)
       e = Rnd(rcsJogosSorteados!D5)
       f = Rnd(rcsJogosSorteados!D6)
       v(1) = a
       v(2) = b
       v(3) = c
       v(4) = d
       v(5) = e
       v(6) = f
     
    ReDim v1(1 To 6) As Variant
       v1(1) = v(1)
       v1(2) = v(2)
       v1(3) = v(3)
       v1(4) = v(4)
       v1(5) = v(5)
       v1(6) = v(6)
     
       v1 = BubbleSrt(v1, True)
       For j = LBound(v1) To UBound(v1)
       Next j
     
       
       With rcsJog6Dezenas
           .AddNew
               !n1 = v1(1)
               !n2 = v1(2)
               !n3 = v1(3)
               !n4 = v1(4)
               !n5 = v1(5)
               !n6 = v1(6)
           .Update
       End With

    Next i


    No código acima, Rnd(rcsJogosSorteados!D1) escolhe aleatoriamente o número "2" que realmente existe na coluna D1. Entretanto, a variável "a" não recebe o valor 2, e sim o valor 1. Rnd(rcsJogosSorteados!D2) escolhe aleatoriamente o valor "18" que existe na coluna D2, mas a variável "b" não recebe o valor 18, e sim 0,533424. O mesmo acontece para as demais situações. Como resolvo isso?
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9546
    Registrado : 04/11/2009

    Re: Como escolher um registro aleatório (numérico) de uma tabela de números?

    Mensagem  JPaulo em Seg 17 Abr 2017, 09:41

    Dê uma espreitada;

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qui 21 Set 2017, 02:36