Вроде у меня была похожая проблема:
Также вешал проверку на BeforeUpdate, и не выпускал пользователя из поля, пока он не вводил значение, удовлетворяющее условиям.

Типа того:

Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo mistake
Dim i As Integer

Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("select * from Товары where Код=" & Me.КодТовара)
If rst!ТребоватьНомер = True And IsNull(Me.НомерТовара) Then
MsgBox "Не указан номер для товара!" & vbCrLf & "Для товара данной категории при списании необходимо указывать номер.", vbExclamation
Me.НомерТовара.SetFocus
rst.Close
Set rst = Nothing
End
End If

rst.Close
Set rst = Nothing

If IsNull(Me.НомерТовара) = False And Me.Количество <> 1 Then
MsgBox "Для товара этой категории количество должно быть равным 1" & vbCrLf & "Введите в поле Количество цифру 1", vbExclamation
Количество.SetFocus
End
End If

mistake_exit:
Exit Sub

mistake:
MsgBox Err.Description
Resume mistake_exit
End Sub

хм... если ввести неправильное значение и нажать крестик, то у меня тоже ругается маловразумительно.

нет, ты прав.