MyTetra Share
Делитесь знаниями!
Использование таймера в форме (Начинаем, продолжаем - останавливаем)
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 05 Формы

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

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

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



Picture




Скачать

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

Прикрепленные файлы:
Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования