計時器事件不會觸發

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函數根據需要格式化日期/時間。