يمكنك استخدام كتلة If macro في قواعد بيانات Access لسطح المكتب وتطبيقات Access على الويب لتنفيذ مجموعة من إجراءات الماكرو بشكل مشروط، اعتمادا على قيمة التعبير.
If
expression
Then
Insert macro actions here ...
Else If expression
Insert macro actions here ...
Else
Insert macro actions here ...
End If
الإعداد
لكل من If و Else If، تكون الوسيطات التالية مطلوبة.
وسيطة الإجراء |
الوصف |
---|---|
تعبير |
الشرط الذي ترغب في اختباره. يجب أن يكون تعبيرا يتم تقييمه إلى True أو False. |
ملاحظات
عند تحديد كتلة If macro، يظهر مربع نص بحيث يمكنك إدخال تعبير يمثل الشرط الذي ترغب في اختباره. بالإضافة إلى ذلك، يظهر مربع تحرير وسرد حيث يمكنك إدراج إجراء ماكرو، والذي يظهر أسفله النص "إنهاء إذا" تلقائيا. قوس If وEnd If ناحية يمكنك فيها إدخال مجموعة أو كتلة للإجراءات. يتم تنفيذ الكتلة فقط إذا كان التعبير الذي تقوم بإدخاله هو True.
لتقييم تعبير مختلف عندما يكون التعبير الأول خاطئا، يمكنك النقر فوق Add Else If لإدراج كتلة Else If اختيارية. يجب إدخال تعبير يتم تقييمه إلى True أو False. في هذه الحالة، يتم تنفيذ الكتلة فقط إذا كان التعبير True والتعبير الأول هو False.
يمكنك إضافة العديد من كتل Else If كما تريد إلى كتلة If.
يمكنك النقر فوق Add Else لإدراج كتلة Else اختيارية. في هذه الحالة، تشكل الإجراءات التي تدرجها أسفل كتلة Else، والتي يتم تنفيذها فقط عندما لا يتم تنفيذ الإجراءات أعلاه. يمكنك إضافة كتلة Else واحدة إلى كتلة If .
في مثال التعليمات البرمجية التالي، يتم تنفيذ إجراءات الماكرو في الكتلة الأولى إذا كانت قيمة [الحالة] أكبر من 0. إذا لم تكن قيمة [الحالة] أكبر من 0، يتم تقييم التعبير الذي يتبع Else If . يتم تنفيذ إجراءات الماكرو في كتلة Else If إذا كانت قيمة [Status] تساوي 0. وأخيرا، إذا لم يتم تنفيذ الكتلة الأولى أو الكتلة الثانية، يتم تنفيذ الإجراءات في كتلة Else .
If
[Status] > 0
Then
Insert macro actions here ...
Else If [Status] = 0
Insert macro actions here ...
Else
Insert macro actions here ...
End If
يمكنك تداخل كتل If . يجب أن تفكر في تداخل كتلة If ضمن كتلة If إذا كنت تريد تقييم تعبير ثان عندما يكون التعبير الأول صحيحا. في مثال التعليمات البرمجية التالي، يتم تنفيذ كتلة If الداخلية فقط عندما تكون قيمة [الحالة] أكبر من 0 وأكبر من 100.
If
[Status] > 0
Then
Insert macro actions here ...
If [Status] > 100
Insert macro actions here ...
EndifEnd If