ACCESS数据库不支持自动化,但是可以通过ACCESS窗体VBA编程实现定时执行某个更新操作。
下面举例,利用窗体"定时器触发"事件过程,每天凌晨1点将数据表的A字段值增加10:
编写窗体打开事件过程:
Private Sub Form_Open(Cancel As Integer)
'设置窗体计时器间隔为1秒
Me.TimerInterval = 1000
End Sub
编写窗体“计时器触发”事件过程:
Private Sub Form_Timer()
Dim tm As String
tm = Format(Now(), "hh:nn:ss")
If tm > "01:00:59" Then Me.TimerInterval = 1000 '设置窗体计时器间隔恢复为1秒
If tm >= "01:00:00" And tm <= "01:00:59" Then
Dim strSql As String
strSql = "update t1 set a=a+10"
CurrentProject.Connection.Execute strSql
Me.TimerInterval = 60000 '设置窗体计时器间隔为60秒,防止一天执行多过一次
End If
End Sub
注意:窗体必须保持打开状态才能起到定时执行数据表更新操作