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

[abedgo]

السلام علسكم أعظاء المنتدى الكرام

لي طلب عندكم وإن شاء الله أجد جوابا له

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

وجزاكم الله خيرا

[kanory]

تفضل ....

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
DoCmd.OpenForm "kanory"

 

[abedgo]

جزيت خيرا

الكود شغال 100%