Compartir vía

Objeto Err

  • Artículo

Contiene información acerca de errores en tiempo de ejecución.

Comentarios

El generador de un error establece las propiedades del objeto Err : Visual Basic, un objeto o el programador.

La propiedad predeterminada del objeto Err es Number. Dado que la propiedad predeterminada se puede representar mediante el nombre de objeto Err, no es necesario modificar el código anterior escrito mediante la función Err o la instrucción Err .

Cuando se produce un error en tiempo de ejecución, las propiedades del objeto Err se rellenan con información que identifica de forma exclusiva el error y la información que puede usarse para resolverlo. Para generar un error en tiempo de ejecución en el código, use el método Raise .

Las propiedades del objeto Err se restablecen a cadenas de longitud cero o cero ("") después de una instrucción Exit Sub, Exit Function, Exit Property o Resume Next dentro de una rutina de control de errores. Si usa cualquier formulario de la instrucción Resume fuera de una rutina de tratamiento de errores no se restablecerán las propiedades del objeto Err. El método Clear se puede usar para restablecer explícitamente Err.

Use el método Raise , en lugar de la instrucción Error , para generar errores en tiempo de ejecución para los errores del sistema y los módulos de clase. El uso del método Raise en otro código depende de la riqueza de la información que quiera devolver.

El objeto Err es un objeto intrínseco con ámbito global. No es necesario crear una instancia del objeto en el código.

Ejemplo:

En este ejemplo se usan las propiedades del objeto Err (Number, Description, HelpContext, HelpFile, Source) en la construcción de un cuadro de diálogo de mensaje de error.

Tenga en cuenta que si usa el método Clear primero, cuando genera un error de Visual Basic con el método Raise, los valores predeterminados de Visual Basic se convierten en las propiedades del objeto Err.

Dim Msg
' If an error occurs, construct an error message
On Error Resume Next    ' Defer error handling.
Err.Clear
Err.Raise 6    ' Generate an "Overflow" error.
' Check for error, then show message.
If Err.Number <> 0 Then
    Msg = "Error # " & Str(Err.Number) & " was generated by " _
            & Err.Source & Chr(13) & Chr(13) & Err.Description
    MsgBox Msg, vbMsgBoxHelpButton, "Error", Err.Helpfile, Err.HelpContext
End If

Consulte también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.