Stopwatch in Access

[Lontmanen]

Hallo,

Ik zou graag in Access een stopwatch willen hebben.
Ik kan wel vinden hoe dit eventueel in Excel zou kunnen,
maar weet niet hoe dit dan in Access moet.
Ik krijg het wel voor elkaar dat als ik op de knop start druk
hij de seconden laat zien in een label met de volgende code:

Public timing As Double
Public running As Boolean
Private Sub cmdStart_Click()
timing = Timer
running = True
Do While running
lblTijd.Caption = Format((Timer) - timing, "0.0") & " seconden"
DoEvents
Loop
End Sub

En snap ook hoe ik de tijd evt. moet stilzetten met

Private Sub cmdStop_Click()
running = False
End Sub

Maar ik snap niet hoe ik hem dan vervolgens weer verder kan laten lopen, vanaf waar hij gebleven is.

In mijn echte programma wil ik de stopwatch bij het drukken op start aan zetten.
En vervolgens een aantal andere processen laten lopen.
En wanneer die processen klaar zijn, de stopwatch stoppen.
Het is een soort van quiz waarbij je alle vragen goed moet hebben,
en daarbij de tijd wil weten die je erover doet.
Maar hij blijft nu in de loop van de stopwatch hangen,
en gaat niet verder met de andere processen.

Hoe los ik dit op?

 

[baws]

Private Sub cmdVerder_Click()
running = True
End Sub

 

[OctaFish]

Denk 't toch niet.... Bij mij althans doet 't niks, en ik had ook niet anders verwacht.
Dit werkt wel:

Public timing As Double, starttijd As Double, eindtijd As Double
Public running As Boolean

Private Sub cmdTimer_Click()
    timing = Timer
    running = True
    Do While running
        If Nz(starttijd, 0) = 0 Then
            Me.lblTijd.Caption = Format(((Timer) - timing), "0.0") & " seconden"
        Else
            Me.lblTijd.Caption = Format((starttijd + Timer - timing), "0.0") & " seconden"
        End If
        DoEvents
    Loop
End Sub

Private Sub cmdStop_Click()
    eindtijd = Format(Timer - timing), "0.0")
    starttijd = eindtijd + starttijd
    running = False
End Sub

Oftwel: voeg een extra variabele toe die de eindtijd vastlegt, en gebruik die om op te tellen bij de tijd als je op Start klikt.

 

[Bakk4318]

Het is niet van mij, maar ik had het nog ergens op de plank liggen. Misschien kun je er wat mee.
Bekijk bijlage Stopwatch.rar