الدالة 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;	إرجاع القيمة الثالثة من قائمة القيم. النتيجة: "مارس".
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