كود أو ماكرو يغلق أي نموذج مفتوح عند فتح نموذج أخر

مغلقمُجاب

بدأه RMsubhi في 28 مايو 2013 · 4 رد · 1,902 مشاهدة · في قواعد بيانات Microsoft Access

مشاركة: واتساب X فيسبوك تيليجرام

#128 مايو 2013 في 08:00 صاحب الموضوع

السلام عليكم أخوة الاعزاء

معي برنامج اكسس 2007 أريد مساعدتكم في كود عند فتح نموذج يغلق النماذج المفتوحة مسبقاً (النشطة)

يعني عند فتح نموذج يغلق النموذج السابق تلقائي يغض النظر عن اسم النموذج المراد غلقه

كود vb أو طريقة معينة لذوي الخبرة

بتبسيط أكثر..

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

وشكراً

مرفق البرنامج

برنامج+ال...rar

#228 مايو 2013 في 11:09

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

انا لا انصح بهذه العملية :)

فعندما تفتح نموذج ، يجب تغلق نموذج ،

وعندما تغلق نموذج ، يجب ان تفتح نموذج ،

بالاضافة الى التقارير و ..... :(

انا اعمل كالتالي:

اجعل لكل نموذج زر إغلاق ،

وعند فتحك نموذج ، وكنت لا تريد ان ترى النموذج الذي خرجت منه ، فعليك بتعديل الاعدادات وجعلها كالتالي:

وهكذا لن ترى إلا نموذج واحد فقط :)

جعفر

تم تعديل هذه المشاركة بواسطة jjafferr في 28 مايو 2013 في 11:11

#328 مايو 2013 في 12:12 أفضل إجابة

بارك الله بك اخي الكريم : جعفر

على المشاركه

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

بحيث نضع هذا الكود في حدث الفتح لكل النماذج

Private Sub Form_Open(Cancel As Integer)
Dim FormCount As Integer
Dim i As Integer
 
FormCount = Forms.Count
For i = FormCount - 1 To 0 Step -1
If Forms(i).Name <> FormName Then
DoCmd.Close acForm, Forms(i).Name
End If
Next i
End Sub

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

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

za-CloseAllForms.rar

بالتوفيق

تم تعديل هذه المشاركة بواسطة zahrah في 28 مايو 2013 في 12:15

post-15367-087183200%201340344597.gif