استاذ ابو عمر السلام عليكم ورحمة الله وبركاته
اعرف ان من ضمن الشروط ان لا اوجه السؤال الى شخص لكني في حيرة من امري غدا ان شاء الله يجب ان اعمل على البرنامج
والعمل على البرنامج يتطلب البحث برقم التسلسل ID ومن ثم طباعة النتيجة لهذا السجل الذي تم البحث عنه بنسختين
وانا كلي امل بان تساعدني لاني لا اعرف حتى العمل على الداتا ريبورت مع شكري وتقديري لك استاذي الفاضل
zzz.zip (الحجم : 93.8 ك ب / التحميلات : 43)
أرجو أن أراك قريبا في قسم الدوت نت
فالمثال المرفق يتم اعداه فيه في اقل من خمس دقايق !!!
إذا لم يكن هو المطلوب فاعذرني على قلة فهمي لمطلوبك
بالتوفيق
سبحان الله والحمدللهولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
ارجو ان يكون المرفق هو المطلوب وعذراً على التأخر
استبدلت طريقة التعامل مع قاعدة البيانات واستبدلت التقري ب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
استاذي الفاضل ابو عمر لا اعرف كيف اعبر عن امتناني وشكري الكبير لك لمساعدتك لي وكلمة شكرا قليلة في حقك وسوف ادخل في عالم الدوت نت
الله لايحرمنا من شخصك الكريم والطيب يارب
استاذي الفاضل محمد العبيدي الله لايحرمنا من شخصك الكريم والطيب يارب شكرا جزيلا لك لمساعدتك لي واهتمامك بالموضوع كلمة شكرا ايضا قليلة في حقك
لكني ادعو الله العلي القدير ان يمن عليكما اساتذتي الافاضل بالصحة والعافية والستر في الدنيا والاخرة
جزاكم الله خير الجزاء
نعم هذا هو المطلوب
