Vraća varijantu pogreške podvrste koja sadrži broj pogreške koju je naveli korisnik.
Sintaksa
CVErr (broj pogreške )
Obavezni broj pogreškeargument bilo koji valjani broj pogreške.
Napomene
Pomoću funkcije CVErr stvorite korisnički definirane pogreške u postupcima koje je stvorio korisnik. Ako, primjerice, stvorite funkciju koja prihvaća nekoliko argumenata i obično vraća niz, možete odrediti da funkcija procijeni ulazne argumente da bi bila unutar prihvatljivog raspona. Ako nisu, vjerojatno funkcija neće vratiti ono što očekujete. U ovom slučaju CVErr vam omogućuje vraćanje broja pogreške koji vam govori koju akciju morate poduzeti.
Imajte na umu da implicitna pretvorba pogreške nije dopuštena. Na primjer, povratnu vrijednost CVErra ne možete izravno dodijeliti varijabla koja nije Variant. No možete izvesti eksplicitnu pretvorbu (pomoću CInt, CDbl i tako dalje) vrijednosti koju vraća CVErr i dodijeliti je varijabli odgovarajuće vrsta podatka.
Primjer
Napomena: Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.
U ovom se primjeru funkcija CVErr koristi za vraćanje varijantečija je VarTypevbError (10). Korisnički definirana funkcija CalculateDouble vraća pogrešku ako argument proslijeđen u njega nije broj. CVErr možete koristiti za vraćanje korisnički definiranih pogrešaka iz korisnički definiranih postupaka ili za odgodu rukovanja pogreškom pri izvođenju. Pomoću funkcije IsError provjerite predstavlja li vrijednost pogrešku.
' 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
