الدالة CVErr

هام: تمت ترجمة هذه المقالة ترجمة آلية، راجع إقرار إخلاء المسؤولية. يرجى الاطلاع على النسخة الإنجليزية من هذه المقالة. هنا للرجوع إليها.

ارجاع قيمه متغير من النوع الفرعي الخطا الذي يحتوي علي رقم الخطأ المحدده ب# واسطه المستخدم.

بناء الجملة

الداله CVErr ( errornumber )

إن وسيطة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

ملاحظة: إقرار إخلاء المسؤولية للترجمة الآلية: تمت ترجمة هذه المقالة بواسطة نظام كمبيوتر دون تدخل العامل البشري. توفر Microsoft هذه الترجمات الآلية لمساعدة المستخدمين الذين لا يتحدثون الإنجليزية على استخدام منتجات Microsoft، وخدماتها، وتقنياتها والاستمتاع بها. قد تحتوي هذه المقالة على أخطاء في المفردات، أو بناء الجملة، أو القواعد نظرًا لترجمتها آليًا.

مشاركة Facebook Facebook Twitter Twitter البريد الإلكتروني البريد الإلكتروني

هل كانت المعلومات مفيدة؟

رائع! هل لديك أي ملاحظات أخرى؟

كيف يمكننا تحسين ذلك؟

نشكرك على ملاحظاتك!

×