エラー発生時にメッセージボックスを表示させる。
ON ERROR GO TO ステートメントなどを使用している場合、その処理を動かす前等に記述しておくとよい。
以下はその一例。
Dim IntRes As Integer 'ボタンの状態を表す数値用に宣言しておく
'IntRes → ボタンの状態を表す数値
'例: 初期処理中のエラー表示
IntRes = MsgBox("〇〇処理でエラーが発生しました。" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"エラー内容:" & Err.Description, vbOKOnly + vbCritical, "〇〇処理")
'例: データ抽出処理中のエラー表示
IntRes = MsgBox("××処理でエラーが発生しました。" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"エラー内容:" & p_StrErrTxt, vbOKOnly + vbCritical, "××処理")
'例: 該当データが0件だった時のエラー表示
IntRes = MsgBox("該当データが存在しませんでした。", vbOKOnly + vbExclamation, "△△処理")