اريد كود زر لاخفاء واظهار جزء التنقل _ Navigation Pane

[tharwt]

اريد هذا الكود وارجو شرح الكود  وكيفية وضعة اثناء فتح النموذج يخفى واثناء اغلاق النموذج يظهر 

ويوجد موضوع لهذا ولكن استعملت الاكواد عمل مع  كود الاخفاء ام كود الاظهار فلم يعمل معى 

وهذا هو الكود  (Call DoCmd.SelectObject(acTable, , True 

[tharwt]

كل عام وانتم بخير  اعاده الله عليكم باليمن والبركات    لماذا لم يجيبنى احد  على سؤالى  او حتى اصلاح الكود 

تم تعديل أغسطس 21, 2018 بواسطه tharwt

[AlwaZeeR]

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

وكل عام وانتم بخير

جرب هذا الكود:

DoCmd.SelectObject acTable, , True
    DoCmd.RunCommand acCmdWindowHide

ولعمله كـ  sub 

استخدم:

Sub DisplayHideNavPane(Optional Visible As Boolean = True)
    DoCmd.SelectObject acTable, , True
    If Visible = False Then DoCmd.RunCommand acCmdWindowHide
End Sub

للاظهار استخدم:

DisplayHideNavPane True

وللاخفاء استخدم:

DisplayHideNavPane False

 

[محمد قاسم 12]

43 دقائق مضت, AlwaZeeR said:

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

وكل عام وانتم بخير

جرب هذا الكود:

DoCmd.SelectObject acTable, , True
    DoCmd.RunCommand acCmdWindowHide

ولعمله كـ  sub 

استخدم:

Sub DisplayHideNavPane(Optional Visible As Boolean = True)
    DoCmd.SelectObject acTable, , True
    If Visible = False Then DoCmd.RunCommand acCmdWindowHide
End Sub

للاظهار استخدم:

DisplayHideNavPane True

وللاخفاء استخدم:

DisplayHideNavPane False

 

ممكن تتكرم بمثال استاذى لو سمحت

 

[AlwaZeeR]

تفضل:

 

 

NavBarTest.rar

[الحلبي]

استاذنا / الوزير

الله عليك جميل جدا هذا الكود 

كنت ابحث عنه من وقت سابق

جعله الله في ميزان حسناتك وبارك الله فيك وكل عام وحضرتك بخير

[tharwt]

كل عام وانتم بخير  واعاده الله عليم باليمن والبركات    شكرا جزيل جعلة الله فى ميزان حسناتك اخى الكريم وسرعة الاستجابة  ولكن الكود مرتبط على ان يكون فى قاعد البيانات بجدول باسم Tbl  هل هذا لازم لعمل الكود  انا حزفت الجدول  تخرج رسالة ولا يعمل الكود  هل الاسم مهم ام لا

[Hamdi Edlbi-khalf]

الان, AlwaZeeR said:

تفضل:

 

 

NavBarTest.rar

كل عام  و أنت و منتدانا الطيب بألف خير جزاك الله كل خير

[AlwaZeeR]

وانتم بالف خير جميعا

21 ساعات مضت, tharwt said:

هل هذا لازم لعمل الكود  انا حزفت الجدول  تخرج رسالة ولا يعمل الكود  هل الاسم مهم ام لا

لا عزيزي ،،، لا علاقة لاسم الجدول بالكود

لكن يشترط ان يكون هناك كائن واحد او اكثر في قاعدة البيانات حسب مع تغيير ما يلزم في الصيغة التالية:

للجداول:

 DoCmd.SelectObject acTable, , True

للنماذج:

 

DoCmd.SelectObject acForm, , True

بغض النظر عن المسمى

وهكذاااا ...

 

[محمد قاسم 12]

في ٢١‏/٨‏/٢٠١٨ at 13:41, AlwaZeeR said:

تفضل:

 

 

NavBarTest.rar

بارك الله فيك معلمنا الكبير