Funkcia CVErr

Vráti hodnotu variantu chyby podtypu obsahujúcu číslo chyby zadané používateľom.

Syntax

CVErr(číslo chyby)

Povinný argument číslovania chýbje ľubovoľné platné číslo chyby.

Poznámky:

Použite funkciu CVErr na vytvorenie používateľom definovaných chýb v používateľom definovaných procedúrach. Ak napríklad vytvoríte funkciu, ktorá prijíma niekoľko argumentov a zvyčajne vráti reťazec, môžete funkciu donútiť vyhodnotiť vstupné argumenty a zabezpečiť tak, že sú v rámci prijateľného rozsahu. Ak nie sú, je pravdepodobné, že vaša funkcia nevráti to, čo očakávate. V tomto prípade funkcia CVErr umožňuje vrátiť chybové číslo s informáciou, aká akcia sa má vykonať.

Implicitná konverzia chyby nie je povolená. Nemôžete napríklad priamo priradiť vrátenú hodnotu CVErr premennej, ktorá nie je variantom. Môžete však vykonať explicitnú konverziu (pomocou CInt, CDbl atď.) hodnoty vrátenej funkciou CVErr a priradiť ju premennej príslušného typu údajov.

Príklad

V tomto príklade je funkcia CVErr použitá na vrátenie hodnoty typu Variant, ktorej typ VarType je vbError (10). Používateľom definovaná funkcia CalculateDouble vráti chybu, ak jej zadaný argument nie je číslo. Funkciu CVErr môžete použiť na vrátenie používateľom definovaných chýb v používateľom definovaných procedúrach alebo na odloženie spracovania chyby počas spustenia. Použite funkciu IsError a otestujte, či táto hodnota predstavuje chybu.

' 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