gebruik de gebeurtenis van de vorm beforeupdate
privé subform_beforeupdate (annuleer als geheel)
Als Me.Received.Value = Waar en IsNull (Me.DateHoldReleased) toen
msgbox „vereist gebied“
me.DateHoldReleased.setfocus
cancel=true
beëindig als
beëindig sub