إرجاع متغير خطأ نوع فرعي يحتوي على رقم الخطأ يحدده المستخدم.
بناء الجملة
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
