アクセスVBAの部屋

VBA Homeへ戻る

エラーの内容を表示させる

概要

VBA実行時に発生するエラー番号とエラーメッセージを表示させることができます。

書式

エラーメッセージの中エラー番号とエラー内容を表示させるコマンドをいれます。

Sub macro1()
　On Error GoTo macro1_Err
　‘（エラーが発生する処理）
　macro1_Err:
　MsgBox "エラーが発生しました　エラー番号=" & Err.Number & "内容=" & Err.Description
　End Sub

作成例

エラー番号とエラー内容が表示されるようにしました。

Sub macro1()
　On Error GoTo macro1_Err
　Dim num1 As Integer, num2 As Integer, result As Double
　num1 = 10
　num2 = 0
　result = num1 / num2
　MsgBox "計算結果は " & result & " です"
　Exit Sub
macro1_Err:
　MsgBox "エラーが発生しました　エラー番号=" & Err.Number & "内容=" & Err.Description
End Sub

次の結果表示が出ました。

（この項終わり）