Função CVErr

Devolve uma Variante do subtipo Erro que contém um número de erro especificado pelo utilizador.

Sintaxe

CVErr(errornumber)

O argumento errornumbernecessário é qualquer número de erro válido.

Observações

Utilize a função CVErr para criar erros definidos pelo utilizador nos procedimentos criados pelo utilizador. Por exemplo, se criar uma função que aceita vários argumentos e normalmente devolve uma cadeia, pode fazer com que a função avalie os argumentos de entrada para garantir que estão dentro de um intervalo aceitável. Se não estiverem, é provável que a sua função não devolva o que espera. Neste evento, o CVErr permite-lhe devolver um número de erro que indica que ação deve efetuar.

Tenha em atenção que a conversão implícita de um Erro não é permitida. Por exemplo, não pode atribuir diretamente o valor devolvido de CVErr a uma variável que não seja uma Variante. No entanto, pode efetuar uma conversão explícita (com CInt, CDbl, etc.) do valor devolvido pelo CVErr e atribuí-lo a uma variável do tipo de dados adequado.

Exemplo

Este exemplo utiliza a função CVErr para devolver uma Variante cujo VarType é vbError (10). A função CalculateDouble definida pelo utilizador devolve um erro se o argumento transmitido não for um número. Pode utilizar o CVErr para devolver erros definidos pelo utilizador a partir de procedimentos definidos pelo utilizador ou para adiar o processamento de um erro de tempo de execução. Utilize a função IsError para testar se o valor representa um erro.

' 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