اخفاء القوائم

[غريب طرابلس]

السلام عليكم

الى الاخوة الكرام بدون استتناء

اريد اخفاء القائمة العلوية والقائمة الجانبية في اكسس 2010

والبرنامج ثم تصميمه  باكسس 2003

حاولة تجربة فمازالت القائمة العلوية موجودة

وشكرا

الكود المستخدم 

 

Option Compare Database

Option Explicit

Private Sub cmdHide_Click()

DoCmd.NavigateTo "acNavigationCategoryObjectType"

DoCmd.RunCommand acCmdWindowHide

DoCmd.ShowToolbar "Ribbon", acToolbarNo

End Sub 

 

Private Sub cmdShow_Click()

DoCmd.NavigateTo "acNavigationCategoryObjectType"

DoCmd.SelectObject acForm, , True

DoCmd.ShowToolbar "Ribbon", acToolbarYes

End Sub

تم تعديل يناير 19, 2018 بواسطه غريب طرابلس

[Shivan Kurdi - شڤان کوردی]

12 ساعات مضت, غريب طرابلس said:

حاولة تجربة فمازالت القائمة العلوية موجودة

هل تريد ان يظهر هكذا في الاعلى 

 

[غريب طرابلس]

وعليكم السلام

اخي الكريم شفان

دائما سباق للخير الله يكرمك على قدر نيتك

اخي ثم الحل  الكود  ليس فيه اي مشكل 

ولكن كانت المشكلة في تعارض الوحدة النمطية 

ثم حل المشكل 

مشكور استاد شفان