وظيفة او دالة لإغلاق اي تقرير مفتوح

اخي الفاضل sabmof

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

الموضوع لا يحتاج الى ماكرو ولكن يحتاج الى دالة تتأكد من اي تقرير مفتوح وتقوم بإغلاقه فورا بحيث نضع هذه الوظيفة في النموذج ثم نقوم بإستدعاءها من خلال زر الأمر الخاص بإغلاق اي تقرير مفتوح

وظيفة التأكد هل التقرير مفتوح أم لا

Public Function IsReportOpen(strRptName As String) As Boolean
IsReportOpen = (SysCmd(acSysCmdGetObjectState, acReport, strRptName) <> 0)
End Function

وظيفة اغلاق اي تقرير مفتوح

Sub CloseAllReports()
Dim dbs As DAO.Database, ctr As Container, doc As Document
Set dbs = CurrentDb
Set ctr = dbs.Containers("Reports")

For Each doc In ctr.Documents
	 If IsReportOpen(doc.Name) = True Then
		  DoCmd.Close acReport, doc.Name
	 End If
Next
End Sub

استدعاء وظيفة اغلاق اي تقرير مفتوح من خلال زر الأمر " اغلاق اي تقرير مفتوح "

Private Sub CmdCloseAnyReport_Click()
Call CloseAllReports
End Sub

للتجربة

افتح التقارير الثلاثة واحد بعد الأخر حتى تصبح كل القارير الثلاثة امامك على الشاشة

الآن اضغط زر الأمر " اغلاق اي تقرير مفتوح وسيتم اغلاق جميع التقارير دفعة واحده .

طبعا هذه الوظيفة غير محدده بإسم اي تقريرمعين لأنها وظيفة عامة لكل التقارير

zaCloseAllReports.rar

السلام عليكم..

العزيزة زهرة..

لاتسعفنى الكلمات او عبارات الشكر او ... او.. الى اخر كلمات الثناء على كرم اخلاقك و علمك

فأنت .. زهرة هذا المنتدى بل روضة ازهار..

متعك الله بالصحة وبارك لك فى اسرتك ..

وجعل الله علمك فى خدمة الامة الاسلامية والعربية .. واثابك الله عنا كل الخير

ودائماً للامام

واتمنى لكل الاعضاء والسادة المشرفين والقائمين على اعظم منتدى بكل الخير

وسوف اقوم بالتجربة واخبر حضرتك بالنتيجة ..

بارك الله فيك اختنا ومعلمتنا الغالية زهرة

كنت قد بحثت عن ذلك من قبل ووجدت طريقة اخرى اضفتها على مثالك بعد اذنك ليستفيد منها اخواني بالمنتدى.

مع الشكر والتقدير على كل ما تقدمينه للجميع

تقبل الله الصيام والقيام

zaCloseAllReports.rar

بارك الله فيك أخي يوسف

على هذا الكود الجميل والمختصر والذي يؤدي نفس الوظيفة

ولك مني خالص الشكر والتقدير

وفيك بارك زهرة منتدانا الغالي

شرف لي مرورك

حفظك الله ورعاك

بسم الله الرحمن الرحيم

بارك الله فيكم اخواني