Stop de pause

[LuckyFm]

Fijne forum leden,

ik heb een module pause

Public Function Pause(NumberOfSeconds As Variant)
On Error GoTo Err_Pause

    Dim PauseTime As Variant, Start As Variant

    PauseTime = NumberOfSeconds
    Start = Timer
    Do While Timer < Start + PauseTime
    DoEvents
    Loop

Exit_Pause:
    Exit Function

Err_Pause:
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_Pause

End Function

in mijn Form staat:

Pause (30)
DoCmd.Close acForm, "From1"
DoCmd.OpenForm "Form2"

Form1 meld de spelers voor de volgende partij

Form 2 de actuele stand

om de 30 seconden sluit Form1 en opent Form2 (als een soort pauze vuller tussen twee partijen)

Nu wil ik graag dat ik deze cyclus kan door breken met een commandbutton op Form1, maar dat gaat niet de pauze loopt gewoon door en wanneer de 30 seconden vol zijn opent keurig Form2.

heeft iemand een suggestie hoe ik deze functie kan onderbreken??

alvast bedankt voor het mee denken.

 

[perpon]

Je kan bij de Commandbutton de volgende code opnemen.
Bij het indrukken van q of Q krijgt de globale variabele P_QuitPauze de waarde True.
De Commandbutton moet dan wel de focus hebben!

Private Sub KnCommandButton_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 81 Or KeyCode = 113 Then P_QuitPauze = True
End Sub

Je pause routine wordt dan
:

Public Function Pause(NumberOfSeconds As Variant)
On Error GoTo Err_Pause

    Dim PauseTime As Variant, Start As Variant

    PauseTime = NumberOfSeconds
    Start = Timer
    Do While Timer < Start + PauseTime
    if P_quitkey then 
      P_quitkey=False
      exit loop 
    End if 
    DoEvents
    Loop

Exit_Pause:
    Exit Function

Err_Pause:
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_Pause

End Function

Jan

 

[LuckyFm]

Hoi Perpon,

Bedankt voor je suggestie.
helaas werkt dat niet zit nu een fout in mijn module.

exit loop

wordt onmiddellijk rood en wordt ook als fout aangegeven als ik mijn knop indruk

gr.

 

[OctaFish]

Exit loop is ook fout; moet Exit Do zijn.

 

[LuckyFm]

Opgelost

Heren,

bij deze bedankt voor de oplossing