We couldn’t sign you in
Select the account you want to use.

Devuelve un error variant de subtipo que contiene número de error especificado por el usuario.

Sintaxis

CVErr (númerode error)

El número de errorargumento es cualquier número de error válido.

Observaciones

Use la función CVErr para crear errores definidos por el usuario en los 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 se encuentran dentro del rango aceptable. Si no es así, es probable que la 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 debe 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 valor variable que no sea una variant. Sin embargo, puede realizar una conversión explícita (usando CInt, CDbl,y así sucesivamente) del valor devuelto por CVErr y asignarlo a una variable de la tipo de datos.

Ejemplo

Nota: Los ejemplos siguientes muestran el uso de esta función en un módulo 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 junto a Buscar y escriba uno o más términos en el cuadro de búsqueda.

En este ejemplo se usa la función CVErr para devolver una variant cuyo VarTypees vbError (10). La función definida por el 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 los procedimientos definidos por el usuario o para aplazar la administración de un error en tiempo de ejecución. Use la función IsError 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?

Ampliar sus conocimientos
Explorar los cursos
Obtener nuevas características primero
Unirse a Microsoft Office Usuarios de Insider

¿Le ha sido útil esta información?

¿Cuál es tu grado de satisfacción con la calidad del lenguaje?
¿Qué ha afectado a tu experiencia?

¡Gracias por sus comentarios!

×