moamen salem قام بنشر مارس 1, 2018 قام بنشر مارس 1, 2018 اخوتي الافاضل مرفق كود لاغلاق جميع النماذج المفتوحة DoCmd.Close ObjectType:=acForm, ObjectName:=(0), Save:=acSavePrompt انا عايز يغلق جميع النماذج ما عادا نموذج واحد اسمه nam
ابو ياسين المشولي قام بنشر مارس 1, 2018 قام بنشر مارس 1, 2018 اخي الكريم لماذا تفتح موضوعين بنفس الموضوع شوف هذا طلبك 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, 2018 الكاتب قام بنشر مارس 1, 2018 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 اخي الكريم مش هينفع اغلق النموذج وافتحه تاني عشان له مصدر وهيطلب المصدر من جديد
صالح حمادي قام بنشر مارس 1, 2018 قام بنشر مارس 1, 2018 السلام عليكم بعد إذنك أخي ابو ياسين تعديل بسيط على الكود الذي استعملته: 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 3 1
moamen salem قام بنشر مارس 4, 2018 الكاتب قام بنشر مارس 4, 2018 اخي الكريم اشكلرك علي الاهتمام ولاكن هذا ليس المطلوب انا عايز اغلق جميع النماذج ما عادا نموج الشاشة فقط مش هينفع اقفله وافتحه تاني
ابو ياسين المشولي قام بنشر مارس 4, 2018 قام بنشر مارس 4, 2018 منذ ساعه, 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 قام بنشر مارس 4, 2018 الكاتب قام بنشر مارس 4, 2018 ايوة الاتنين ما نفعو وكود الاخ صالح بيجيب خطا علي حرف i
ابو ياسين المشولي قام بنشر مارس 4, 2018 قام بنشر مارس 4, 2018 الان, moamen salem said: ايوة الاتنين ما نفعو وكود الاخ صالح بيجيب خطا علي حرف i اخي ارفع مثال انا استخدمه شغال معي 100% 1
moamen salem قام بنشر مارس 4, 2018 الكاتب قام بنشر مارس 4, 2018 اتفضل اخي انا عايز يغلق كل النماذج ما عادة النموذج الرئيسي ويكون الكود في الرئيسي New Microsoft Access Database.rar 5 دقائق مضت, sandanet said: تفضل example.mdb والله انك صقر وشكرا للاخواة شكر جزيلا
ابو ياسين المشولي قام بنشر مارس 4, 2018 قام بنشر مارس 4, 2018 اخي الفاضل كل الطرق تعطيك نفس النتيجه 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 1
ابو جودي قام بنشر مارس 4, 2018 قام بنشر مارس 4, 2018 وزيادة الخير خيرين ومشاركة مع احبابى واساتذتى الكرام دى فكرة كمان CloseAllOpenForms.accdb 3
النجاشي قام بنشر مارس 4, 2018 قام بنشر مارس 4, 2018 حفظكم الله اين ما كنتم كم انت طيبن تحبون الخير للناس بارك الله فيكم الف تحيه لكم 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.