Devuelve un tipo de datos Variant de error que contiene un número de error especificado por el usuario.

Sintaxis

CVErr ( errornumber )

Elargumento de número de error obligatorio es cualquier número de error válido.

Comentarios

Use la función CVErr para crear errores definidos por el usuario en procedimientos creados por el usuario. Por ejemplo, si crea una función que acepta varios argumentos y normalmente devuelve una cadena, puede hacer que la función evalúe los argumentos de entrada para asegurarse de que están dentro de un rango aceptable. Si no lo están, es probable que su función no devuelva lo que espera. En este caso, CVErr le permite devolver un número de error que le indica qué acción realizar.

Tenga en cuenta que no se permite la conversión implícita de un error . Por ejemplo, no puede asignar directamente el valor devuelto de CVErr a un variable que no es un tipo de datos Variant. Sin embargo, puede realizar una conversión explícita (mediante CInt, CDbl, etc.) del valor devuelto por CVErr y asignarlo a una variable de la tipo de datos correspondiente.

Ejemplo

Nota: Los ejemplos siguientes muestran el uso de esta función en un módulo de Visual Basic para Aplicaciones (VBA). Para obtener más información sobre cómo trabajar con VBA, seleccione referencia para desarrolladores en la lista desplegable situada junto a búsqueda y escriba uno o varios términos en el cuadro de búsqueda.

En este ejemplo se usa la función CVErr para devolver un variant cuyo Tipo Var es vbError (10). La función definida por el usuario CalculateDouble devuelve un error si el argumento que se le ha pasado no es un número. Puede usar CVErr para devolver errores definidos por el usuario de procedimientos definidos por el usuario o para aplazar el control de un error en tiempo de ejecución. Use la función EsError para comprobar si el valor representa un error.

' Call CalculateDouble with an error-producing argument.Sub Test()    Debug.Print CalculateDouble("345.45robert")End Sub' Define CalculateDouble Function procedure.Function CalculateDouble(Number)    If IsNumeric(Number) Then        CalculateDouble = Number * 2    ' Return result.    Else        CalculateDouble = CVErr(2001)    ' Return a user-defined error     End If    ' number.End Function

¿Necesita más ayuda?

¿Quiere más opciones?

Explore las ventajas de las suscripciones, examine los cursos de aprendizaje, aprenda a proteger su dispositivo y mucho más.

Las comunidades le ayudan a formular y responder preguntas, enviar comentarios y leer a expertos con conocimientos extensos.