بستن تعدادي فرم و گزارش با استفاده از حلقه شرطي

[abas1388]

با سلام
اگر در يك برنامه اكسس تعدادي فرم و گزارش داشته باشيم و تعدادي از اين فرم ها و گزارش ها بطور همزمان باز باشند و بخواهيم بدون بستن تك تك اين فرم ها و گزارش ها ، در هنگام خروج از يك فرم خاص ، همه آنها بسته شوند از چه كدي بايد استفاده كنيم؟
البته فكر مي كنم با استفاده از حلقه شرطي كه در آن n تعداد فرم و گزارشهاي باز است اينكار انجام شود.
با تشكر

[مهدی قربانی]

سلام
فكر مي كنم قبلاً يك نمونه مشابه ارائه داده باشم جستجو كنيد احتمالاً پيدا مي كنيد .

[abas1388]

سلام
فكر مي كنم قبلاً يك نمونه مشابه ارائه داده باشم جستجو كنيد احتمالاً پيدا مي كنيد .
با سلام
جستجو كردم ، ولي متأسفانه موفق به يافتن نمونه نشدم.
با تشكر

[مهدی قربانی]

سلام
از اين كد كمك بگيريد .

Private Sub Form_Close()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject

For Each obj In dbs.AllForms
If obj.IsLoaded = True And obj.Name <> "Form4" Then
DoCmd.Close acForm, obj.Name
End If
Next obj

For Each obj In dbs.AllReports
DoCmd.Close acReport, obj.Name
Next obj
End Sub


كدها در فرم Form4 نوشته شده ، تمام فرمها و گزارشها رو باز و نهايتاً فرم مذكور رو باز كرده و بعد بنديد .