计时器事件不会触发

Question

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

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

你能帮我吗？

Answer 1

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

单独（并且更有针对性），你不需要一个Timer来实现你想要的，你可以简单地写：

   Befehl94.Caption= Now()

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

Answer 2

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

该值以毫秒为单位，因此1000将导致计时器每1秒运行一次，“时间”功能也不正确，您的代码将更像这样：

Private Sub Form_Timer()

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

End Sub

使用TimeSerial会给你一些时间，而它自己的“Now（）”会给你TimeDate，你可以使用“Format”命令，但我更喜欢TimeSerial