Applies ToAccess pakalpojumam Microsoft 365 Access 2021 Access 2019 Access 2016

Atgriež Variant of subtype Error vērtību, kas kļūdas numurs lietotāja norādītu kļūdu.

Sintakse

CVErr ( kļūdas_numurs )

Nepieciešamais kļūdasarguments ir jebkurš derīgs kļūdas numurs.

Piezīmes

Izmantojiet funkciju CVErr , lai izveidotu lietotāja definētas kļūdas lietotāja izveidotās procedūrās. Piemēram, ja izveidojat funkciju, kas pieņem vairākus argumentus un parasti atgriež virkni, varat funkcijai novērtēt ievades argumentus, lai pārliecinātos, vai tie ietilpst pieņemamā diapazonā. Ja tā nav, funkcija, visticamāk, neatgriezīs to, kas paredzēts. Šajā gadījumā CVErr ļauj atgriezt kļūdas numuru, kas norāda, kāda darbība ir jāveic.

Ņemiet vērā, ka netieša kļūdas pārvēršana nav atļauta. Piemēram, cvErr atgriezto vērtību nevar tieši piešķirt cvErr atgrieztajām mainīgais kas nav Variant. Tomēr varat veikt tiešu CVErr atgrieztās vērtības konvertēšanu (izmantojot CInt, CDbl utt.) un to piešķirt atbilstošajam mainīgām datu tips.

Piemērs

Piezīme.: Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.

Šajā piemērā tiek izmantota funkcija CVErr , lai atgrieztu Variant , kura VarType ir vbError (10). Lietotāja definētā funkcija CalculateDouble atgriež kļūdu, ja tai nodotais arguments nav skaitlis. CvErr var izmantot, lai atgrieztu lietotāja definētas kļūdas no lietotāja definētām procedūrām vai atliktu izpildes laika kļūdas apstrādi. Izmantojiet funkciju IsError , lai pārbaudītu, vai vērtība attēlo kļūdu.

' 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

Nepieciešama papildu palīdzība?

Vēlaties vairāk opciju?

Izpētiet abonementa priekšrocības, pārlūkojiet apmācības kursus, uzziniet, kā aizsargāt ierīci un veikt citas darbības.

Kopienas palīdz uzdot jautājumus un atbildēt uz tiem, sniegt atsauksmes, kā arī saņemt informāciju no ekspertiem ar bagātīgām zināšanām.