Microsoft Access 掲示板

Microsoft Access 掲示板

エラーメッセージを回避したい / 1
1
hatena 2023/04/13 (木) 10:00:22

LostFocusイベントが発生する前にエラーメッセージが出ますので、LostFocusイベントでは手遅れですね。
LostFocusイベントより前に発生するBeforeUpdate(更新前処理)イベントでも手遅れです。

どうするかというと、フォームの方の「エラー時」イベントで処理します。

Form.Error イベント (Access) | Microsoft Learn

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    If DataErr = 2113 Then 'データ型違反
        Response = acDataErrContinue '規定のエラーメッセージを出さない
        MsgBox "数値を入力して下さい"
    End If
    ActiveControl.Undo '元に戻す
End Sub
通報 ...