بسم الله الرحمن الرحيم
بعد أن تعرفنا على كيفية صنع toolbar خاص بقاعدة بياناتنا، يتبقى أن نتعرف على كيفية إظهار هذا الـtoolbar في قاعدة بياناتنا، وهي طريقة تتطلب منّا بعض البرمجة سواء باستخدام ماكرو أو بكتابة أسطر بسيطة كأوامر VBA، وتحديد الطريقة الأكثر مناسبة للاستخدام في قاعدة بياناتك يعتمد على عدد الـtoolbars التي صممتها لقاعدة بياناتك.
إظهار أشرطة الأدوات أو إخفاءها:
إن كنت قد صممت toolbar واحد للقاعدة ككل، وتريده أن يظهر على الشاشة دوماً وأنت تعمل علىقاعدة بياناتك، فإن الطريقة المثلى هنا هي استخدام إجراء ShowToolbar تضيفه إلى الماكرو Autoexec، حيث أن هذا الإجراء له الوسائط الموضحة في الصورة التالية:
في خانة Toolbar Name تحدد اسم شريط أدوات قاعدة بياناتك من قائمة منسدلة تظهر لك عند وضع المؤشر على هذه الخانة، وتحتوي هذه القائمة جميع أشرطة أدوات برنامج Access بالإضافة إلى أشرطة الأدوات التي قمت بتصميمها.
وفي خانة Show تحدد ما إذا كنت تريد إظهار شريط الأدوات أم لا، أو تريد إظهاره عند الحاجة فقط!
مثلاً، في قاعدة بياناتي، صممت شريط أدوات باسم Orphan، أريده أن يظهر عند فتح قاعدة البيانات وحده، بدون ظهور شريط أدوات database ولا شريط أدوات form view ولا أيضاً شريط أدوات التنسيق formatting، كل ما علي هو تكرار إجراء ShowToolbar في ماكرو Autoexec وتحديد الوسائط المناسبة له في كل مرة، كما توضح الصورة:
هذا بالنسبة لاستخدام الماكرو في إظهار شريط الأدوات.
أما إذا كنت صممت أكثر من شريط أدوات تريد أن تستخدم في قاعدة بياناتك، كل شريط يظهر مع نموذج معين، ويختفي عند إغلاق هذا النموذج مثلاً، فهنا من الأفضل لك استخدام أوامر VBA لإظهار وإخفاء أشرطة أدواتك، كل ما عليك هو إضافة الأمر التالي إلى الحدث الذي تريده (من مجموعة الأحداث الموجودة في خصائص النموذج):
DoCmd.ShowToolbar "Toolbar Name", acToolbar
حيث أن acToolbar من الممكن أن تكون:
-
acToolbarYes
-
acToolbarWhereApprop
-
acToolbarNo
فمثلاً، لإظهار شريط الأدوات مع فتح النموذج، اختر من خصائص النموذج "On Open" ثم اكتب الأمر التالي:
وبالمثل، إذا أردت إخفاء شريط الأدوات عند إغلاق النموذج، اختر من خصائص النموذج "On Close" ثم اكتب الأمر التالي:
هكذا نكون تعلمنا كيفية التحكم بإظهار أشرطة الأدوات أو إخفاءها في قاعدة بياناتنا.
