Ham ngau nhien trong Access

[truongnb]

Co bac nao biet ham ngau nhien trong Access khong.Noi giup cho em voi
Cam on nhieu

[hongthailha]

Co bac nao biet ham ngau nhien trong Access khong.Noi giup cho em voi
Cam on nhieu

Option Compare Database

Private Sub cmdBatDau_Click()
Me.TimerInterval = 50
Randomize ' Chuẩn bị tạo số ngẫu nhiên
End Sub

Private Sub cmdKetQua_Click()
Me.TimerInterval = 0 ' Khi nhấn thì ngừng và trở về giá trị 0
End Sub

Private Sub CmdLai_Click() 'xóa text
TxtSo1 = ""
TxtSo2 = ""
TxtSo3 = ""
TxtSo4 = ""
TxtSo5 = ""

End Sub

Private Sub Form_Open(Cancel As Integer)
DoCmd.Restore
Me.Caption = " "
End Sub

Private Sub Form_Timer()
'Tạo số ngẫu nhiên từ 1 đén 9
TxtSo1 = Int((9 * Rnd()) + 0)
TxtSo2 = Int((9 * Rnd()) + 0)
TxtSo3 = Int((9 * Rnd()) + 0)
TxtSo4 = Int((9 * Rnd()) + 0)
TxtSo5 = Int((9 * Rnd()) + 0)
End Sub

[Phuong QB]

Trong VBA có dùng hàm Rnd -> trả về giá trị kiểu số thực từ 0.0 đến 1.0
bạn có thể kết hợp các phép toán +,-,*,/ và hàm Int để tạo số nguyên ngẫu nhiên trong khoảng nào đó