窗体中有一个标签控件 Me!LNum.Caption,其控件标题 Me!LNum.Caption,用来显示时间,如果 Me!LNum.Caption起初被赋值了字符串,而不是 Me!LNum.Caption=0(零),数值,就会造成题目中提到的类型错误。
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!LNum.Caption = CLng(Me!LNum.Caption) + 1 '标签更新
End If
End Sub