Использование таймера в форме (Начинаем, продолжаем - останавливаем)

Код из примера:

Private dtTimeStart As Date 'время Запуска Таймера

Private dtFormTimeStart As Date 'время из поля

Private Sub cmdStart_Click()

dtTimeStart = Now

dtFormTimeStart = Me!txtTime

Me.TimerInterval = 1000 'On = 1 сек.

End Sub

Private Sub cmdStop_Click()

Me.TimerInterval = 0 'Off

End Sub

Private Sub Form_Current()

cmdStop_Click

End Sub

Private Sub Form_Timer()

Dim dtFormTime As Date

Dim dtTimePassed As Date 'время прошедшее с открытия

dtTimePassed = Now - dtTimeStart

'Debug.Print "TimePassed: " & Format(dtTimePassed, "dd.mm.yyyy hh:nn:ss")

Me!txtTimePassed = dtTimePassed

dtFormTime = dtFormTimeStart + dtTimePassed

'Debug.Print "FormTime: " & Format(dtFormTime, "dd.mm.yyyy hh:nn:ss")

'Пишем новое значение в поле ...

Me!txtTime = dtFormTime

Me.Dirty = False 'Сохраняем на случай перехода по записям ...

End Sub

MSA-2003 + MSA-2007 ( 60 kB) Пример