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
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