计时器事件不会触发

Question

我想在Access-VBA中编写一个非常简单的代码。我想写一个按钮标题的时间，但我的代码不起作用。

Private Sub Form_Timer() 
Me.TimerInterval = 0 
Befehl94.Caption = Time 
End Sub 

你能帮我吗？

Answer 1

您需要在窗体的属性菜单上设置TimerInterval而不是“Form_Timer”事件，因为这是基于窗体属性中输入的值触发的。

的值是毫秒所以1000将导致定时器，每1秒跑完，“时间”功能也是不正确的，你的代码会更喜欢这样的：

Private Sub Form_Timer() 

    Befehl94.Caption = TimeSerial(Hour(Now()), Minute(Now()), Second(Now())) 

End Sub 

使用TimeSerial的会给你只是时间，而它自己的“现在（）”会给你TimeDate，你可以使用“格式”命令来代替，但我更喜欢TimeSerial

Answer 2

您需要大于零的间隔。将其设置为零将禁用定时器。您也可以使用Enabled属性启动和停止计时器。

另外（更贴切），你并不需要一个定时器达到你想要什么，你可以简单的写：

Befehl94.Caption= Now() 

要显示的日期和时间。调查Format函数根据需要格式化日期/时间。