Clear-Methode

Löscht alle Eigenschaftseinstellungen des Err-Objekts.

Syntax

object.Clear

Argumente:

Object: Erforderlich. Immer das Err-Objekt.

Anmerkungen

Verwenden Sie Clear, um das Err-Objekt explizit zu löschen, nachdem ein Fehler behandelt wurde. Dies ist zum Beispiel erforderlich, wenn Sie die verzögerte Fehlerbehandlung mit "On Error Resume Next" verwenden. BSL ruft die Clear-Methode automatisch auf, wenn eine der folgenden Anweisungen ausgeführt wird:

On Error Resume Next
Exit Sub
Exit Function

Das folgende Beispiel veranschaulicht die Verwendung der Clear-Methode.

Beispiel 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

Beispiel 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