code gaat meteen door naar volgende query zonder te wachten?

[lab4]

in een code staat:

Private Sub Command3_Click()
On Error GoTo Err_cmdCommand3_Click

'Laad de namen van de te draaien query's in het geheugen
Dim strQryprevoorloads2 As String
Dim strfrmLoadsForPicking As String
Dim strMessage1 As String
Dim strMessage1Titel As String
Dim strMessage2 As String
Dim strMessage2Titel As String
Dim strqappVolumesPerLoad1 As String

'Definieer de query, teksten, e.d. namen
strQryprevoorloads2 = "Qappprevoorloads2"
strfrmLoadsForPicking = "frmLoadsForPicking"
strMessage1 = "Het volgende scherm laat het slotnummer en ritnummer zien, controleer of de gegevens juist zijn en verwijder, bewerk of voeg gegevens toe zodat het klopt."
strMessage1Titel = "Controleer gegevens"
strMessage2 = "Zijn de gegevens correct?"
strMessage2Titel = "Waarschuwing"
strqappVolumesPerLoad1 = "qappVolumesPerLoad1"

'Start de betreffende query's
DoCmd.OpenQuery (strQryprevoorloads2), acViewNormal
MsgBox (strMessage1), vbOKOnly, strMessage1Titel
DoCmd.OpenForm (strfrmLoadsForPicking), acFormDS

CODE OM TE WACHTEN? ??? ??

DoCmd.OpenQuery (strqappVolumesPerLoad1), acViewNormal

Exit_Command3_Click_Click:
Exit Sub

Err_cmdCommand3_Click:
MsgBox Err.Description
Resume Exit_Command3_Click_Click

End Sub

Hij moetbij code om te wachten iets meekrijgen zodat hij pas naar DoCmd.OpenQuery (strqappVolumesPerLoad1), acViewNormal toe gaat zodra het formulier gesloten wordt.

robert

 

[beheer25]

Makkelijkst te implemeteren oplossing:

Maak een aparte sub van het laatste deel van je code en roep dat in de onClose van het formulier aan.


Grtz,

 

[lab4]

D'oh

Thanks :thumb: