ACCESS VBA エラー発生時をイベントとしたプログラム

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Select Case DataErr
Case 3146
MsgBox “番号が重複しています”
Response = acDataErrContinue
Case 3162
MsgBox “番号が未入力です”
Response = acDataErrContinue

End Select
ActiveControl.Undo
End Sub