كيف أعطل جميع أشرطة الأدوات ؟

[قاصد]

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

ارجو ممن يستطيع خدمتي الاجابة على سؤالي مشكورا ..

سؤالي هو : كيف اجعل برنامجي يظهر بدون شريط المهام ولا شريط التعديلات ولا جدول تنسيق ملفات اكسس ؟

على سبيل المثال انظر على هذه الصورة

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

[التقني]

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

يمكنك أخي وضع هذا الكود :

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

في زر أمر أو عند تحميل النموذج

ولعكس العملية أي تفعيل واظهار جميع أشرطة الأدوات غير القيمة من False الى True

وبالتوفيق

[عمار زيد]

كود رائع

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

لو تعلم كيف كنت أخفيها لضحكت علي

خلي الطابق مستور

سلام

[قاصد]

الف الف شكر لك اخوي التقني

ياليت تشرح لي بالتفصيل اين اضع الكود

فأنا لست بالمحترف الى هذيك الدرجة

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

الرائع ...

اكرر شكري لك

وتقبل اجمل تحية

تم تعديل مارس 6, 2007 بواسطه قاصد

[التقني]

العفو أخي

الكود يوضع في حدث عند التحميل للنموذج الذي يتم تشغيله عند بدء تشغيل القاعدة .

أو

يمكن وضعه في حدث عند النقر للزر

أما عكس العملية أي اعادة اظهار أشرطة الأدوات فيتم وضع الكود عند الخروج من النموذج

أو من خلال زر أمر

والله أعلى وأعلم

[lyla]

تحياتي لك أخي الفاضل التقني

[Dream_Works]

الله يعطيك العافية أخوي

[mahmoudnasr]

السلام عليكم

اخى الكريم تقنى

لقد استخدمت الكود الذى وضعته وقفعلا اهشنى بكم هوا رائع لكن هناك مشكله؟؟؟؟؟؟؟؟؟؟؟؟

التقارير التى وضعتها بالبرنامج الخاص بى اختفت منها زر الطباعه و زر الخروج من التقرير فهل هناك حل لهذه المشكله ؟؟؟؟؟

ان اخفى القائمه ما عدا الطباعه والخروج ؟؟؟

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

[sx1]

بسم الله الرحمن الرحيم

بارك الله فيك اخي الكريم

[ykeen2010]

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

أخي التقني

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

[mahmoudnasr]

السلام عليكم

اخى تقنى لك من الف الف الف سلام وربنا يديك طول الصحه على المعلومات

عايز اتقل عليك بسؤال لنفس الموضوع

ازاى اخفى شريط الادوات ماعدا الطباعه والخروج من قائمه الادوات

ولك من الف الف الف شكر

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