Goede avond mensen...
Ik heb het volgende stukje vb code in mijn edir_klant formulier
Private Sub save_record_Click()
On Error GoTo Err_save_record_Click
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Resultaten"
stLinkCriteria = "[Klantnummer]=" & Me![Klantnummer]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_save_record_Click:
Exit Sub
Err_save_record_Click:
MsgBox Err.Description
Resume Exit_save_record_Click
End Sub
Nu moet hij het formulier edit_klant sluiten en het formulier Resultaten openen wanneer ik op 1knop klik...
Maar als ik het hier bovenstaande script gebruik sluit hij wel het formulier edit_klant maar hij geeft dan de volgende foutmelding:
The expression you entered refers to an object that is closed or doesn't exist
Hoe krijg ik dit voor elkaar?!
Ik heb het volgende stukje vb code in mijn edir_klant formulier
Private Sub save_record_Click()
On Error GoTo Err_save_record_Click
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Resultaten"
stLinkCriteria = "[Klantnummer]=" & Me![Klantnummer]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_save_record_Click:
Exit Sub
Err_save_record_Click:
MsgBox Err.Description
Resume Exit_save_record_Click
End Sub
Nu moet hij het formulier edit_klant sluiten en het formulier Resultaten openen wanneer ik op 1knop klik...
Maar als ik het hier bovenstaande script gebruik sluit hij wel het formulier edit_klant maar hij geeft dan de volgende foutmelding:
The expression you entered refers to an object that is closed or doesn't exist
Hoe krijg ik dit voor elkaar?!