VBA, MS Access MS Access в примерах

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

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

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) Пример


Назад ToTop
L.E. 11.12.2017
Рейтинг@Mail.ru