生成随机数据Access数据库功能模块讲解VBA代码实例

　　Dim rs1 As DAO.Recordset
　　Private Sub Command生成数字_Click()
　　Dim minint As Single
　　Dim maxint As Single
　　If Me.最小数字 <> ＂＂ And Me.最大数字 <> ＂＂ Then
　　minint = Me.最小数字
　　maxint = Me.最大数字
　　If minint >= maxint Then
　　MsgBox ＂最小数字要小于最大数字＂
　　Exit Sub
　　End If
　　Else
　　MsgBox ＂请输入最大最小数字＂
　　Exit Sub
　　End If
　　If Me.生成数量 < 1 Or Me.生成数量 = ＂＂ Then
　　MsgBox ＂生成数量必须大于0＂
　　End If
　　Dim rndcount As Long
　　rndcount = Me.生成数量
　　DoCmd.SetWarnings (False)
　　Dim del_sql As String
　　del_sql = ＂Delete From 生成表＂
　　DoCmd.RunSQL del_sql
　　Dim add_rs As DAO.Recordset
　　Set add_rs = CurrentDb.OpenRecordset(＂生成表＂, dbOpenTable)
　　With add_rs
　　Dim i
　　For i = 1 To rndcount
　　.AddNew
　　!生成结果.Value = 生成随机数字(minint, maxint)
　　.Update
　　Next i
　　.Close
　　End With
　　Set add_rs = Nothing
　　MsgBox ＂生成完成＂
　　End Sub
　　Function 生成随机数字(ByVal minnum As Single, ByVal maxnum As Single) As Single
　　Randomize
　　生成随机数字 = Round((maxnum - minnum + 1) * Rnd + minnum, 2)
　　End Function
　　Private Sub Command生成项目_Click()
　　Dim itemcount As Long
　　itemcount = Nz(DCount(＂项目＂, ＂随机项目＂), 0)
　　If itemcount < 2 Then
　　MsgBox ＂随机项目必须大于1＂
　　Exit Sub
　　End If
　　If Me.生成数量 < 1 Or Me.生成数量 = ＂＂ Then
　　MsgBox ＂生成数量必须大于0＂
　　End If
　　Dim rndcount As Long
　　rndcount = Me.生成数量
　　DoCmd.SetWarnings (False)
　　Dim del_sql As String
　　del_sql = ＂Delete From 生成表＂
　　DoCmd.RunSQL del_sql
　　Dim add_rs As DAO.Recordset
　　Set add_rs = CurrentDb.OpenRecordset(＂生成表＂, dbOpenTable)
　　With add_rs
　　Dim i
　　For i = 1 To rndcount
　　.AddNew
　　!生成结果.Value = 获取随机项目(itemcount)
　　.Update
　　Next i
　　.Close
　　End With
　　Set add_rs = Nothing
　　MsgBox ＂生成完成＂
　　End Sub
　　Function 获取随机项目(ByVal maxnum As Long) As String
　　Dim Record_count As Long
　　Record_count = maxnum
　　Dim rnd_i As Long
　　Randomize
　　rnd_i = Int((Record_count - 1 + 1) * Rnd + 1)
　　rs1.MoveFirst
　　rs1.Move (rnd_i - 1)
　　获取随机项目 = rs1.Fields(＂项目＂).Value
　　End Function
　　Function 生成随机整数(ByVal minnum As Long, ByVal maxnum As Long) As Long
　　Randomize
　　生成随机整数 = Int((maxnum - minnum + 1) * Rnd + minnum)
　　End Function
　　Private Sub Command生成整数_Click()
　　Dim minint As Long
　　Dim maxint As Long
　　If Me.最小整数 <> ＂＂ And Me.最大整数 <> ＂＂ Then
　　minint = Me.最小整数
　　maxint = Me.最大整数
　　If minint >= maxint Then
　　MsgBox ＂最小整数要小于最大整数＂
　　Exit Sub
　　End If
　　Else
　　MsgBox ＂请输入最大最小整数＂
　　Exit Sub
　　End If
　　If Me.生成数量 < 1 Or Me.生成数量 = ＂＂ Then
　　MsgBox ＂生成数量必须大于0＂
　　End If
　　Dim rndcount As Long
　　rndcount = Me.生成数量
　　DoCmd.SetWarnings (False)
　　Dim del_sql As String
　　del_sql = ＂Delete From 生成表＂
　　DoCmd.RunSQL del_sql
　　Dim add_rs As DAO.Recordset
　　Set add_rs = CurrentDb.OpenRecordset(＂生成表＂, dbOpenTable)
　　With add_rs
　　Dim i
　　For i = 1 To rndcount
　　.AddNew
　　!生成结果.Value = 生成随机整数(minint, maxint)
　　.Update
　　Next i
　　.Close
　　End With
　　Set add_rs = Nothing
　　MsgBox ＂生成完成＂
　　End Sub
　　Private Sub Form_Load()
　　Set rs1 = CurrentDb.OpenRecordset(＂随机项目＂, dbOpenTable)
　　End Sub