Access随机生成一个8到10位的整数

2017-09-05 16:43:00
黄善超
原创
181

有网友问到如何随机产生一个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

分享