Applies ToAccess pro Microsoft 365 Access 2021 Access 2019 Access 2016

Vrátí hodnotu Variant podtypu Error obsahující Číslo chyby určený uživatelem.

Syntaxe

CVErr ( číslo_chyby )

Požadované číslo chybyArgument je libovolné platné číslo chyby.

Poznámky

Pomocí funkce CVErr můžete vytvářet uživatelem definované chyby v procedurách vytvořených uživatelem. Pokud například vytvoříte funkci, která přijímá několik argumentů a obvykle vrací řetězec, může funkce vyhodnotit vstupní argumenty, aby se ujistila, že jsou v přijatelném rozsahu. Pokud tomu tak není, je pravděpodobné, že funkce nevrátí to, co očekáváte. V takovém případě vám CVErr umožní vrátit číslo chyby, které vám řekne, jakou akci máte provést.

Všimněte si, že implicitní převod chyby není povolen. Například návratovou hodnotu CVErr nemůžete přiřadit přímo k Proměnná, který není variantou. Můžete však provést explicitní převod (pomocí CInt, CDbl atd.) hodnoty vrácené nástrojem CVErr a přiřadit ji proměnné příslušné Datový typ.

Příklad

Poznámka: Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.

Tento příklad používá funkci CVErr k vrácení varianty , jejíž VarType je vbError (10). Funkce definovaná uživatelem CalculateDouble vrátí chybu, pokud argument předaný není číslo. CvErr můžete použít k vrácení uživatelem definovaných chyb z uživatelsky definovaných procedur nebo k odložení zpracování chyby za běhu. Pomocí funkce IsError otestujte, jestli hodnota představuje chybu.

' 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

Potřebujete další pomoc?

Chcete další možnosti?

Prozkoumejte výhody předplatného, projděte si školicí kurzy, zjistěte, jak zabezpečit své zařízení a mnohem více.

Komunity vám pomohou klást otázky a odpovídat na ně, poskytovat zpětnou vazbu a vyslechnout odborníky s bohatými znalostmi.