Gerar números aleatórios

Question

Olá, 

Estou precisando gerar uma sequência de números

    

atualmente uso esse código para gerar no Excel, mas gostaria de usar o access como minha base de dodos. Se tiver como, eu agradeço. Obrigado 

Private Sub CommandButton1_Click()

Const strDestino As String = "A1:a20"
Dim n As Long
Dim r As Long
Dim Col As Collection
Randomize Timer

n = Me.txt_inicial.Text
r = Me.txt_final
  Set Col = New Collection

  On Error Resume Next
    Do
    n = Int(Rnd * Me.txt_final) + Me.txt_inicial
    Col.Add n, CStr(n)
    Loop Until Col.Count = Me.txt_final
     For n = 1 To Me.txt_final
        Range(strDestino).Cells(n) = Col(n)
        Next n
        On Error GoTo 0
End Sub

Answer 1

de uma olhada neste link

  Gerar numeros aleatórios

Answer 2

oi não sei se entendi bem mais tenta isso

Link

Answer 3

Boa tarde,

Por falta de retorno essa thread está encerrada.

Se necessário favor abrir uma nova thread.

Atenciosamente,

---

Filipe B de Castro

Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

MSDN Community Support

Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.