السلام عليكم اعضاء المنتدى الرائع
اتمنى احد يساعدني في انشاء كود لطباعة قيم داخل مربعات نص غير مربوطة بقاعدة البيانات
قمت باعداد data report واحتاج الكود فقط لتنفيذ امر الطباعة
المشروع مرفق
وطلبي هو تفعيل ( زر الطباعة الموجود في المشروع )
اتمنى المساعدة ولكم شكري
إستخدم ذلك الكود
كود :
Set DataReport1.Sections("section4").Controls("Label1").Caption = Text1.Text
حيث Label1 هو اداة العنوان في التقرير في القس 4
و Text1 خانة النص المراد طباعة قيمتها
(30-11-18, 09:30 PM)عبدالله الصافي كتب : [ -> ]إستخدم ذلك الكود
كود :
Set DataReport1.Sections("section4").Controls("Label1").Caption = Text1.Text
حيث Label1 هو اداة العنوان في التقرير في القس 4
و Text1 خانة النص المراد طباعة قيمتها
اشكرا اخي عبد الله على سرعة ردك وجزاك الله خير
حاولت ولكن يبدو اني لم افهم استخدام الكود بشكل صحيح
اتمنى اخي المساعدة بالتعديل على المشروع باضافة datareport2
وتطبيق الكود على احد مربعات النص مثلا text30 ويمثل قيمة TSH
وان شاء الله اطبقة على الباقي ولك شكري
(30-11-18, 10:43 PM)عبدالله الصافي كتب : [ -> ]التعديا بالمرفقات
ماشاء الله تبارك الله
ماقصرت اخي عبد الله اعجز عن الشكر
الله يعطيييك الف الف عاااافية ويكتب لك الاجر
دمت اخي