Applies ToAccess za Microsoft 365 Access 2021 Access 2019 Access 2016

Vraća varijantu greške podtipa koja sadrži broj greške koju je naveo korisnik.

Sintaksa

CVErr (broj greške )

Zahtevani broj greškeargument bilo koji važeći broj greške.

Napomene

Koristite funkciju CVErr da biste kreirali korisnički definisane greške u korisnički kreiranim procedurama. Na primer, ako kreirate funkciju koja prihvata nekoliko argumenata i obično vraća nisku, možete da podesite funkciju da procenjuje ulazne argumente da biste se uverili da su u prihvatljivom opsegu. Ako nisu, vaša funkcija verovatno neće vratiti ono što očekujete. U ovom događaju , CVErr vam omogućava da vratite broj greške koji vam govori koju radnju treba da preduzmete.

Imajte na umu da implicitna konverzija greške nije dozvoljena. Na primer, ne možete direktno da dodelite povratnu vrednost funkcije CVErrpromenljiva koja nije varijanta. Međutim, možete da izvršite eksplicitnu konverziju ( koristeći CInt, CDbl i tako dalje) vrednosti koju je vratio CVErr i dodelite je promenljivoj odgovarajuće tip podatka.

Primer

Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.

Ovaj primer koristi funkciju CVErr da bi vratio varijantu čiji je VarTypevbError (10). Korisnički definisana funkcija CalculateDouble vraća grešku ako argument prosleđen nije broj. Možete da koristite CVErr da biste vratili korisnički definisane greške iz korisnički definisanih procedura ili da biste odložili rukovanje greškom u izvršavanju. Koristite funkciju IsError da biste testirali da li vrednost predstavlja greš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

Da li vam je potrebna dodatna pomoć?

Želite još opcija?

Istražite pogodnosti pretplate, pregledajte kurseve za obuku, saznajte kako da obezbedite uređaj i još mnogo toga.

Zajednice vam pomažu da postavljate pitanja i odgovarate na pitanja, dajete povratne informacije i čujete mišljenje od stručnjaka sa bogatim znanjem.