Tagastab alamtüübi variandi Tõrke variandi, mis sisaldab kasutaja määratud tõrkenumber.
Süntaks
CVErr ( errornumber )
Nõutav tõrkenumberargument on mis tahes kehtiv tõrkenumber.
Kommentaarid
Funktsiooni CVErr abil saate luua kasutaja määratud tõrkeid kasutaja loodud toimingute korral. Näiteks kui koostate funktsiooni, mis aktsepteerib mitut argumenti ning tagastab üldjuhul stringi, saate lasta funktsioonil sisendargumendid arvutada tagamaks, et need on sobivas vahemikus. Kui sisendargumendid pole sobivas vahemikus, ei tagasta funktsioon tõenäoliselt eeldatud väärtust. Sellisel juhul võimaldab funktsioon CVErr tagastada tõrkenumbri, mille järgi saate teada, mida edasi teha.
Errori peitteisendamine pole lubatud. Näiteks ei saa funktsiooni CVErr tagastatud väärtust määrata otse muutujale, mis pole Variant. Funktsioonide Clnt, CDbl jne abil saate siiski funktsiooni CVErr tagastatud väärtuse otse teisendada ning määrata selle muutujale, millel on sobiv andmetüüp.
Näide
Märkus.: Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.
Selles näiteks kasutatakse funktsiooni CVErr, et tagastada Variant, mille VarType on vbError (10). Kui kasutaja määratletud funktsioonile CalculateDouble edastati argument, mis pole number, tagastab funktsioon tõrke. Funktsiooni CVErr saate kasutada selleks, et tagastada kasutaja määratletud toimingute korral kasutaja määratletud tõrkeid või viivitada käitusajatõrke töötlemisega. Selleks et kontrollida, kas väärtus on tõrge, saate kasutada funktsiooni IsError.
' 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
