använd datalistans beforeupdatehändelsen
privat underform_beforeupdate (annulleringen som heltal)
Om Me.Received.Value = True och IsNull (Me.DateHoldReleased) därefter
msgbox ”krävde sätter in”,
me.DateHoldReleased.setfocus
cancel=true
avsluta om
avsluta suben