Доступ немного противоречив в том, как отменить событие.
Чтобы отменить подобные сообщения об ошибках, используйте DoCmd.CancelEvent
.
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3162 then
MsgBox"ABC"
DoCmd.CancelEvent
End if
End sub