form hatası olayını aşağıdaki gibi düzenleyip dener misiniz?

 Private Sub Form_Error(DataErr As Integer, Response As Integer)

If DataErr = 3022 Then Response = 0

End Sub