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
