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

　　Dimrs1AsDAO。Recordset
　　PrivateSubCommand生成数字Click（）
　　DimminintAsSingle
　　DimmaxintAsSingle
　　IfMe。最小数字AndMe。最大数字Then
　　minintMe。最小数字
　　maxintMe。最大数字
　　IfminintmaxintThen
　　MsgBox最小数字要小于最大数字
　　ExitSub
　　EndIf
　　Else
　　MsgBox请输入最大最小数字
　　ExitSub
　　EndIf
　　IfMe。生成数量1OrMe。生成数量Then
　　MsgBox生成数量必须大于0
　　EndIf
　　DimrndcountAsLong
　　rndcountMe。生成数量
　　DoCmd。SetWarnings（False）
　　DimdelsqlAsString
　　delsqlDeleteFrom生成表
　　DoCmd。RunSQLdelsql
　　DimaddrsAsDAO。Recordset
　　SetaddrsCurrentDb。OpenRecordset（生成表，dbOpenTable）
　　Withaddrs
　　Dimi
　　Fori1Torndcount
　　。AddNew
　　！生成结果。Value生成随机数字（minint，maxint）
　　。Update
　　Nexti
　　。Close
　　EndWith
　　SetaddrsNothing
　　MsgBox生成完成
　　EndSub
　　Function生成随机数字（ByValminnumAsSingle，ByValmaxnumAsSingle）AsSingle
　　Randomize
　　生成随机数字Round（（maxnumminnum1）Rndminnum，2）
　　EndFunction
　　PrivateSubCommand生成项目Click（）
　　DimitemcountAsLong
　　itemcountNz（DCount（项目，随机项目），0）
　　Ifitemcount2Then
　　MsgBox随机项目必须大于1
　　ExitSub
　　EndIf
　　IfMe。生成数量1OrMe。生成数量Then
　　MsgBox生成数量必须大于0
　　EndIf
　　DimrndcountAsLong
　　rndcountMe。生成数量
　　DoCmd。SetWarnings（False）
　　DimdelsqlAsString
　　delsqlDeleteFrom生成表
　　DoCmd。RunSQLdelsql
　　DimaddrsAsDAO。Recordset
　　SetaddrsCurrentDb。OpenRecordset（生成表，dbOpenTable）
　　Withaddrs
　　Dimi
　　Fori1Torndcount
　　。AddNew
　　！生成结果。Value获取随机项目（itemcount）
　　。Update
　　Nexti
　　。Close
　　EndWith
　　SetaddrsNothing
　　MsgBox生成完成
　　EndSub
　　Function获取随机项目（ByValmaxnumAsLong）AsString
　　DimRecordcountAsLong
　　Recordcountmaxnum
　　DimrndiAsLong
　　Randomize
　　rndiInt（（Recordcount11）Rnd1）
　　rs1。MoveFirst
　　rs1。Move（rndi1）
　　获取随机项目rs1。Fields（项目）。Value
　　EndFunction
　　Function生成随机整数（ByValminnumAsLong，ByValmaxnumAsLong）AsLong
　　Randomize
　　生成随机整数Int（（maxnumminnum1）Rndminnum）
　　EndFunction
　　PrivateSubCommand生成整数Click（）
　　DimminintAsLong
　　DimmaxintAsLong
　　IfMe。最小整数AndMe。最大整数Then
　　minintMe。最小整数
　　maxintMe。最大整数
　　IfminintmaxintThen
　　MsgBox最小整数要小于最大整数
　　ExitSub
　　EndIf
　　Else
　　MsgBox请输入最大最小整数
　　ExitSub
　　EndIf
　　IfMe。生成数量1OrMe。生成数量Then
　　MsgBox生成数量必须大于0
　　EndIf
　　DimrndcountAsLong
　　rndcountMe。生成数量
　　DoCmd。SetWarnings（False）
　　DimdelsqlAsString
　　delsqlDeleteFrom生成表
　　DoCmd。RunSQLdelsql
　　DimaddrsAsDAO。Recordset
　　SetaddrsCurrentDb。OpenRecordset（生成表，dbOpenTable）
　　Withaddrs
　　Dimi
　　Fori1Torndcount
　　。AddNew
　　！生成结果。Value生成随机整数（minint，maxint）
　　。Update
　　Nexti
　　。Close
　　EndWith
　　SetaddrsNothing
　　MsgBox生成完成
　　EndSub
　　PrivateSubFormLoad（）
　　Setrs1CurrentDb。OpenRecordset（随机项目，dbOpenTable）
　　EndSub