اذهب الي المحتوي
أوفيسنا

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


قاصد

الردود الموصى بها

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

وبالتوفيق

رابط هذا التعليق
شارك

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

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

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

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

الرائع ...

اكرر شكري لك

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

تم تعديل بواسطه قاصد
رابط هذا التعليق
شارك

العفو أخي

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

أو

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

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

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

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

رابط هذا التعليق
شارك

  • 2 months later...

السلام عليكم

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

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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information