Privé SubForm_Unload (annuleer als Geheel)
Als txtbox1 = „hier“ toen binnenga
MsgBox „te gaan gelieve eerst gegevens in in textbox“
txtbox1.SetFocus
Annuleer = Waar
ElseIf txtbox2 = „gaat hier binnen“ toen
MsgBox „te gaan gelieve gegevens in tweede in textbox“
txtbox2.SetFocus
Annuleer = Waar
Beëindig als
Beëindig Sub
|