Accessで業務ソフト開発

Sub Sample()
On Error GoTo Err_Msg
    
    [処理]

    Exit Sub

Err_Msg:
    MsgBox "エラーが発生しました　エラー番号=" & Err.Number & "内容=" & Err.Description
End Sub

'イミディエイトウィンドウで実行してください。
'Call Sample2
'イミディエイトウィンドウに一覧が表示されます

Sub Sample2()
Dim i As Long
On Error GoTo Err_Msg

    For i = 1 To 10000
       Error i
    Next i
    Debug.Print "-----ここまで--------"

    Exit Sub

Err_Msg:
    If Err.Description <> "アプリケーション定義またはオブジェクト定義のエラーです。" Then
       Debug.Print Format$(Err.Number, "00000") & ":" & Err.Description
    End If
    Resume Next
End Sub