Question

I want to write a very simple code in Access-VBA. I want to write the time in a button caption, but my code does not work.

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

Could you please help me?

Answer 1

You will need to set the TimerInterval on the form’s properties menu rather than the “Form_Timer” event as this is triggered based on the value entered in the forms properties.

The value is in milliseconds so 1000 will cause the timer to run every 1 seconds, the “Time” function is also incorrect, your code would be more like this:

Private Sub Form_Timer()

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

End Sub

Using TimeSerial will give you just the time whereas “Now()” on it’s own will give you TimeDate, you could use the “Format” command instead but I prefer TimeSerial