kaser906 قام بنشر فبراير 11, 2018 مشاركة قام بنشر فبراير 11, 2018 Function SnRel() DoCmd.close acForm, stDocName DoCmd.close acForm, Me.Name DoCmd.OpenForm "frm_man" End Function السلام عليكم ورحمة الله وبركاتة بالكود أعلاه اريد اعلاق أي نموذج مفتوح عن طريقة استدعاء وحدة نمطية وفتح النموذج frm_man وضعت الكود لكن لم يعمل على اغلاق النموذج فقط ينفذ أمر فتح النموذج رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر فبراير 12, 2018 الكاتب مشاركة قام بنشر فبراير 12, 2018 تم التوصل للحل عن طريق هذا الكود وأضعه هنا للفائدة العامه 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" 1 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر فبراير 12, 2018 مشاركة قام بنشر فبراير 12, 2018 ممتاز بارك الله فيك 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.