Clear (Método, objeto Err)

Artículo
10/07/2008

Actualización: noviembre 2007

Borra todos los valores de las propiedades del objeto Err.

object.Clear

Parámetros

object
Siempre el objeto Err.

Comentarios

Clear se utiliza para borrar explícitamente el objeto Err una vez que se ha controlado un error, como ocurre cuando se usa el control diferido de errores con On Error Resume Next. Se llama al método Clear automáticamente siempre que se ejecuta alguna de las siguientes instrucciones:

Cualquier tipo de instrucción Resume
Exit Sub, Exit Function o Exit Property
Cualquier instrucción On Error

Cualquier instrucción Try...Catch...Finally

Nota:
La construcción On Error Resume Next puede ser preferible a On Error GoTo cuando se controlan errores generados durante el acceso a otros objetos. La comprobación del objeto Err después de cada interacción con un objeto elimina la ambigüedad acerca de cuál fue el objeto al que obtuvo acceso el código: se puede conocer con seguridad qué objeto colocó el código de error en Err.Number, así como qué objeto generó originalmente el error (el objeto especificado en Err.Source).

La construcción On Error Resume Next puede ser preferible a On Error GoTo cuando se controlan errores generados durante el acceso a otros objetos. La comprobación del objeto Err después de cada interacción con un objeto elimina la ambigüedad acerca de cuál fue el objeto al que obtuvo acceso el código: se puede conocer con seguridad qué objeto colocó el código de error en Err.Number, así como qué objeto generó originalmente el error (el objeto especificado en Err.Source).

Ejemplo

En este ejemplo se utiliza el método Clear del objeto Err para restablecer las propiedades numéricas del objeto Err a cero y sus propiedades de cadena a cadenas de longitud cero. En caso de que no se llamara a Clear, la segunda llamada a MsgBox mostraría el mismo mensaje de error.

Sub ClearErr()
  ' Produce overflow error
  On Error Resume Next
  Dim zero As Integer = 0
  Dim result As Integer = 8 / zero
  MsgBox(Err.Description)
  Err.Clear()
  MsgBox(Err.Description)
End Sub