استخدام جملة select case الشرطية في VBA access

وهى تشبه لحد كبير جملة if الشرطية فى استخدامها ولكن يستحسن استخدام جملة select case  فى حالة كثرة الاحتمالات فهى اسهل وابسط فى الكتابة 
وتتكون جملة select case  من

Select Case +الشرط

Case الشرط

ماالذى يحدث فى حالة تحقق الشرط

case شرط اخر

ما الذى يحدث فى حالة تحقق هذا الشرط

case else  وهو اختياري وليس الزامي

ما الذى يحدث فى حالة عدم تحقق الشرط

End Select

في البداية نقوم بإنشاء نموذج جديد وليكن اسمه form1 وندرج مربع نص textbox  ونقف على مربع النص ومن Name نعطه اسم وليكن color كما هو موضح بالمثال

وندرج مربع نص اخر ونعطه اسما وليكن result كما هو موضح وندرج زر أمر وليكن عنوانه اظهر اللون ..وفى هذا المثال نريد من المستخدم ان يكتب اسم اللون في مربع النص الأول المكتوب امامه اكتب اللون (سواء باللغة العربية أو با للغة الانجليزية)الذي يريد ان يظهر امامه ويظهر اللون في مربع النص الأخر عند الضغط على زر أظهر اللون

نضغط على زر الأمر أظهر اللون ومن الأحداث نختر الحدث Onclick ثم نختر code builder ونبدأ بكتابة الكود.. في هذا المثال نستخدم الجملة الشرطية select case

ونلاحظ ان الشرط عندنا مبني على ما يقوم المستخدم بادخاله في خانة مربع النص color

لذا نكتب select case color

ثم نبدأ نكتب في الخيارات ففي حالة ادخال المستخدم كلمة red يصبح لون مربع النص الذى اسمه result   لون احمر vbred وهكذا مع باقى الألوان كما هو موضح بالمثال

 في هذا المثال يقوم المستخدم بكتابة اللون Yellow ثم يضغط على أمر اظهر اللون فنلاحظ ان مربع النص result تحول للون الأصفر كما هو موضح .

ولكن ماذا لو ادخل المستخدم لون غير موجود بالقائمة مثل اللون السماوي فنلاحظ انه عند الضغط على زر الأمر اظهر اللون لم يظهر اى لون أو اى رسالة تخبر المستخدم بعدم وجود مثل هذا اللون في القائمة المتاحة للألوان

لذا نستخدم case else وفائدتها إذا لم يتحقق الشرط الذى نختبره  ما الذى سوف يحدث في هذا المثال قمنا بكتابة رسالة نصية تظهر أن اللون غير موجود

في هذا المثال قام المستخدم بإدخال اللون البرتقالي وعند الضغط على زر الأمر اظهر اللون نلاحظ ظهور رسالة تخبره بأن اللون غير موجود كما هو موضح .

ماذا لو ادخل مستخدم أخر اسم اللون باللغة العربية وليس باللغة الإنجليزية هنا نلاحظ انه يمكننا استخدام الفاصلة , للجمع بين اكثر من حالة لتحقيق شرط معين ..فهنا مثلا نلاحظ اننا كتبنا

Case “red”,”احمر ”

أي إذا أدخل المستخدم كلمة red أو كلمة أحمر وهكذا يمكننا زيادة الخيارات كما نريد في كل حالة

نلاحظ هنا ان المستخدم قام بإدخال كلمة احمر ثم عند الضغط على زر الأمر أظهر اللون ظهر اللون الأحمر كما هو موضح.

 في هذا المثال يقوم المستخدم بإدخال درجة الطالب نقف على مربع النص ومن Other نعطه اسما وليكن degreeوعند الضغط على النتيجة تظهر نتيجة الطالب في مربع النص الأخرالذى اعطيناه اسم result

هنا نكتب جملة جملة select case degree ونستخدم فيها المدى من رقم معين إلى رقم اخر

Case 5 to 10 فإذا كان مجموع الطالب من 5 إلى 10 فإن الطالب ناجح وإذا كان مجموع الطالب من 0 to 4  فإن الطالب راسب

قام المستخدم بإدخال الرقم 8 فظهرت النتيجة ناجح

في حالة استخدام المعاملات اكبر من أو اكبر من او يساوي أو اقل من أو غيرها من المعاملات نستخدم case is  كما هو موضح

في هذا المثال قام المستخدم بإدخال كلمة 79 فظهر التقدير very good