Deze functie retourneert een variant van het subtype Error met een foutnummer dat door de gebruiker is opgegeven.
Syntaxis
CVErr ( foutnummer )
Het vereiste argumentfoutnummer kan elk geldig foutnummer zijn.
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. Zo kunt u de retourwaarde van CVErr niet rechtstreeks toewijzen aan een variabele die geen variant is. U kunt echter wel een expliciete conversie uitvoeren (met behulp van CInt, CDbl, enzovoort) van de waarde die wordt geretourneerd door CVErr en het resultaat toewijzen aan een variabele van het juiste gegevenstype.
Voorbeeld
Opmerking: In de volgende voorbeelden wordt het gebruik van deze functie in een VBA-module (Visual Basic for Applications) toegelicht. Meer informatie over het werken met VBA vindt u door in de vervolgkeuzelijst naast Zoeken de optie Referentie voor ontwikkelaars te selecteren en een of meer termen in het zoekvenster te typen.
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 doorgegeven argument niet een 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
