if الشرطية واستخدامها مع VBA access

من أهم الدوال المستخدمة فى عالم البرمجة بصفة عامة هى دالة IF الشرطية 

ولها عدة حالات

الحالة الأولى:-

فى حالة تحقق الشرط
وتتكون IF فى هذه الحالة من 

IF+الجواب فى حالة تحقق الشرط+الشرط المراد اختباره+End if

 مثال عملي:-

نقوم بانشاء مربع نص بحيث يتم وضع مجموع الطالب به ونقوم بتسميته  sdegree ونقوم بإنشاء مربع نص اخر بحيث تظهر فيه نتيجة الطالب

نقوم بتسمية مربع النص الذى تظهر فيه نتيجة الطالب باسم result

نضغط على زر الأمر اظهر النتيجة ومن event نضغط على Onlclick نضغط على 000 نقاط فتظهر نافذة choose builder ومنه نختر code builder

If Me.sdegree >= 50 Then Me.result = "ناجح"

أول حالة من حالات If وهى إعطاء جواب الشرط في حالة تحقق الشرط وفى هذه الحالة يمكن كتابة جملة if في سطر واحد بدون end if كما هو موضح.

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

ملاحظة: في هذه الحالة تم تجاهل ما الذي يحدث في حالة عدم تحقق الشرط

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

يمكن وضع الدالة if على اكثر من سطر وفى هذه الحالة يتم وضع جملة end if في نهاية الجملة كما هو موضح بالمثال

If Me.sdegree >= 50 Then

Me.result = "ناجح"

End If

الحالة الثانية من حالات If 

وهو وجود شرط محدد ويحدث اجراء معين في حالة تحقق الشرط ويحدث اجراء اخر في حالة عدم تحقق الشرط مثل إذا كان مجموع الطالب أكبر من او يساوى 50 اظهر في خانة نتيجة الطالب كلمة ناجح وفى حالة عدم تحقق الشرط اظهر كلمة راسب

If Me.sdegree >= 50 Then

Me.result = "ناجح"

Else

Me.result = "راسب"

End If

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

الحالة الثالثة من حالات If 

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

نلاحظ انه عندما كان مجموع الطالب 74 كان تقدير الطالب جيد

If Me.sdegree >= 90 Then

Me.result = "امتياز"

ElseIf Me.sdegree >= 75 Then

Me.result = "جيدجدا"

ElseIf Me.sdegree >= 65 Then

Me.result = "جيد"

ElseIf Me.sdegree >= 50 Then

Me.result = "مقبول"

Else

Me.result = "راسب"

End If

يمكن انشاء دالة function ويتم وضع بداخلها حالات If المختلفة ونقوم بتسميتها باسم مناسب وفى هذا المثال اسمها grading   ويتم استدعاء الدالة كلما احتجنا لها

كما هو موضح بالمثال

ثم نضغط على زر الأمر اظهر النتيجة فى وضع التصميم ومن الاحداث events نختار الحدث Onclick ومنه نختر code builder ونقوم بكتابة الكود

Me.result=grading(sdegree)

نلاحظ هنا ان مربع نتيجة الطالب يساوى دالة function الخاصة بتقدير الطالب وهى grading وتاخذ متغير واحد وهو sdegree حيث انه مربع النص الذى يتم وضع درجات الطالب بداخله