Access计时事件实现

Access计时事件
通过设置窗体的“计时器间隔（TimerInterval）”属性与添加“计时器触发（Timer）”事件来完成“定时”功能
其处理过程：Timer事件每隔TimerInterval时间间隔就会被激发一次，并运行Timer事件过程来响应。

这样重复不断即实现“定时”处理功能。

例：使用计时事件Timer在窗体的一个标签上实现自动计数操作（从1开始）。

要求：窗体打开时开始计数，点击其上按钮则停止计数，再点击一次按钮继续计数。

窗体运行图如下所示：
操作步骤如下：
（1）创建窗体Timer，并在其上添加一个标签INum和一个按钮OK.。

（2）打开窗体属性窗口，设置“计时器间隔”属性值为1000（以毫秒为计量单位，1000表示间隔为1秒）并选择“计时器触发”属性为“事件过程”项，如下图所示。

（3）设计窗体“计时器触发”事件、窗体“打开”事件和OK.按钮“单击”
事件代码及有关变量的类模块定义如下：
Option Compare database
Dim flag As Boolean ’标志变量，用于存储按钮的单击动作Private Sub bOK_Click( ) ’按钮的单击事件
Flag=not flag
End Sub
Private Sub Form_Open(Cancel As Integer) ’窗体打开事件
Flag=true ’设置窗体打开时标志变量的初始状态为True End Sub
Private Sub Form_timer( ) ’计时器触发事件
If flag=true then ’根据标记标量决定是否进行屏幕更新Me!INum.Caption=val(me! INum.Caption)+1 ’标签更新endif
End Sub
说明：“计时器间隔”属性值也可以在代码中进行动态设置（me.TimerInterval=1000）可以通过设置“计时器间隔”属性值为零（me.TimerInterval=0）来终止Timer事件继续发生。