Событие таймера не срабатывает

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()

Показать дату и время. Изучите функцию Формат , чтобы отформатировать дату и время, как требуется.