السلام عليكم ورحمة الله وبركاته
إلى كل من يعاني من واجهة الأكسس عندما يفتح قاعدة بيناته أليكم هذا الكود ولا أعلم إن سقني أحد المشرفين أو الأعضاء بطرحه من قبل رغم أني تصفحة هذا المنتدى الرائع لعدة أيام قضيتها داخل أقسام الأكسس ولم أجد طرحاً له.
وإن كان غير ذلك فالعذر والسموحة أخواني فأنا أعتقدت أني أتيت (راعي الأوله)ومشاركتي هذه تعبيراً وتضامناً مني مع هذا المنتدى الرائع الذي أفادني كثيراً في إنشاء أول مشروع لي (خاص بالعمل) بعد تطبيقي لأغلب الأمثلة التي تطرح هنا ، فلكم مني كل التقدير والأحترام بدايةً بمشريفين قسم الأكسس وإنتهاءً بالأخوة الأعضاء الذين جعلوني أعتقد أن الجميع مشرف في هذا المنتدى نظراً لمشاركاتهم الفعالة ,,,
هذا هو الكود:
CommandBars.ActiveMenuBar.Enabled = False 'Turn Access' Menu Bar
DoCmd.ShowToolbar "Form View", acToolbarNo
DoCmd.ShowToolbar "Formatting (Form/Report)", acToolbarNo
End Sub
[code]
ملاحظة:
1- يجب عمل نسخة إحتياطية لقاعدة البيانات حتى ترجع إليها في حالة فشل الكود .. ( الكود أنا مجربه شخصياً ونجح بنسة 100% ).
2- يفضل وضع الكود في الصفحة الرئيسية لقاعدة بياناتك حتى يقوم بعمله من بداية تشغيل القاعدة.
3- ضع الكود في خصائص صفحتك الرئيسية في حدث ( عند التحميل).
4- إذا كان لديك شريطك الخاص فيجب تفعيله قبل استخدام الكود ( لإنك لن ترى غيره في صفحة قاعدة البيانات).