طيبة مصرية || Egyptian Tiaba طيبة مصرية ||  Egyptian Tiaba
recent

آخر الأخبار

recent

خطوات إنشاء الماكرو في تذييل النموذج (2)

خطوات إنشاء الماكرو في تذييل النموذج (2)

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

  • كتابة الشرط والإجراء المناسب للأيقونة التي تعرض جميع الأسماء الموجودة في قاعدة البيانات..
  • ثم سننتقل إلى شرح طريقة كتابة الشروط في حالة عدم وجود أسماء تبدأ بحرف معين داخل قاعدة البيانات أو على النقيض في حالة وجود أكثر من اسم يبدأ بالحرف نفسه..
فلنبدأ على بركة الله:)

 
~~تصميم زر التبديل "الكل"~~
يتبقى لنا زر التبديل "الكل" الذي يقوم بعرض جميع السجلات الموجودة داخل "استعلام الأسماء" ولذلك سوف نكتب في حقل "الشرط" الشرط الإجرائي التالي:
ShowAllRecords
ويؤدي إلى إظهار جميع الحقول الموجودة داخل الاستعلام المستخدم في الماكرو "استعلام الأسماء" . ولا يحتوي هذا الإجراء على أية وسائط.

~~شروط أخرى لا بد منها~~
يلاحظ أنه قد توجد أحرف لا يبدأ بها أي اسم داخل سجلات (Records) داخل قاعدة البيانات كما أنه قد يوجد أكثر من اسم داخل السجلات تبدأ بنفس الحرف.
لابد من أجل ذلك كتابة شروط تؤدي إلى عرض السجلات بشكل صحيح في حال اخترنا الحرف الذي يبدأ به الاسم داخل هذه السجلات أو إظهار رسالة تدل على عدم وجود سجلات تحتوي على أسماء تبدأ بالحرف المختار في حال تحققنا من عدم وجودها فعلا.

تستطيع كتابة الشروط كما هي موجودة في الشكل التالي وسوف أعلق عليها بعد أن تتأمل طريقة كتابة الشروط جيدا:

التعليق على كيفية كتابة الشروط في الشكل السابق:

أولا:

[CurrentRecord] > 0

إذا وجدت قيمة داخل السجل الذي نطبق عليه شرط الاختيار فإنه سوف يتحقق الإجراء المعين مسبقا لكل زر تبديل (في الخطوة رقم 9) . ثم بعد ذلك سوف ينتقل التركيز إلى أداة التحكم cmd التي سوف يتم شرحها لاحقا.



ثانيا:
 StopMacro

يمكنك استخدام الإجراء StopMacro لإيقاف الماكرو قيد التشغيل حالياً وذلك نتيجة تحقق الشرط السابق 11.1وليس لهذا الشرط أية وسائط إجرائية.
:ثالثا
[CurrentRecord] = 0

أما إذا لم توجد قيمة داخل السجل الذي نطبق عليه شرط الاختيار فإنه سوف تعرض رسالة عن طريق الإجراء MsgBox
يتضمن الإجراء MsgBox الوسائط التالية:
وسيطة الإجراءوصف
الرسالةونكتب فيه النص الذي سيظهر في مربع الرسالة:
"عفوا، لا يوجد اسم يبدأ بهذا الحرف"
مع ملاحظة أنه يمكنك كتابة 255 حرفاً كحد أقصى.
صوت تنبيهيحدد ما إذا كان الكمبيوتر يصدر صوت تنبيه عند عرض الرسالة. انقر فوق نعم (لإصدار صوت التنبيه) أو لا (لعدم إصدار صوت التنبيه). الوضع هو الافتراضي نعم.
النوعنوع مربع الرسالة. لكل نوع رمز مختلف. انقر فوق بلا أو حيوي أو تحذير؟ أو تحذير! أو معلومات
مع ملاحظة أن الإعداد الافتراضي هو بلا.
العنوانالنص المعروض في شريط العنوان في مربع الرسالة. نستطيع أن نكتب في مثالنا هذا :
"لا يوجد سجلات" للدلالة على أن هذه النافذة تعرض رسالة تفيد عدم وجود سجلات تبدأ بالحرف المختار.
في حالة ترك هذه الوسيطة خالية، يتم عرض "Microsoft Access".

انظر الشكل:


رابعا:
ShowAllRecords
في حال اخترنا حرف لا يبدأ به أي اسم فسوف يتم عرض رسالة حسب الإجراء السابق في الخطوة 11.3 ونتيجة عدم تحقق الشرط سيتم عرض جميع السجلات بشكل افتراضي عن طريق هذا الإجراء.

خامسا:
SetValue
يقوم هذا الإجراء بتعيين قيمة افتراضية لحقلي الاسم ورقم الهاتف الثابت في النموذج، وله وسطي إجراء:
 
وسيطة الإجراءوصف
العنصر
وفيه ندخل اسم الحقل أو عنصر التحكم أو الخاصية التي تريد تعيين قيمتها.
ففي مثالنا هذا سوف نجعل ندخل القيمة:
[الحروف]
وهو العنصر الذي سوف نحدد منه القيمة الافتراضية للحقول
تعبير
التعبير الذي يستخدمه Access لتعيين القيمة لهذا العنصر.
سوف نجعل قيمة [الحروف] في مثالنا هذا القيمة:
29
والتي تشير إلى زر التبديل "الكل" الذي يتم عن طريقه عرض جميع السجلات كما في الصورة:



وبهذا نكون قد انتهينا من تصميم الماكرو تماما ويتبقى لنا تغيير الخاصية "بعد التحديث" في أداة التحكم "مجموعة الخيار" والتي قمنا بتسميتها "الحروف" إلى Search.Buttons

المصدر: سوالم للكمبيوتر

جزى الله خيرا كل من ساهم فيه

التعليقات



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

جميع الحقوق محفوظة

طيبة مصرية || Egyptian Tiaba

2021