Trả về một Biến_thể của kiểu con Lỗi chứa một số lỗi do người dùng chỉ định.
Cú pháp
CVErr(errornumber)
Đối số số lỗi bắt buộclà bất kỳ số lỗi hợp lệ nào.
Chú thích
Sử dụng hàm CVErr để tạo lỗi do người dùng xác định trong thủ tục do người dùng tạo. Ví dụ, nếu bạn tạo hàm chấp nhận một vài tham đối và thường trả về một chuỗi, bạn có thể để hàm của mình đánh giá các tham đối đầu vào để đảm bảo chúng nằm trong phạm vi có thể chấp nhận được. Nếu không, có khả năng hàm của bạn sẽ không trả về kết quả mong đợi. Trong trường hợp này, CVErr cho phép bạn trả về số lỗi cho bạn biết cần thực hiện hành động nào.
Lưu ý rằng chuyển đổi ngầm của lỗi không được cho phép. Ví dụ: bạn không thể trực tiếp gán giá trị trả về của CVErr cho một biến không phải là Biến _thể. Tuy nhiên, bạn có thể thực hiện chuyển đổi rõ ràng (sử dụng CInt, CDbl, v.v.) của giá trị do CVErr trả về và gán giá trị đó cho biến kiểu dữ liệu thích hợp.
Ví dụ
Lưu ý
Các ví dụ sau thể hiện cách sử dụng hàm này trong mô-đun Visual Basic for Applications (VBA). Để biết thêm thông tin về cách làm việc với VBA, chọn Tham khảo dành cho Nhà phát triển trong danh sách thả xuống cạnh Tìm kiếm, rồi nhập một hoặc nhiều từ vào hộp tìm kiếm.
Ví dụ này sử dụng hàm CVErr để trả về một Biến _thể có VarType là vbError (10). Hàm do người dùng xác định CalculateDouble trả về lỗi nếu tham đối được chuyển đến hàm đó không phải là số. Bạn có thể sử dụng CVErr để trả về lỗi do người dùng xác định từ thủ tục do người dùng xác định hoặc để trì hoãn xử lý lỗi thời gian chạy. Dùng hàm IsError để kiểm tra xem giá trị có đại diện cho lỗi không.
' 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