См.: https://docs.microsoft.com/ru-ru/office/vba/api/access.form.beforeupdate-event
Private Sub FIELD_NAME_BeforeUpdate(Cancel As Integer)
...
Cancel = True
Me!FIELD_NAME.Undo
End Sub