Clearメソッド

Errオブジェクトのすべてのプロパティ設定をクリアします。

構文

object.Clear

引数:

Object: 必須。常にErrオブジェクト。

備考

Clearを使用して、エラーの処理後にErrオブジェクトを明示的にクリアします。これは、たとえば、On Error Resume Nextで遅延エラー処理を使用する場合に必要です。BSLは、次のいずれかの文が実行されるたびに、Clearメソッドを自動的にコールします:

On Error Resume Next
Exit Sub
Exit Function

次の例では、Clearメソッドの使用方法を示します。

例1:

Sub RaiseAndClearError()
    On Error Resume Next       ' Enable error handling.
    Err.Raise 6                ' Raise an overflow error.
     Output1 =  "error number here " & Err.Number     

     Err.Clear                  ' Clear the error.
    ' Check if the error is cleared.
Output2 = "error number is cleared here " & Err.Number
End Sub
'Output1: error number here 6
'Output2: error number is cleared here 0

例2:

Sub InnerProcedure()
    On Error Resume Next
    Err.Raise 9         
    Output1 = "Raising error here " & Err.Number
    Err.Clear           
    Output2 = "Error cleared here " & Err.Number
End Sub
Sub OuterProcedure()
    On Error Resume Next
    InnerProcedure      ' Call the inner procedure.
   'OuterProcedure Completed
End Sub
Call OuterProcedure

'Output1: Raising error here 9
'Output2: Error cleared here 0