Applies ToAccess za Microsoft 365 Access 2021 Access 2019 Access 2016

Vrne napako Variant podvrste Error , ki vsebuje številka napake, ki ga je navedl uporabnik.

Sintaksa

CVErr ( številka napake )

Obvezni argument »številka napake« poljubna veljavna številka napake.

Opombe

Uporabite funkcijo CVErr, če želite ustvariti uporabniško določene napake v uporabniško ustvarjenih procedurah. Na primer, če ustvarite funkcijo, ki sprejme več argumentov in običajno vrne niz, lahko vaša funkcija ovrednoti vhodne argumente, da zagotovi, ali so v sprejemljivem obsegu. Če niso, rezultat funkcije najverjetneje ne bo takšen, kot pričakujete. V tem primeru funkcija CVErr vrne številko napake, ki pove, kako ukrepati.

Upoštevajte, da implicitna pretvorba napake ni dovoljena. Vrnjene vrednosti funkcije CVErr na primer ne morete dodeliti neposredno spremenljivka ki ni Različica. Lahko pa izvedete eksplicitno pretvorbo (z uporabo CInt, CDbl in tako naprej) vrednosti, ki jo vrne CVErr , in jo dodelite spremenljivki ustreznih podatkovni tip.

Primer

Opomba: V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.

V tem primeru je uporabljena funkcija CVErr za vrnitev vrednosti Variant, katerega VarType je vbError (10). Uporabniško določena funkcija CalculateDouble vrne napako, če podani argument ni število. Funkcijo CVerr lahko uporabite za vrnitev uporabniško določenih napak iz uporabniško ustvarjenih procedur ali za odložitev obravnave napake med izvajanjem. Uporabite funkcijo IsError, da preverite, ali vrednost predstavlja napako.

' 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

Ali potrebujete dodatno pomoč?

Ali želite več možnosti?

Raziščite ugodnosti naročnine, prebrskajte izobraževalne tečaje, preberite, kako zaščitite svojo napravo in še več.

Skupnosti vam pomagajo postaviti vprašanja in odgovoriti nanje, posredovati povratne informacije in prisluhniti strokovnjakom z bogatim znanjem.