項目

エラーを発生させる

概要

Err.Raiseにより、自分で定義したエラーを発生させる事ができます。
また定義済エラーを発生させる事ができます。
例外処理のテストにも利用できます。

例

Option Compare Database
Option Explicit

'--------------------------------------------------------
' 名称    : errRaiseTest
'
' 機能    : エラーを発生させる
'--------------------------------------------------------
Sub errRaiseTest()

    On Error Resume Next
    
    '----------------------------------
    ' 定義済エラーを発生させる
    '----------------------------------
    
    'ファイル存在を確認しなかった場合
    '「ファイルが見つかりません」エラーを発生させる
    If Dir("c:\temp\hoge.txt") = "" Then
        Err.Raise 53
    End If
    
    'エラー内容の出力
    Debug.Print Err.Number, Err.Description
    
    '----------------------------------
    ' ユーザー定義のエラーを発生させる
    ' ※'ユーザー定義のエラーに使用できるのは、513 〜 65535 の範囲の値
    '----------------------------------
    Err.Raise 513, "user err", "user error test"
    
     'エラー内容の出力
    Debug.Print Err.Number, Err.Description
    
    Exit Sub

End Sub