indset timer

Der findes allerede en på formularene. Der er en egenskab som hedder Timerinterval (tæller i millisekunder). Hændelsen VedTimerudløb aktiveres hver gang timeren udløber.

Hvis dette ikke duer, så kan du lave et klassemodul (Menun Indsæt->Klassemodul, når du står i databasevinduet) og lægge denne kode deri:
Private Declare Function timeGetTime _
Lib "Winmm.dll" () As Long

Private lngStartTime As Long

Public Sub StartTimer()
    ' Start the timer, storing the value in
    ' the module global, lngStartTime.

    lngStartTime = timeGetTime()
End Sub

Public Function StopTimer() As Long
    ' End timing, and return the difference between the
    ' current time and lngStartTime
   
    StopTimer = timeGetTime() - lngStartTime
End Function


Gem modulet og kald det "StopWatch".

Herefter kan du benytte det således:
Public Sub TestStopWatch()
    Dim Ur As New StopWatch
    Ur.StartTimer
    '...
    'gør en masse her
    '...
    MsgBox Ur.StopTimer
End Sub

takker