منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - سؤال فى داتا ريبورت عن كيفية طباعة سجل واحد فقط

اخوانى واحبابى الفضلاء واساتذتى بعد السلام عليكم والثناء على رسول الله بطلب الصلاة والسلام عليه ارجو من حضراتكم مساعدتى
الموضوع انى شرعت فى عمل برنامج وطباعة تقرير من داتا بقاعدة بيانات اكسس والتقرير مربوط بالقاعدة عن طريق الاداة داتا انفايرونمنت ولكن عند طباعة تقرير يتم طباعة ماهو فى قاعدة البيانات جميعا السؤال ارجو من سيادتكم توضيح طريقة طباعة سجل واحد فقط من قاعدة البيانات مع العلم ان ربط البرنامج بالقاعدة عن طريق الاداة adodc وربط التقرير بالاداة داتا انفايرونمنت
سؤال تانى ' ايه طريقة طباعة تقرير من تيكست بوكس على طول يعنى انا فى فورم كتبت بيانات طالب ومحتاج اطبعها فى تقرير بحيث ان المكتوب فى تيكست بوكس فى الفورم هو البيانات اللى ظاهرة فى التقرير حتى قبل التصدير لقاعدة البيانات
ارجو المساعدة مع العلم يا اخوانى انى براسلكم من موبايل فمش هاعرف اخد نسخة من التطبيق اللى بعمله واعرضه عليكم
واشكركم كتير .

اخى امير حياك الله قلت لك انى اتواصل معكم عبر الهاتف المحمول وليس عندى اى امكانية للرفع ارجوكم اريد الطريقة لأنى انا عايز اعملها بنفسى كمان بمساعدتكم بعد الله عز وجل عشان اتعلم

انا كمان شايف ان السؤال متفسر خالص ارجو الافادة

اخواتى انا مش جديد فى منتداكم ولكن انقطعت فترة للسفر بس هى كانت نفس الطريقة بردو اسئلة كتير ومحدش بيجاوب

وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , يمكنك إستخدام هذا الكود في عرض سجل واحد فقط في التقرير وهو مربوط بإستخدام الداتا انفايرونمنت :

PHP كود :

If DataEnvironment1.Recordsets.Item(1).State = 1 Then DataEnvironment1.Recordsets.Item(1).Close
DataEnvironment1.Recordsets.Item(1).Open "Select * From Table1 Where ID=1"

If DataEnvironment1.Recordsets.Item(1).RecordCount <= 0 Then
   MsgBox "لم يتم العثور على نتيجة", vbOKOnly + vbExclamation, "تنبيه"
   Exit Sub
End If

DataReport1.Refresh

DataReport1.Show 

تم الحل ولكم جزيل الشكر والعرفان بإحترامى والرد علي

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

المبرمج العتيق

المبرمج العتيق

المبرمج العتيق

Ahmed_Mansoor

المبرمج العتيق