Método Clear

Borra todos los valores de propiedad del objeto Err.

Sintaxis

object.Clear

Argumentos:

Object: necesario. Siempre es el objeto Err.

Observaciones

Utilice Clear para borrar explícitamente el objeto Err una vez que se haya manejado un error. Esto es necesario, por ejemplo, cuando se utiliza el manejo de errores diferidos con On Error Resume Next. BSL llama al método Clear automáticamente cada vez que se ejecuta cualquiera de las siguientes sentencias:

On Error Resume Next
Exit Sub
Exit Function

En el siguiente ejemplo se muestra el uso del método Clear.

Ejemplo 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

Ejemplo 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