используйте случай beforeupdate формы
приватное sub form_beforeupdate (cancel как интежер)
Если Me.Received.Value = True и IsNull (Me.DateHoldReleased) после этого
msgbox «требовало поля»
me.DateHoldReleased.setfocus
cancel=true
закончитесь если
закончите подводную лодку