Método Raise

Genera un error de tiempo de ejecución.

Sintaxis

object.Raise(number, source, description, helpfile, helpcontext)

Argumentos

• Object: necesario. Siempre es el objeto Err.
• Number: necesario. Subtipo de entero largo que identifica la naturaleza del error.
• Source: opcional. Expresión de cadena que asigna un nombre al objeto o aplicación que generó originalmente el error. A la hora de definir esta propiedad para un objeto de automatización, utilice el formato proyecto.clase.
• Description: opcional. Expresión de cadena que describe el error. Si no se especifica, se examina el valor de number. Si se puede asignar a un código de error de tiempo de ejecución de BSL, se utiliza como descripción una cadena proporcionada por BSL. Si no hay ningún error de BSL correspondiente al número, se utiliza un mensaje de error genérico.
• Helpfile: opcional. Ruta de acceso completa al archivo de ayuda en el que se puede encontrar ayuda sobre este error. Si no se especifica, BSL utiliza la unidad completa, la ruta y el nombre de archivo del archivo de ayuda de BSL.
• Helpcontext: opcional. ID de contexto que identifica un tema en el archivo de ayuda que proporciona ayuda para el error. Si se omite, se utiliza el ID de contexto del archivo de ayuda de BSL para el error correspondiente a la propiedad number, si existe.

Observaciones

Todos los argumentos son opcionales, excepto number. Sin embargo, si utiliza Raise sin especificar algunos argumentos y los valores de propiedad del objeto Err contienen valores que no se han borrado, esos valores se convierten en los valores del error.

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

Ejemplo 1:

Sub RaiseOverflowError()
On Error Resume Next          ' Enable error handling.
Err.Raise 6                   ' Raise an overflow error.
Err.Clear                     ' Clear the error.
End Sub
'Output: Number: 6, Description: Overflow

Ejemplo 2:

Sub RaiseCustomError()
On Error Resume Next          ' Enable error handling.
Err.Raise 1000, "MyApp", "A custom error has occurred."
Err.Clear                     ' Clear the error.
End Sub
'Output: Number: 1000, Description: A custom error has occurred., Source: MyApp