CVErr, funksjon

Returnerer en variant av undertypen Feil som inneholder et feilnummer angitt av brukeren.

Syntaks

CVErr(feilnummer)

Det obligatoriske argumentet for feilnummerer et gyldig feilnummer.

Merknader

Bruk CVErr-funksjonen til å opprette brukerdefinerte feil i brukeropprettede prosedyrer. Hvis du for eksempel oppretter en funksjon som godtar flere argumenter og vanligvis returnerer en streng, kan du få funksjonen til å evaluere inndataargumentene for å sikre at de er innenfor akseptabelt område. Hvis de ikke gjør det, er det sannsynlig at funksjonen ikke vil returnere det du forventer. I slike tilfeller lar CVErr deg returnere et feilnummer som forteller deg hva du skal gjøre.

Vær oppmerksom på at implisitt konvertering av en feil ikke er tillatt. Du kan for eksempel ikke tilordne returverdien fra CVErr direkte til en variabel som ikke er en variant. Du kan imidlertid utføre en eksplisitt konvertering (ved hjelp av CInt, CDbl og så videre) av verdien som returneres av CVErr , og tilordne den til en variabel av den aktuelle datatypen.

Eksempel

Dette eksemplet bruker CVErr-funksjonen til å returnere en variant der VarType er vbError (10). Den brukerdefinerte funksjonen CalculateDouble returnerer en feil hvis argumentet som sendes til den, ikke er et tall. Du kan bruke CVErr til å returnere brukerdefinerte feil fra brukerdefinerte prosedyrer eller utsette behandling av en kjøretidsfeil. Bruk funksjonen ERFEIL til å teste om verdien representerer en feil.

' 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