تعديل في كود

[عادلصباح]

الاخوه الكرام / أصحاب الخبرة 
ارجو التعديل بحيث اتمكن من غلق جميع النماذج والتقارير المفتوحة في القاعدة وفتح نموذج معين (fram1) 
بحيث اضع في حدث عند الغلق للنموذج أو التقرير مثلا كود لغلق هذا النموذج أو التقرير وفتح النموذج المراد علما بأنني أريد استخدامه مع بعض النماذج فقط دون النماذج أخرى 
كما أريد عند غلق النموذج  (fram1) بصفة خاصة أن يعطيني رسالة بتأكيد الغلق نعم أو لا  أرجو أن أكون ولت الفكرة
وجزاكم الله خيرا

 

   Dim strMsg As String

strMsg = " هل تريد الخروج"

Dim obf, obr As AccessObject, dbs As Object

Set dbs = Application.CurrentProject

  

For Each obr In dbs.AllReports

        If obr.IsLoaded = True Then

            DoCmd.Close acReport, obr.Name

        End If

    Next obr

 

        For Each obf In dbs.AllForms

        If obf.IsLoaded = True And obf.Name <> "نموذج البحث" Then

          

            DoCmd.Close acForm, obf.Name

        End If

    Next obf