[Ahmed_Mansoor]

أهلا أخي الكريم , جزاك الله خير أخي محمد العبيدي , وجزاك الله خير أخي أبو عمر على جهودكم الرائعه في تقديم المساعدة للإخوة الأعضاء , هذه المشاركه مني لموضوع الأخ وادي العوضي حيث أنه لا خبرة لدي في الأكسس فيما يخص التقارير فيه والنماذج وما إلى ذلك فقط أستخدمه كقاعدة بيانات ولكن بحثت قليلاً فوجدت شي متعلق بفلترة مايتم طباعته في التقرير , حيث قد قام أخي محمد العبيدي جزاه الله خير بعمل كود إستدعاء التقرير من الأكسس ولكن بدون شرط وقام أيضا بتعديل التقرير ليطبع مرتين , وأنا قمت فقط بإضافة شرط وهو أن يطبع فقط السجل الذي يحمل الرقم الموجود في خانة التكست1 في الفورم , هذا كود الطباعة بعد التعديل :

كود :

Dim ac As Object
Set ac = CreateObject("Access.Application")
ac.OpenCurrentDatabase (App.Path & "\compny.mdb")
ac.DoCmd.OpenReport "Report1", acViewNormal, , "ID=" & Trim$(Text1.Text)
ac.CloseCurrentDatabase
Set ac = Nothing

- تحياتي للجميع .