Form_Errorの対処： Access

■ Access VBA 実行コード

Private Sub Form_Error (DataErr As Integer, Response As Integer)
    Select Case DataErr
        Case 3163
            MsgBox "入力文字数が長すぎます。"
            Response = acDataErrContinue 'Accessエラーダイアログを表示しない
        Case Else
            Response = acDataErrDisplay 'Accessエラーダイアログ表示
    End Select
End Sub