Access隨機生成一箇8到10位的整數

2017-09-05 16:43:00
tmtony8
原創
913

有網友問到如何隨機産生一箇8到10位的純數字,併且寫入錶中作爲主鍵?

這裡隻需要用到Rnd 函數

返迴一箇包含隨機小於 1 但大於或等於 0 的值。


爲瞭生成某箇範圍內的隨機整數,可使用以下公式:

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

這裡,upperbound 是隨機數範圍的上限,而 lowerbound 則是隨機數範圍的下限。





詳細源碼:

Private Sub Command2_Click()

    Me.Text0 = Int(9990000000# * Rnd + 10000000)

    

End Sub


Private Sub Command3_Click()

    CurrentDb.Execute "insert into t1(tno) values('" & Me.Text0 & "')"   

End Sub

分享