إرجاع متغير من النوع الفرعي خطأ يحتوي على رقم الخطأ يحددها المستخدم.
بناء الجملة
CVErr ( errornumber )
وسيطة رقم الخطأ المطلوب هو أي رقم خطأ صالح.
ملاحظات
استخدم الدالة CVErr لإنشاء أخطاء معرفة من قبل المستخدم في الإجراءات التي أنشأها المستخدم. على سبيل المثال، إذا قمت بإنشاء دالة تقبل عدة وسيطات وتقوم عادة بإرجاع سلسلة، فيمكنك أن تقوم الدالة بتقييم وسيطات الإدخال للتأكد من أنها ضمن النطاق المقبول. إذا لم تكن كذلك، فمن المحتمل أن الدالة الخاصة بك لن ترجع ما تتوقعه. في هذه الحالة، يسمح لك CVErr بإعادة رقم خطأ يخبرك بالإجراء الذي يجب اتخاذه.
لاحظ أن التحويل الضمني لخطأ غير مسموح به. على سبيل المثال، لا يمكنك تعيين القيمة المرجعة ل CVErr مباشرة إلى متغير ليست متغيرا. ومع ذلك، يمكنك إجراء تحويل صريح (باستخدام CIntوCDbl وما إلى ذلك) للقيمة التي تم إرجاعها بواسطة CVErr وتعيين ذلك إلى متغير من نوع البيانات المناسبة .
مثال
ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة 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
