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

[elghoultk]

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

[kanory]

جرب هذا .... 

Sub CloseAllFormsAndReportsExceptOne()
    Dim obj As AccessObject
    For Each obj In CurrentProject.AllForms
        If obj.IsLoaded And Not obj.Name = "FormToKeepOpen" Then
            DoCmd.Close acForm, obj.Name
        End If
    Next obj
    For Each obj In CurrentProject.AllReports
        If obj.IsLoaded And Not obj.Name = "ReportToKeepOpen" Then
            DoCmd.Close acReport, obj.Name
        End If
    Next obj
End Sub

 

[elghoultk]

الغالي @kanory
قمت بعمل زر جديد
ووضعت الكود به في on click

ولكن ظهرت رسالة الخطا التالية

[kanory]

طيب طالما انه زر ... جرب هذا ...

    Dim obj As AccessObject
    For Each obj In CurrentProject.AllForms
        If obj.IsLoaded And Not obj.Name = "FormToKeepOpen" Then
            DoCmd.Close acForm, obj.Name
        End If
    Next obj
    For Each obj In CurrentProject.AllReports
        If obj.IsLoaded And Not obj.Name = "ReportToKeepOpen" Then
            DoCmd.Close acReport, obj.Name
        End If
    Next obj

 

او ادرج مثال مصغر للتطبيق .... 

[elghoultk]

الغالي @kanory

شكرا جزيلا
الكود يعمل بامتياز مع جميع النماذج

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