CVErr, functie

Retourneert een variant van subtypeFout met een foutnummer dat is opgegeven door de gebruiker.

Syntaxis

CVErr(errornumber)

Het vereiste argument errornumberis een geldig foutnummer.

Opmerkingen

Gebruik de functie CVErr voor het maken van door de gebruiker gedefinieerde fouten in door de gebruiker gemaakte procedures. Als u bijvoorbeeld een functie maakt die verschillende argumenten accepteert en die normaal gesproken een tekenreeks als resultaat geeft, kunt u de invoerargumenten laten controleren door de functie om er zeker van te zijn dat ze binnen het acceptabele bereik vallen. Als dat niet het geval is, voldoet het resultaat van de functie waarschijnlijk niet aan uw verwachtingen. In dit geval kunt u via CVErr een foutnummer weergeven om aan te geven welke actie er moet worden uitgevoerd.

Impliciete conversie van een Error is overigens niet toegestaan. U kunt bijvoorbeeld de retourwaarde van CVErr niet rechtstreeks toewijzen aan een variabele die geen variant is. U kunt echter een expliciete conversie uitvoeren (met behulp van CInt, CDbl, enzovoort) van de waarde die wordt geretourneerd door CVErr en deze toewijzen aan een variabele van het juiste gegevenstype.

Voorbeeld

In dit voorbeeld wordt de functie CVErr gebruikt om een variant te retourneren waarvan het VarType is ingesteld op vbError (10). De door de gebruiker gedefinieerde functie CalculateDouble retourneert een fout als het argument dat aan het argument is doorgegeven geen getal is. U kunt CVErr gebruiken om door de gebruiker gedefinieerde fouten te retourneren uit door de gebruiker gedefinieerde procedures of om de afhandeling van een runtimefout uit te stellen. Gebruik de functie IsError om te testen of de waarde een fout vertegenwoordigt.

' 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