Devuelve una variante del subtipo Error que contiene un número de error especificado por el usuario.
Sintaxis
CVErr(númeroDeError)
El argumento errornumberrequerido es cualquier número de error válido.
Observaciones
Utilice la función CVErr para crear errores definidos por el usuario en procedimientos creados por el usuario. Por ejemplo, si creas una función que acepta varios argumentos y normalmente devuelve una cadena, puedes hacer que la función evalúe los argumentos de entrada para asegurarse de que están dentro del intervalo aceptable. Si no lo son, es probable que su función no devuelva lo que espera. En este caso, CVErr permite devolver un número de error que indica qué acción tomar.
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 una variable que no es una variante. Sin embargo, puede realizar una conversión explícita (mediante CInt, CDbl, etc.) del valor devuelto por CVErr y asignarlo a una variable del tipo de datos adecuado.
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 una variante cuyo VarType es vbError (10). La función CalculateDouble definida por el usuario devuelve un error si el argumento que se le pasa no es un número. Puede utilizar CVErr para devolver errores definidos por el usuario de procedimientos definidos por el usuario o para aplazar el tratamiento de un error en tiempo de ejecución. Use la función EsError para probar 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