استاذ ابو عمر السلام عليكم ورحمة الله وبركاته
اعرف ان من ضمن الشروط ان لا اوجه السؤال الى شخص لكني في حيرة من امري غدا ان شاء الله يجب ان اعمل على البرنامج
والعمل على البرنامج يتطلب البحث برقم التسلسل ID ومن ثم طباعة النتيجة لهذا السجل الذي تم البحث عنه بنسختين
وانا كلي امل بان تساعدني لاني لا اعرف حتى العمل على الداتا ريبورت مع شكري وتقديري لك استاذي الفاضل
![[صورة مرفقة: 18102015\A_1810201521429_1.png]](http://lion.our-lab.net/sw/18102015\A_1810201521429_1.png)
[
attachment=8268]
أرجو أن أراك قريبا في قسم الدوت نت
فالمثال المرفق يتم اعداه فيه في اقل من خمس دقايق !!!
إذا لم يكن هو المطلوب فاعذرني على قلة فهمي لمطلوبك
بالتوفيق
ارجو ان يكون المرفق هو المطلوب وعذراً على التأخر
استبدلت طريقة التعامل مع قاعدة البيانات واستبدلت التقري بDatareport
ارجو التاكد من عملية لاضافة والتعديل لاني لم اجربه فقط جربت الطباعة
أهلا أخي الكريم , جزاك الله خير أخي محمد العبيدي , وجزاك الله خير أخي أبو عمر على جهودكم الرائعه في تقديم المساعدة للإخوة الأعضاء , هذه المشاركه مني لموضوع الأخ وادي العوضي حيث أنه لا خبرة لدي في الأكسس فيما يخص التقارير فيه والنماذج وما إلى ذلك فقط أستخدمه كقاعدة بيانات ولكن بحثت قليلاً فوجدت شي متعلق بفلترة مايتم طباعته في التقرير , حيث قد قام أخي محمد العبيدي جزاه الله خير بعمل كود إستدعاء التقرير من الأكسس ولكن بدون شرط وقام أيضا بتعديل التقرير ليطبع مرتين , وأنا قمت فقط بإضافة شرط وهو أن يطبع فقط السجل الذي يحمل الرقم الموجود في خانة التكست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
- تحياتي للجميع .
استاذي الفاضل ابو عمر لا اعرف كيف اعبر عن امتناني وشكري الكبير لك لمساعدتك لي وكلمة شكرا قليلة في حقك وسوف ادخل في عالم الدوت نت
الله لايحرمنا من شخصك الكريم والطيب يارب
استاذي الفاضل محمد العبيدي الله لايحرمنا من شخصك الكريم والطيب يارب شكرا جزيلا لك لمساعدتك لي واهتمامك بالموضوع كلمة شكرا ايضا قليلة في حقك
لكني ادعو الله العلي القدير ان يمن عليكما اساتذتي الافاضل بالصحة والعافية والستر في الدنيا والاخرة
جزاكم الله خير الجزاء
نعم هذا هو المطلوب
الله يعطيكم العافيه اخوتي