اظهار واخفاء المنيو بار

اخي الفاضل

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

هذا ملفك بعد التعديل

من شريط قوائم الاكسيس اختر ادوات ثم بدء التشغيل

وانظر التعديلات التي بداخله

تم ازالة علامات الصح الغير مرغوب فيها واضافة القائمة الخاصة بك Main في شريط القوائم

Local_Fabric.rar

اختكم

زهره

الاخت العزيزة زهرة

أولا

شكرا علي الاهتمام

ثانياً : -

ليس هذا هو المطلوب فلم يحدث أي تغيير فيما أريد و أود أن اشرح لك بالتفصيل ما هو مطلوب لكي نصل للنتيجة المرجوة

أريد عند تحميل فورم باص وورد لايتم التعامل مع شريط القوائم الخاص بالبرنامج ويظهر امامي غير نشط وعند ادخال الباص وورد الصحيح تظهر القوائم نشطة ويتم التعامل معها

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

أرجو أن أكون قد استطعت توضيح الصورة لكي

أسف علي الاطالة

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

وارجو ابلاغي بالنتيجه

Local_Fabric_up.rar

اختكم

زهره

الاخت زهرة

النتيجة مزهلة فأنا من أشد المعجبين بمواضيعك المميزة لما فيها من قوة ومرونة وموضوعية وأيضا سهولة في فهم الاكواد البرمجية

برجاء إرسال ولو شرح مبسط عما فعلت لاخفاء المنيو بار حتي يسهل علي التعرف علي كيفية حدوث ذلك فأنا لست بمحترف للغاية

للمرة الثانية

شكراً جزيلا

اخي الفاضل

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

الحمد لله ان هذا هو المطلوب

اليك شرح الطريقة بالتفصيل

1. من قوائم الاكسيس اختر ادوات ثم بدء التشغيل

2. ستظهر لك نافذه قم بإزالة جميع علامات الصح منها

3. بما ان شريط القوائم الخاص بك اسمه Main اذن اكتب في حقل شريط القوائم في نافذة بدء التشغيل Main

4. ننتقل الان الى اول نموذج يتم فتحه وهو في هذه الحالة الشاشة الافتتاحية التي تظهر وبعد خمس ثوان تختفي ويظهر نموذج الـ Password

5. نفتح نموذج الشاشة الافتتاحية في وضع التصميم وفي حدث عند التحميل نضع هذا الكود

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

هذا الكود يقوم بإخفاء اي شريط ادوات من النموذج من خلال الخاصية acToolbarNo

6. نحفظ نموذج الشاشة الافتتاحية ونخرج منه

7. ننتقل الان الى نموذج الرقم السري Password ونفتحه في وضع التصميم

هنا الوضع يختلف فليلا لانه يوجد به حالتين تحت زر الامر OK الاولى في حالة كان الاسم والرقم صحيحا فعندها يتم عرض شريط الادوات والحالة الثانية في حالة خطأ الاسم او الرقم السري فلا تظهر حسب الكود التالي

Private Sub ok_Click()
Dim a
a = DLookup("[pass]", "user", "[name]='" & [T1] & "'")
If a = T2 Then
DoCmd.Close
DoCmd.ShowToolbar "main", acToolbarYes
Else
DoCmd.ShowToolbar "main", acToolbarNo
End If
End Sub

8. نحفظ النموذج ونقزم بالتطبيق وسنجد ان ما قمنا بعمله صحيح وهو المطلوب

شرح الكود

نقوم بالتصريح لمتغير اسمه a

نجعل قيمة المتغير a تساوي قيمة الدالة DLookup التي تبحث في الجدول user عن الاسم والرقم السري ومن ثم نقوم بإسناد قيمة الاسم الى مربع النص T1

نضع الشرط بالدالة IF بحيث اذا تساوت a = T2 يكون الاسم والرقم السري صحيحا ويتم اغلاق نموذج الـ Password وتمكين شريط الادوات Main من الظهور

DoCmd.ShowToolbar "main", acToolbarYes

لاحظ التغيير هنا كانت acToolbarNo والان اصبحت acToolbarYes

وفي حالة ان الاسم والرقم السري خطأ لا يظهر شريط الادوات

DoCmd.ShowToolbar "main", acToolbarNo

اختكم

زهره

الي الاخت زهرة

والله مهما قلت لم استطع ان اعطيك حققك

الله اكبر عليكي

محمد فؤاد