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

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

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

Option Explicit
Private dTimeStart As Date       'время Запуска Таймера
Private dFormTimeStart  As Date  'время из поля

Private Sub cmdClear_Click()
    dTimeStart = Now
    dFormTimeStart = 0
    Me!txtTime = 0
    Me!txtTimePassed = 0
End Sub

Private Sub cmdStart_Click()
    dTimeStart = Now
    dFormTimeStart = Nz(Me!txtTime, 0)
    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 dFormTime  As Date
Dim dTimePassed As Date      'время прошедшее с открытия
    dTimePassed = Now - dTimeStart
    Me!txtTimePassed = dTimePassed
    dFormTime = dFormTimeStart + dTimePassed
'Пишем новое значениев в поле ....
    Me!txtTime = dFormTime

End Sub


Picture




Скачать

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


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