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

[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 ساعه مضت, ابو ياسين المشولي 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

 

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

[صالح حمادي]

السلام عليكم

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

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]

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

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

منذ ساعه, moamen salem said:

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

اخي الكريم هذا يغلق جميع النماذج ماعد نموذج اسمه 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

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

الان, moamen salem said:

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

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

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

[sandanet]

تفضل

example.mdb

[moamen salem]

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

New Microsoft Access Database.rar

5 دقائق مضت, sandanet said:

تفضل

example.mdb

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

 

[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

[النجاشي]

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

الف تحيه لكم