الدالة CVErr

إرجاع متغير من النوع الفرعي خطأ يحتوي على رقم خطأ محدد بواسطة المستخدم.

بناء الجملة

CVErr(errornumber)

إن وسيطة Errornumberالمطلوبة هي أي رقم خطأ صحيح.

ملاحظات

استخدم الدالة CVErr لإنشاء أخطاء معرفة من قبل المستخدم في الإجراءات التي ينشئها المستخدم. على سبيل المثال، إذا أنشأت دالة تقبل وسيطات متعددة وترجع سلسلة في المعتاد، يمكنك أن تطلب من الدالة تقييم وسيطات الإدخال للتأكد من أنها ضمن النطاق المقبول. إذا لم تكن كذلك، فمن المرجح أن الدالة لن ترجع ما كنت تتوقعه. في هذه الحالة، يسمح لك CVErr بإرجاع رقم خطأ يخبرك بالإجراء الذي يجب اتخاذه.

تجدر الإشارة إلى أنه لا يسمح بالتحويل الضمني لخطأ . على سبيل المثال، لا يمكنك تعيين القيمة المرجعة ل CVErr مباشرة إلى متغير ليس متغيرا. ومع ذلك، يمكنك إجراء تحويل صريح (باستخدام CIntوCDbl وما إلى ذلك) للقيمة التي ترجعها CVErr وتعيينها إلى متغير من نوع البيانات المناسب.

مثال

يستخدم هذا المثال الدالة 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