[دهشوش1]

السلام عليكم اعضاء المنتدى الرائع

اتمنى احد يساعدني في انشاء كود لطباعة قيم داخل مربعات نص غير مربوطة بقاعدة البيانات

قمت باعداد data report واحتاج الكود فقط لتنفيذ امر الطباعة

المشروع مرفق

وطلبي هو تفعيل ( زر الطباعة الموجود في المشروع )


اتمنى المساعدة ولكم شكري

[عبدالله الصافي]

إستخدم ذلك الكود

كود :

Set DataReport1.Sections("section4").Controls("Label1").Caption = Text1.Text

حيث Label1   هو اداة العنوان في التقرير في القس 4
و Text1  خانة النص المراد طباعة قيمتها

[دهشوش1]

(30-11-18, 09:30 PM)عبدالله الصافي كتب : إستخدم ذلك الكود

كود :

Set DataReport1.Sections("section4").Controls("Label1").Caption = Text1.Text

حيث Label1   هو اداة العنوان في التقرير في القس 4
و Text1  خانة النص المراد طباعة قيمتها

اشكرا اخي عبد الله على سرعة ردك وجزاك الله خير

حاولت ولكن يبدو اني لم افهم استخدام الكود بشكل صحيح

اتمنى اخي المساعدة بالتعديل على المشروع باضافة datareport2
وتطبيق الكود على احد مربعات النص مثلا text30 ويمثل قيمة TSH

وان شاء الله اطبقة على الباقي ولك شكري

[عبدالله الصافي]

التعديا بالمرفقات

[دهشوش1]

(30-11-18, 10:43 PM)عبدالله الصافي كتب : التعديا بالمرفقات

ماشاء الله تبارك الله

ماقصرت اخي عبد الله اعجز عن الشكر

الله يعطيييك الف الف عاااافية ويكتب لك الاجر


دمت اخي