Funcția CVErr

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

Sintaxă

CVErr(număr eroare)

Argumentul număr de eroarenecesar este orice număr de eroare valid.

Observații

Utilizați funcția CVErr pentru a crea erori definite de utilizator în procedurile create de utilizator. De exemplu, dacă creați o funcție care acceptă mai multe argumente și returnează în mod normal un șir, puteți solicita funcției să evalueze argumentele de intrare pentru a se asigura că se află în intervalul acceptabil. Dacă nu sunt, probabil că funcția dvs. nu va returna ceea ce vă 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ă nu este permisă conversia implicită a unei erori . De exemplu, nu puteți atribui direct valoarea returnată de CVErr unei variabile care nu este o valoare variant. Cu toate acestea, puteți efectua o conversie explicită (utilizând CInt, CDbl și așa mai departe) a valorii returnate de CVErr și să o atribuiți unei variabile cu tipul de date corespunzător.

Exemplu

Acest exemplu utilizează funcția CVErr pentru a returna o valoare Variant al cărei Tip VarType este vbError (10). Funcția CalculateDouble definită de utilizator returnează o eroare dacă argumentul transmis către ea nu este un număr. Puteți utiliza CVErr pentru a returna erori definite de utilizator din proceduri 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