Funcția CVErr

Returnează o variantă de subtip Eroare care conține un număr de eroare specificat de utilizator.

Sintaxă

CVErr(număreroare)

Argumentul necesar: numărdeeroareeste orice număr de eroare valid.

Observații

Utilizați funcția CVErr pentru a crea erori definite de utilizator în procedurile create de utilizatori. De exemplu, dacă creați o funcție care acceptă mai multe argumente și returnează în mod normal un șir de caractere, puteți solicita funcției să evalueze argumentele de intrare pentru a vă asigura că se încadrează în intervalul acceptabil. În caz contrar, este posibil ca funcția să nu returneze ceea ce așteptați. În acest caz, CVErr vă permite să returnați un număr de eroare care vă spune ce acțiune să efectuați.

Rețineți că conversia implicită a unei erori nu este permisă. De exemplu, nu puteți atribui direct valoarea returnată de CVErr unei variabile care nu este variant. Totuși, puteți să efectuați o conversie explicită (utilizând CInt, CDbl etc.) a valorii returnate de CVErr și să o atribuiți unei variabile de tipul de date corespunzător.

Exemplu

Acest exemplu utilizează funcția CVErr pentru a returna o variant a cărei VarType este vbError (10). Funcția CalculateDouble definită de utilizator returnează o eroare dacă argumentul care îi este transmis nu este un număr. Puteți utiliza CVErr pentru a returna erori definite de utilizator din procedurile definite de utilizator sau pentru a amâna tratarea unei erori la momentul rulării. Utilizați funcția IsError pentru a testa dacă valoarea reprezintă o eroare.

' 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