استدعاء وحدة نمطية لأغلاق أي نموذج مفتوح وفتح نموذج أخر

[kaser906]

Function SnRel()
DoCmd.close acForm, stDocName
DoCmd.close acForm, Me.Name
DoCmd.OpenForm "frm_man"
End Function

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

بالكود أعلاه

اريد اعلاق أي نموذج مفتوح عن طريقة استدعاء وحدة نمطية وفتح النموذج frm_man

وضعت الكود  لكن لم يعمل على اغلاق النموذج فقط ينفذ أمر فتح النموذج

[kaser906]

تم التوصل للحل عن طريق هذا الكود

وأضعه هنا للفائدة العامه

    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
    End With
DoCmd.OpenForm "frm_man"

 

[ابو ياسين المشولي]

ممتاز بارك الله فيك