كيف أخفي مربع المساعدة من شريط القوائم ؟

[ليـــــــــــــنا حداد]

الأخوة الأفاضل :

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

عندي مشروع بسيط معمول على قاعدة البيانات اكسس ، وأريد أن احسن من مظهره قدر المستطاع ، بس المشكلة البسيطة اللي عندي هي انه يظهر عندي في أعلى شريط القائم المختصرة مربع المساعدة المكتوب عليه (type your question here) وأنا لا أريد أن يظهر لي هذا المربع ،،،

انا أعرف أن الكل راح يقول هذه سهلة روحي للتخصيص واختاري ما تريدين واتركي مالا تريدين من قوائم بمجرد نقرة باليمين ،،، بس هذا الشيء جربته أكثر من مرة وإذا اخترت اخفاء القائمة كلها ، صحيح راح يختفي المربع بس يرجع مع أول دخول ثاني لك ،،، أرجوا أن تجربوا قبل أن تردوا ،،، ولكم مني جزيل الشكر ،،،

[التقني]

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

الأخت لينا

عذراً على تغيير العنوان :(

هذا كود إخفاء جميع أشرطة الأدوات التابعة للآكسس :

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

وهذا الكود لإستعادتها أو اظهارها :

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

مع ملاحظة التالي :

يمكنك وضع كل كود في زر منفرد

أو يمكنك وضع كود الاخفاء عند تحميل النموذج ووضع كود الاظهار عند الاغلاق أو الخروج للنموذج .

أو أي طريقة ترينها .

بالتوفيق

تم تعديل ديسمبر 24, 2005 بواسطه التقني

[ليـــــــــــــنا حداد]

يعطيك العافية :

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

[التقني]

حياك الله أختي

بالنسبة لموضوع الكود الشامل

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

فهذا ما لا أعرفه

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

البركة في الأخوة المتمكنين

تم تعديل ديسمبر 25, 2005 بواسطه التقني

[rudwan]

اعمليه اجراء عام أي أنشئي موديول جديد , و عرفي فيه اجراء عام و ضعي فيه الكود

ثم يتم استدعاء الاجارء عند حدث الفتح لكل نموذج

call HideHelp

[التقني]

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

حياك الله أخي رضوان

اللي فهمته من شرحك هو :

1- وضع الكود في مديول ( من خلال الوحدة النمطية) وحفظه بإسم HideHelp

2- استدعاء هذا المديول الأمر : Call HideHelp

هذا هو الذي تقصده ؟

[rudwan]

نعم و بالضبط أخي