اغلاق جميع النماذج

[moamen salem]

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

DoCmd.Close ObjectType:=acForm, ObjectName:=(0), Save:=acSavePrompt

 

انا عايز يغلق جميع النماذج ما عادا نموذج واحد اسمه nam

 

[ابو ياسين المشولي]

اخي الكريم لماذا تفتح موضوعين بنفس الموضوع

شوف هذا طلبك

 With Application.Forms
 For i = .Count - 1 To 0 Step -1
 With .Item(i)
 If .NAME <> strExcept Then
 DoCmd.Close acForm, .NAME
 End If
 End With
 Next i
 DoCmd.OpenForm "nam"
 End With

 

[moamen salem]

  في 1‏/3‏/2018 at 09:20, ابو ياسين المشولي said:

اخي الكريم لماذا تفتح موضوعين بنفس الموضوع

شوف هذا طلبك

 With Application.Forms
 For i = .Count - 1 To 0 Step -1
 With .Item(i)
 If .NAME <> strExcept Then
 DoCmd.Close acForm, .NAME
 End If
 End With
 Next i
 DoCmd.OpenForm "nam"
 End With

 

Expand  

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

[صالح حمادي]

السلام عليكم

بعد إذنك أخي ابو ياسين تعديل بسيط على الكود الذي استعملته:

With Application.Forms
 For i = .Count - 1 To 0 Step -1
 With .Item(i)
 If .NAME <> "nam" Then
 DoCmd.Close acForm, .NAME
 End If
 End With
 Next i
 End With

 

[moamen salem]

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

[kanory]

اخي الكريم هل طبقك كود الاخ صالح ... يفي بالغرض

[ابو ياسين المشولي]

  في 4‏/3‏/2018 at 17:57, moamen salem said:

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

Expand  

اخي الكريم هذا يغلق جميع النماذج ماعد نموذج اسمه nam

With Application.Forms
 For i = .Count - 1 To 0 Step -1
 With .Item(i)
 If .NAME <> "nam" Then
 DoCmd.Close acForm, .NAME
 End If
 End With
 Next i
 End With

 

[moamen salem]

ايوة الاتنين ما نفعو 

وكود الاخ صالح بيجيب خطا علي حرف i

[ابو ياسين المشولي]

  في 4‏/3‏/2018 at 19:15, moamen salem said:

ايوة الاتنين ما نفعو 

وكود الاخ صالح بيجيب خطا علي حرف i

Expand  

اخي ارفع مثال انا استخدمه شغال معي 100%

[sandanet]

تفضل

example.mdb

[moamen salem]

اتفضل اخي انا عايز يغلق كل النماذج ما عادة النموذج الرئيسي ويكون الكود في الرئيسي

New Microsoft Access Database.rar

  في 4‏/3‏/2018 at 19:18, sandanet said:

تفضل

example.mdbFetching info...

Expand  

والله انك صقر وشكرا للاخواة شكر جزيلا

 

[sandanet]

مرحبتين فيك في اي وقت

[ابو ياسين المشولي]

اخي الفاضل كل الطرق تعطيك نفس النتيجه

With Application.Forms
 For i = .Count - 1 To 0 Step -1
 With .Item(i)
 If .Name <> "الشاشة الرئيسية" Then
 DoCmd.Close acForm, .Name
 End If
 End With
 Next i
 End With

[ابو جودي]

وزيادة الخير خيرين 

ومشاركة مع احبابى واساتذتى الكرام

دى فكرة كمان

 

CloseAllOpenForms.accdb

[النجاشي]

حفظكم الله اين ما كنتم كم انت طيبن تحبون الخير للناس  بارك الله فيكم

الف تحيه لكم