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

有網友問到如何隨機産生一箇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