اظهار واخفاء شريط المعلومات من خلال شريط القوائم

اخيراً تحقق الهدف احببت ان افيدكم بهده الفكرة بعد جهد جبار لكي اجعل اظهار واخفاء شريط المعلومات عن طريق شريط القوائم  .

جرب انقر على شريط القوائم وانقر على اخفاء شريط الادوات وانظر كيف يتم تغيير التسمية في القائمة من اخفاء الى اظهار والعكس

واذا لديكم اي افكار اخرى للتطوير امل ان تفيدونا بها

اتمنا ان تحوز على حسن اعجابكم

db_informion.rar

السلام عليكم

الكود التالي من صنع ا / زهرة العبد الله 

Private Sub Form_Load()
If SysCmd(acSysCmdAccessVer) > 11 Then
DoCmd.ShowToolbar "Ribbon", acToolbarNo
Else
 
Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i
End If
End Sub

عليك بوضعه في الفورم عند حدث التحميل onload

وذلك بعد فشلي في تجربة كود 

DoCmd.ShowToolbar "Ribbon", acToolbarNo

ووضعه في الفورم في حدث التحميل لم يتم الاخفاء في اوفيس 2010 بعدها واثناء بحثي وجدت الكود السابق في المنتدى من ضمن سلسلة ابداعات ا / زهرة 

صالح لكل اصدارات الاكسيس 

ribbon.rar

لاستعادة شريط الادوات حاول وضع نفس الكود بعد التعديل عليه ب yes بدلاً من no 

ووضع الكود في التقرير / عرض التصميم / حدث التحميل 

لتمكينك من الطباعة وعرض الادوات التي ربما تحتاجها اثناء عملك 

اخي فكرتي مطروحة للتحكم بشريط الحالة اسفل اخفاء واظهار من خلال شريط القوائم السؤال هل الفكرة عملية وليس هناك مشاكل منها علما بانها تعمل معي بشكل طبيعي