طباعة تقرير عن طريق الأدو

لو فرضنا أن رقم محمد موجود في Text2 ونريد أن نظهر هذا السجل في التقرير فيكون عملنا كالتالي :

أولا

في زر إظها ر التقرير :

Dim RS as new adodb.Recordset 

Rs.Open "Select * from MyTable Where ID=" & val(text2.text) & "" ,Cnn

set datareport1.datasource = RS 

Datareport1.show

هذا كل شي

تحياتي

توجد أمثلة في توقيعي

اخوي لا اربع تكسات

اخوي ياريت مثالو ليس كود

لان كودك مانفع

وين الي يصمم برنامج المبيعات وين الخبراء سؤال سهل مااحد يعرفه

ارجوكم السؤال فووووووق

اخوي ناصر حل مشكلتي

السؤال فووووووووق

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

طالما ان البيانات الخاصة بكي موجودة في النافذة في Text إن شاء الله يكون بيانات الموضف مليون تكس الفكرة تتمثل فيما يلي :

عندما تعرضي بيانات الموضف على النافذة ولنفترض ان الموضف هو واقع في السجل الرابع مثلا وعند ضغط زر طباعة نعمل التالي في الزر

نأخذ رقم الموضف ونضعة في متغير

ثم ننفذ الإستعلام التالي على قاعدة البيانات كما ذكر الأخ omani لكن بدل text2.text ضعي اسم المتغير او (rs.filed(no_emp

ثم نفس خطوات الكود السابق المذكور في مشاركة omani . أما التقرير فقومي بتصميمة بيما يتناسب مع هذه الحقول .

انا مبتدئه ماافهم

ياريت مثال اخوي

تفضلي أختي هذا مثال سريع أعددته على عجالة للتعامل مع التقرير بناءً على طلبك

أتمنى أن يفي بالمطلوب

تحياتي

مثال.zip