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

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

اخوي ابو وليد صباح الخير

اولا يا حبذا لو ارفقت مثالك لنعرف كيف نتعامل معه

ثانيا كم نموذج عندك مفتوح

ثالثا تكتب الكود التالي في خصائص النموذج الاخير وعند الفتح

docmd.close acform,"name of other form"

واعتقد والله يعلم لازم تكرره اذا طنت بتقفل اكثر من نموذج وانت جرب وشوف

حفظكم الله

اخوك خليفه

1- لإغلاق جميع النوافذ

()Private Sub Command1_Click

Do While Forms.Count > 0

DoCmd.Close acForm, Forms(0).Name

Loop

End Sub

2 – لإغلاق جميع النوافذ ماعدا واحدة بعينها ( مثال MyForm )

()Private Sub Command2_Click

Dim intx As Integer

Dim intCount As Integer

intCount = Forms.Count - 1

For intx = intCount To 0 Step -1

If Forms(intx).Name <> "MyForm" Then

DoCmd.Close acForm, Forms(intx).Name

End If

Next

End Sub