CVErr 函數

套用到
Microsoft 365 Access Access 2021 Access 2019 Access 2016

傳回包含使用者指定錯誤編號的子類型 「錯誤 」的變體。

語法

CVErr (errornumber)

必要的 errornumber引數是任何有效的錯誤編號。

註解

使用 CVErr 函數，在使用者建立的程序中建立使用者定義的錯誤。 例如，如果您建立一個接受數個引數且通常會傳回字串的函數，您可以讓函數評估輸入引數，以確保它們在可接受的範圍內。 如果不是，您的函數很可能不會傳回您所期望的。 在此事件中， CVErr 可讓您傳回錯誤編號，告訴您要採取的動作。

請注意，不允許 隱含轉換錯誤 。 例如，您無法直接將 CVErr 的傳回值指派給不是 Variant 的變數。 不過，您可以使用 CVErr 傳回的值) 使用 CInt、CDbl 等來執行明確的轉換 (，並將該值指派給適當資料類型的變數。

範例

注意

下列範例示範如何在 Visual Basic for Applications (VBA) 模組中使用此函數。 如需使用 VBA 的詳細資訊，請在 [搜尋] 旁的下拉式清單中選取 [開發人員參考]，並在 [搜尋] 方塊中輸入一個或多個字詞。

此範例使用 CVErr 函數傳回 VarType 為 vbError (10) 的變體。 如果傳遞給它的引數不是數字，使用者定義函數 CalculateDouble 會傳回錯誤。 您可以使用 CVErr 從使用者定義的程序傳回使用者定義的錯誤，或延遲執行階段錯誤的處理。 使用 IsError 函數可以測試該值是否代表錯誤。

' 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