[belajar-access] Tanya me-Random bilangan

Wed, 24 Oct 2007 20:37:48 -0700 

Hi semua pakar-pakar Access.


Saya mau tanya tentang cara mengambil angka secara acak. Hasil yang
diinginkan bilangan yang berada dalam range tertentu.
Saya sudah mencoba menggunakan fungsi RND, tapi hasilnya kurang
memuaskan. misalnya :

Private Sub Form_Timer()
    BanyakNama = List12.ListCount
    If BanyakNama < 10 Then
       DigitPeserta = 1
    Else
       DigitPeserta = 2
    End If
    
    Acak = Mid(Rnd(BanyakNama), 5, DigitPeserta)
    Text8 = Acak
End Sub

Misalkan BanyakNama=11, hasil dari Acak bisa lebih dari 11.
Padahal yang saya inginkan hasil Acak antara 0 sampai 11

Mohon bantuan dari semua pakar-pakar Belajar-Access

Terima Kasih

Dewok - Jbr

Kirim email ke