كود حذف شريط الأدوات وجميع الأشرطة الأخرى

[mancella]

السلام عليكم ورحمة الله وبركاته
إلى كل من يعاني من واجهة الأكسس عندما يفتح قاعدة بيناته أليكم هذا الكود .
ولكم مني كل التقدير والأحترام ,,,
هذا هو الكود:

 
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- إذا كان لديك شريطك الخاص فيجب تفعيله قبل استخدام الكود ( لإنك لن ترى غيره في صفحة قاعدة البيانات).

والسلام عليكم ورحمة الله وبركاته

تم تعديل ديسمبر 22, 2007 بواسطه mancella

[شحادة بشير]

وعليكم السلام ورحمة الله وبركاته
أضفت لك بالمرفق تطبيقاً لما ذكرته مع إضافة كود لإظهار شريط الأدوات
ألف شكر لك

___________.rar