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