Metodo Clear

Cancella tutte le impostazioni delle proprietà dell'oggetto Err.

Sintassi

object.Clear

Argomenti:

Object: obbligatorio. Sempre l'oggetto Err.

Note

Utilizzare Clear per cancellare in modo esplicito l'oggetto Err dopo la gestione di un errore. Ciò si rende necessario, ad esempio, quando si utilizza la gestione differita degli errori con l'istruzione On Error Resume Next. BSL chiama automaticamente il metodo Clear ogni volta che viene eseguita una delle seguenti istruzioni:

On Error Resume Next
Exit Sub
Exit Function

Nell'esempio seguente viene illustrato l'uso del metodo Clear.

Esempio 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

Esempio 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