اخفاء شريط اكسيس

[محمد احمد لطفى]

كيف اخفى شريط اكسيس

وجزاكم الله خيراً

test1001.rar

[Shivan Rekany]

  في 25‏/6‏/2017 at 16:40, محمد احمد لطفى said:

كيف اخفى شريط اكسيس

وجزاكم الله خيراً

test1001.rarFetching info...

Expand  

اليك هذا للاخفاء

Private Sub Form_Load()
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub

وهذا للاظهار

Private Sub Form_Load()
DoCmd.ShowToolbar "Ribbon", acToolbarYes
End Sub

 

[محمد احمد لطفى]

  في 25‏/6‏/2017 at 18:49, Shivan Rekany said:

اليك هذا للاخفاء

Private Sub Form_Load()
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub

 

 

Expand  

أخفى النموذج بالكامل

[jjafferr]

السلام عليكم

 

انا اتعامل مع برامجي FE بهذه الطريقة:

جعفر

[Shivan Rekany]

  في 25‏/6‏/2017 at 16:40, محمد احمد لطفى said:

كيف اخفى شريط اكسيس

Expand  

 

  في 25‏/6‏/2017 at 19:21, محمد احمد لطفى said:

أخفى النموذج بالكامل

Expand  

ما فهمت ما تريد بالضبط

هل تريد اخفاء نموذج ام شريط ادوات ام اي ممكن توضح اكثر

  في 25‏/6‏/2017 at 19:46, jjafferr said:

السلام عليكم

 

انا اتعامل مع برامجي FE بهذه الطريقة:

جعفر

Expand  

شكرا استاذ جعفر لكونك معنا

 

[محمد احمد لطفى]

 

السلام عليكم

 

انا اتعامل مع برامجي FE بهذه الطريقة:

 

 شكراً استاذنا جعفر 
هذا الامر اخفى النموذج و ليس شريط الادوات 

DoCmd.ShowToolbar "Ribbon", acToolbarNo

test1001.rarFetching info...

تم تعديل يونيو 25, 2017 بواسطه محمد احمد لطفى

[محمد احمد لطفى]

هل من مساعدة

[jjafferr]

  في 26‏/6‏/2017 at 07:38, محمد احمد لطفى said:

هل من مساعدة

Expand  

انا اعطيتك رابط فيه مثال ، فهل جربته؟

 

جعفر

[محمد احمد لطفى]

أسف الموضوع الاخر عن قفل نموذج و حاولت ان اصل لاخفاء نافذة اكسيس لم اجدها

  في 26‏/6‏/2017 at 10:10, jjafferr said:

انا اعطيتك رابط فيه مثال ، فهل جربته؟

 

جعفر

Expand  

 

تم تعديل يونيو 26, 2017 بواسطه محمد احمد لطفى

[صالح حمادي]

  في 25‏/6‏/2017 at 16:40, محمد احمد لطفى said:

كيف اخفى شريط اكسيس

Expand  

 

  في 26‏/6‏/2017 at 10:27, محمد احمد لطفى said:

حاولت ان اصل لاخفاء نافذة اكسيس لم اجدها

Expand  

السلام عليكم

أخي محمد يجب أن توضح المطلوب أكثر :

هل هو إخفاء شاشة الأكسس؟ أم إخفاء شريط أدوات أكسس؟

[محمد احمد لطفى]

  في 26‏/6‏/2017 at 11:00, صالح حمادي said:

 

السلام عليكم

أخي محمد يجب أن توضح المطلوب أكثر :

هل هو إخفاء شاشة الأكسس؟ أم إخفاء شريط أدوات أكسس؟

Expand  

إخفاء شريط أدوات أكسس
 

[صالح حمادي]

 

  في 26‏/6‏/2017 at 11:17, محمد احمد لطفى said:

إخفاء شريط أدوات أكسس

Expand  

إذن استعمل كود الأستاذ شفان فهو الذي يقوم بالمطلوب

  في 25‏/6‏/2017 at 18:49, Shivan Rekany said:

اليك هذا للاخفاء

Private Sub Form_Load()
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub

وهذا للاظهار

Private Sub Form_Load()
DoCmd.ShowToolbar "Ribbon", acToolbarYes
End Sub

Expand  

[محمد احمد لطفى]

  في 25‏/6‏/2017 at 20:32, محمد احمد لطفى said:

 

السلام عليكم

 

انا اتعامل مع برامجي FE بهذه الطريقة:

 

 شكراً استاذنا جعفر 
هذا الامر اخفى النموذج و ليس شريط الادوات 

DoCmd.ShowToolbar "Ribbon", acToolbarNo

test1001.rarFetching info...

Expand  

 

  في 26‏/6‏/2017 at 11:23, صالح حمادي said:

 

إذن استعمل كود الأستاذ شفان فهو الذي يقوم بالمطلوب

Expand  

  استعملته بالفعل و هذا مثال  اخفى النموذج و لم يختفى شريط الادوات

[jjafferr]

  في 25‏/6‏/2017 at 18:49, Shivan Rekany said:

اليك هذا للاخفاء

Private Sub Form_Load()
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub

وهذا للاظهار

Private Sub Form_Load()
DoCmd.ShowToolbar "Ribbon", acToolbarYes
End Sub

 

Expand  

 

لجعل الامر السابق يعمل ، يجب ان نضع علامة صح على الاعدادات التالية (اللي في الدائرة الحمراء):

في الاكسس 2003 فما دون:

.

والاكسس 2010

.

جعفر

[محمد احمد لطفى]

جزاك الله خيرا

[محمد احمد لطفى]

  في 26‏/6‏/2017 at 16:26, jjafferr said:

 

لجعل الامر السابق يعمل ، يجب ان نضع علامة صح على الاعدادات التالية (اللي في الدائرة الحمراء):

في الاكسس 2003 فما دون:

.

والاكسس 2010

.

جعفر

Expand  

لم يعمل  كذلك 

و لكن وجدت هذا الكود عمل جيداً

Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i

[Shivan Rekany]

استأذن من استاذنا الحبيب @jjafferr وصديقي العزيز @صالح حمادي

  في 26‏/6‏/2017 at 18:06, محمد احمد لطفى said:

لم يعمل  كذلك 

و لكن وجدت هذا الكود عمل جيداً

Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i

Expand  

ما علاقة هذا الكود باخفاء شريط العنوان اي بعنوان الموضوع اي بعنوان السؤال

انا عملت التجربة على النموذج شوف الكود في فورم1

وعند فتحه لم يتم ااخفاء اي من شريط الادوات اكسس

شوف الصورة

بل هو عمل الغاء مفتاح الايمن

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

لذلك واثراء الموضوع نطلب من استاذنا القدير @ابوخليل  ان يجرب الكود لانه حضرته بيستخدم اوفيس اصدار 2003 

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

لذلك عند بحث احد اصدقاءنا على الموضوع لكي يوصل الى النتيجة باسرع وقت ممكن

 

 

[محمد احمد لطفى]

لا أعلم و لكن هوه الوحيد الذى اخفى شريط الادوات عندى
وهذه صورة توضيحية

[Shivan Rekany]

  في 26‏/6‏/2017 at 23:55, محمد احمد لطفى said:

لا أعلم و لكن هوه الوحيد الذى اخفى شريط الادوات عندى
وهذه صورة توضيحية

Expand  

الصورة بيقول نعم هو التمام 

تم البحث في مواقع الاجنبية ونعم ان الكود بيعمل ذلك من ادار 97 الى 2003 واحتمال ان يتم التشغيل على 2007 ايضاً
لكن لا يشتغل على اصدار 2010

شكرا للجميع

تم تعديل يونيو 27, 2017 بواسطه Shivan Rekany

[jjafferr]

  في 27‏/6‏/2017 at 00:08, Shivan Rekany said:

الصورة بيقول نعم هو التمام 

تم البحث في مواقع الاجنبية ونعم ان الكود بيعمل ذلك من ادار 97 الى 2003 واحتمال ان يتم التشغيل على 2007 ايضاً
لكن لا يشتغل على اصدار 2010

شكرا للجميع

Expand  

اخي شفان

رجاء تنزل المرفق من الرابط الذي وضعته انا ، ففيه نفس الكود الذي وضعه اخينا محمد ،

وانا استعمل هذا الكود في جميع برامجي ، وهو يعمل من الاكسس 2000 فما فوق

والكود أعم واكبر قليلا من كود اخينا محمد ، وأغلق به بعض الامور الاخرى كذلك

 

جعفر

[صالح حمادي]

  في 26‏/6‏/2017 at 23:41, Shivan Rekany said:

بل هو عمل الغاء مفتاح الايمن

Expand  

أيضا منع ظهور ورقة الخصائص في وضع التصميم

[Shivan Rekany]

  في 27‏/6‏/2017 at 07:56, jjafferr said:

اخي شفان

Expand  

نعم اخي الكبير اتفضل

  في 27‏/6‏/2017 at 07:56, jjafferr said:

رجاء تنزل المرفق من الرابط الذي وضعته انا ، ففيه نفس الكود الذي وضعه اخينا محمد ،

وانا استعمل هذا الكود في جميع برامجي ، وهو يعمل من الاكسس 2000 فما فوق

والكود أعم واكبر قليلا من كود اخينا محمد ، وأغلق به بعض الامور الاخرى كذلك

 

جعفر

Expand  

تم تنزيل المرفق 

لان شيء جميل تم الحفظ المرفق في مكتبتي ساحتاجه انا وساستخدمه في برامجي اذا تسمح لي

وشكرا لك على هذا ... الله يحفظك يا نور المنتدانا

[jjafferr]

  في 27‏/6‏/2017 at 11:28, Shivan Rekany said:

نعم اخي الكبير اتفضل

تم تنزيل المرفق 

لان شيء جميل تم الحفظ المرفق في مكتبتي ساحتاجه انا وساستخدمه في برامجي اذا تسمح لي

وشكرا لك على هذا ... الله يحفظك يا نور المنتدانا

Expand  

هلا والله ، وعلى راسي

 

جعفر

 

اخي شفان

ولكني انصحك ان تُنزل المرفق التالي ، والذي به يكتمل ربط الـ FE و BE

 

جعفر

[Shivan Rekany]

  في 27‏/6‏/2017 at 11:31, jjafferr said:

هلا والله ، وعلى راسي

 

جعفر

Expand  

تسلم ... الله يطول عمرك اخي الكبير

  في 27‏/6‏/2017 at 11:31, jjafferr said:

اخي شفان

ولكني انصحك ان تُنزل المرفق التالي ، والذي به يكتمل ربط الـ FE و BE

Expand  

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

الله يجزيك الفردوس الاعلى 

[jjafferr]

ان شاء الله اجهز بعض الملفات وافتح موضوع جديد فيه

 

جعفر