Cor de Snor
Gebruiker
- Lid geworden
- 27 okt 2001
- Berichten
- 74
Beste Lezer(es), Ik ben al een tijdje bezig met een invulformulier met 4 velden. Op het formulier een knop gemaakt "Record opslaan en sluiten". Nu wil ik bij gebruik van deze knop wanneer de velden "Funtie" en "Lid sinds" niet zijn ingevuld dat er een MSG verschijnt met de mededeling dat een veld niet is ingevuld en dat de cursor naar het lege veld gaat.
Private Sub Knop55_Click()
On Error GoTo Err_Knop55_Click
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
Exit_Knop55_Click:
Exit Sub
Err_Knop55_Click:
MsgBox Err.Description
Resume Exit_Knop55_Click
End Sub
Private Sub Knop55_Click()
On Error GoTo Err_Knop55_Click
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
Exit_Knop55_Click:
Exit Sub
Err_Knop55_Click:
MsgBox Err.Description
Resume Exit_Knop55_Click
End Sub