タイマーイベントが発生しません

Question

非常に簡単なコードをAccess-VBAに書きたいと思います。私は、ボタンのキャプションで時間を書きたいが、私のコードは動作しません。

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

お願いします。

Answer 1

"Form_Timer"イベントではなくフォームのプロパティメニューでTimerIntervalを設定する必要があります。これは、フォームプロパティに入力された値に基づいてトリガーされるためです。

値はミリ秒単位であるので、1000年には、「タイム」機能も間違っているタイマーは、すべての1秒を実行するようになります、あなたのコードは、より多くのこのようになります：

Private Sub Form_Timer() 

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

End Sub 

TimeSerialないが、あなたを与えるだろう使い方私はTimeDateを与えてくれますが、代わりに "Format"コマンドを使うことができますが、私はTimeSerialを好むでしょう

Answer 2

0より大きい間隔が必要です。ゼロに設定すると、タイマーが無効になります。また、Enabledプロパティでタイマーを開始および停止することもできます。

（もっと適宜と）とは別に、あなたが望むものを達成するためにタイマーを必要としない、あなたは簡単に書くことができます。

Befehl94.Caption= Now() 

を日付と時刻を表示します。必要に応じて日付/時刻をフォーマットするFormat関数を調べます。