+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] المساعدة في طباعة السجل المحدد بالبحث (/showthread.php?tid=13536)
الصفحات:
1
2
RE: المساعدة في طباعة السجل المحدد بالبحث - وادي العوضي - 18-10-15
استاذ ابو عمر السلام عليكم ورحمة الله وبركاته
اعرف ان من ضمن الشروط ان لا اوجه السؤال الى شخص لكني في حيرة من امري غدا ان شاء الله يجب ان اعمل على البرنامج
والعمل على البرنامج يتطلب البحث برقم التسلسل ID ومن ثم طباعة النتيجة لهذا السجل الذي تم البحث عنه بنسختين
وانا كلي امل بان تساعدني لاني لا اعرف حتى العمل على الداتا ريبورت مع شكري وتقديري لك استاذي الفاضل
RE: المساعدة في طباعة السجل المحدد بالبحث - أبو عمر - 18-10-15
[attachment=8268]
أرجو أن أراك قريبا في قسم الدوت نت
فالمثال المرفق يتم اعداه فيه في اقل من خمس دقايق !!!
إذا لم يكن هو المطلوب فاعذرني على قلة فهمي لمطلوبك
بالتوفيق
RE: المساعدة في طباعة السجل المحدد بالبحث - محمد العبيدي - 18-10-15
ارجو ان يكون المرفق هو المطلوب وعذراً على التأخر
استبدلت طريقة التعامل مع قاعدة البيانات واستبدلت التقري بDatareport
ارجو التاكد من عملية لاضافة والتعديل لاني لم اجربه فقط جربت الطباعة
RE: المساعدة في طباعة السجل المحدد بالبحث - Ahmed_Mansoor - 18-10-15
أهلا أخي الكريم , جزاك الله خير أخي محمد العبيدي , وجزاك الله خير أخي أبو عمر على جهودكم الرائعه في تقديم المساعدة للإخوة الأعضاء , هذه المشاركه مني لموضوع الأخ وادي العوضي حيث أنه لا خبرة لدي في الأكسس فيما يخص التقارير فيه والنماذج وما إلى ذلك فقط أستخدمه كقاعدة بيانات ولكن بحثت قليلاً فوجدت شي متعلق بفلترة مايتم طباعته في التقرير , حيث قد قام أخي محمد العبيدي جزاه الله خير بعمل كود إستدعاء التقرير من الأكسس ولكن بدون شرط وقام أيضا بتعديل التقرير ليطبع مرتين , وأنا قمت فقط بإضافة شرط وهو أن يطبع فقط السجل الذي يحمل الرقم الموجود في خانة التكست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- تحياتي للجميع .
RE: المساعدة في طباعة السجل المحدد بالبحث - وادي العوضي - 18-10-15
استاذي الفاضل ابو عمر لا اعرف كيف اعبر عن امتناني وشكري الكبير لك لمساعدتك لي وكلمة شكرا قليلة في حقك وسوف ادخل في عالم الدوت نت
الله لايحرمنا من شخصك الكريم والطيب يارب
استاذي الفاضل محمد العبيدي الله لايحرمنا من شخصك الكريم والطيب يارب شكرا جزيلا لك لمساعدتك لي واهتمامك بالموضوع كلمة شكرا ايضا قليلة في حقك
لكني ادعو الله العلي القدير ان يمن عليكما اساتذتي الافاضل بالصحة والعافية والستر في الدنيا والاخرة
جزاكم الله خير الجزاء
نعم هذا هو المطلوب
RE: المساعدة في طباعة السجل المحدد بالبحث - awidan76 - 19-12-15
الله يعطيكم العافيه اخوتي