elghoultk قام بنشر يوليو 11, 2023 مشاركة قام بنشر يوليو 11, 2023 السلام عليكم ورحمة الله وبركاته مطلوب كود يغلق جميع النماذج والتقارير المفتوحة من خلال الضغط علي زر في نموذج بحيث لا يتم غلق النموذج الذي به زر الاغلاق هذا وشكرا مقدما🥰 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يوليو 11, 2023 مشاركة قام بنشر يوليو 11, 2023 جرب هذا .... 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 4 رابط هذا التعليق شارك More sharing options...
elghoultk قام بنشر يوليو 11, 2023 الكاتب مشاركة قام بنشر يوليو 11, 2023 الغالي @kanory قمت بعمل زر جديد ووضعت الكود به في on click ولكن ظهرت رسالة الخطا التالية رابط هذا التعليق شارك More sharing options...
أفضل إجابة kanory قام بنشر يوليو 11, 2023 أفضل إجابة مشاركة قام بنشر يوليو 11, 2023 طيب طالما انه زر ... جرب هذا ... 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 او ادرج مثال مصغر للتطبيق .... رابط هذا التعليق شارك More sharing options...
elghoultk قام بنشر يوليو 15, 2023 الكاتب مشاركة قام بنشر يوليو 15, 2023 الغالي @kanory شكرا جزيلا الكود يعمل بامتياز مع جميع النماذج ولكن يعطي خطا مع نموذج معين ويعطي الخطا السابق فما هو رايك في حل المشكله رابط هذا التعليق شارك 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.