الدالة Choose

ترجع هذه الدالة قيمة من قائمة وسيطات.

بناء الجملة

Choose(index, choice-1 [, choice-2] ... [, choice-n])

تتضمن الدالة Choose الوسيطات التالية:

الوسيطة	الوصف
index	مطلوبة. تعبير رقمي أو حقل ينتج عنه قيمة بين 1 وعدد الاختيارات المتاحة.
choice	مطلوبة. تعبير متغير يحتوي على أحد الخيارات الممكنة.

ملاحظات

Choose ترجع هذه الدالة قيمة من قائمة الخيارات استنادا إلى قيمة index. إذا index كانت 1، Choose فسترجع الخيار الأول في القائمة. إذا كانت index تساوي 2، فإنها ترجع الخيار الثاني، وهكذا.

يمكنك استخدامها Choose للبحث عن قيمة في قائمة الاحتمالات. على سبيل المثال، إذا index تم تقييم الأرقام إلى 3 و choice-1 = "واحد"، choice-2 = "اثنين"، و choice-3 = "ثلاثة"، Choose فقم بإرجاع "ثلاثة". ويكون هذا السلوك مفيدا عندما index يمثل القيمة في مجموعة خيارات.

Choose يقيم كل خيار في القائمة، على الرغم من إرجاع خيار واحد فقط. بسبب هذا السلوك ، راقب الآثار الجانبية غير المرغوب فيها. على سبيل المثال، إذا كنت تستخدم الدالة MsgBox كجزء من تعبير في كافة الخيارات، يعرض Access مربع رسالة لكل خيار أثناء تقييمه، على الرغم من Choose إرجاع قيمة خيار واحد فقط.

ترجع Null الدالة Choose إذا index كانت أقل من 1 أو أكبر من عدد الخيارات المدرجة.

إذا index لم يكن رقما صحيحا، فيقرب Access هذا العدد إلى أقرب عدد صحيح قبل أن يقيمه.

أمثلة عن الاستعلام

التعبير	النتائج
SELECT Choose(3,"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec") AS Expr1 FROM ProductSales;	ترجع القيمة الثالثة من قائمة القيم. النتيجة: "Mar".
SELECT DateofSale, Choose(Month(DateofSale),"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec") AS MonthName FROM ProductSales;	ترجع هذه الدالة القيم الموجودة في DateofSale العمود واسم الشهر المناظر له MonthName . Month(DateofSale) ترجع رقم الشهر ل DateofSale، وتستخدم Choose هذا الرقم كفهرس لقائمة الخيارات.

مثال VBA

يستخدم هذا المثال الدالة Choose لعرض اسم فهرس يقوم الإجراء بتمريره في المعلمة Ind .

Function GetChoice(Ind As Integer)
    GetChoice = Choose(Ind, "Speedy", "United", "Federal")
End Function