access模块与vba编程Access数据库功能模块讲解

导读Publica1AsIntegerPublicidnumAsLong，今天小编就来聊一聊关于access模块与vba编程?接下来我们就一起去研究一下吧!ac....

Public a1 As IntegerPublic idnum As Long，今天小编就来聊一聊关于access模块与vba编程?接下来我们就一起去研究一下吧!

access模块与vba编程

Public a1 As Integer

Public idnum As Long

Dim rs1 As DAO.Recordset 定义记录集变量

Private Sub Command抽奖1_Click()

If a1 = 1 Then

a1 = 0

rs1.Close

Else

a1 = 1

Set rs1 = CurrentDb.OpenRecordset("奖励表", dbOpenTable)

End If

End Sub

Private Sub Command抽奖2_Click()

If a1 = 1 Then

a1 = 0

rs1.Close

DoCmd.SetWarnings (False)

Dim del_sql As String

del_sql = "Delete From 奖励表 Where ID=" & idnum

DoCmd.RunSQL del_sql

Else

a1 = 1

Set rs1 = CurrentDb.OpenRecordset("奖励表", dbOpenTable)

End If

End Sub

Private Sub Command重置_Click()

DoCmd.SetWarnings (False)

Dim del_sql As String

del_sql = "Delete From 奖励表"

DoCmd.RunSQL del_sql

Dim update_sql As String

update_sql = "insert into 奖励表 select * From 奖励备份表"

DoCmd.RunSQL update_sql

End Sub

Sub 抽奖1()

On Error GoTo 抽奖完成

If a1 = 1 Then

Dim Record_count As Long

Record_count = rs1.RecordCount

Dim rnd_i As Long

--------------------------------------------------------

Randomize

rnd_i = Int((Record_count - 1 1) * Rnd 1)

rs1.MoveFirst

rs1.Move (rnd_i - 1)

Me.奖励 = rs1.Fields("奖励名称").Value

idnum = rs1.Fields("ID").Value

End If

Exit Sub

抽奖完成:

MsgBox "抽奖完成，重新抽奖可重置"

a1 = 0

rs1.Close

End Sub

Private Sub Form_Timer()

If a1 = 1 Then

Call 抽奖1

End If

End Sub