الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اريد عمل تقرير بdata report بطريقة Master detail

مغلق
بدأه m_ageeb في 27 مارس 2006 · 3 رد · 605 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

السادة المبرمجين

احتاج إلى كود خاص بتقارير انظمة الفواتير بحيث يكون لدي جدولين

الجدول الاول:هو الجدول الرئيسي الخاص بالبيانات الاساسية للفاتورة ويسمى بالـMaster

اما الجدول الثاني : هو الجدول الفرعي الخاص بتفاصيل الفاتورة ويسمى بالـdetail

بحيث يكون التقرير يحتوي على الجدولين ومربوط بـحقل الـbill_no

الرجاء مساعدتي في هذا الموضوع ، مع العلم انني اتعامل مع أداة data report

هنالك ملف مرفق على الموضوع به الجدولين الخاصة بالفواتير الجدول الاساسي باسم bill

والجدول الفرعي باسم bill_d

شاكرين حسن تعاونكم

محمد خضر عجيب

ageeb soft

ageeb2000@hotmail.com

ageeb.zip

تعلم فليس المرء يولد عالما ولا اخو علم كمن هو جاهلو

------------------------------------------------------------

~¤ô_ô¤~ AGEEB SOFT~¤ô_ô¤~

ageeb2000@hotmail.com

#2

فينكم يا شباب ساعدوني في حل هذه المشكلة

ما تبخلوا علينا

للتواصل عبر البريد ageeb2000@hotmail.com

تعلم فليس المرء يولد عالما ولا اخو علم كمن هو جاهلو

------------------------------------------------------------

~¤ô_ô¤~ AGEEB SOFT~¤ô_ô¤~

ageeb2000@hotmail.com

#3

انا ابحث عن نفس حل لهذه المشكلة ايضا

المهندس

#4 
Dim Rs As New ADODB.Recordset
Dim Rs2 As New ADODB.Recordset

Rs.Open "select * from  Master   where bill_no= '" & Trim(no.Text) & "'", ADB, adOpenStatic, adLockOptimistic


Rs2.Open "select * from   detail where bill_no = '" & Trim(no.Text) & "'", ADB, adOpenStatic, adLockOptimistic


Set rep12.DataSource = Rs2

rep12.Sections("section1").Controls("Label1").Caption = Rs("bill_no") ' رقم الفاتوره
rep12.Sections("section1").Controls("Label1").Caption = Rs("customer_name") ' اسم العميل
rep12.Sections("section1").Controls("Label1").Caption = Rs("customer_no") ' رقم العميل
rep12.Sections("section1").Controls("Label1").Caption = Rs("date1") ' التاريخ
rep12.Sections("section1").Controls("Label1").Caption = Rs("cash") ' طريقه الدفع
rep12.Sections("section1").Controls("Label1").Caption = Rs("discount") ' الخصم
rep12.Sections("section1").Controls("Label1").Caption = Rs("total") ' أجمالي الفاتوره
rep12.Sections("section1").Controls("Label1").Caption = Rs("Remarks") ' ملاحظات

طبعا تكون منطقه Detail بالتقرير بسرد الاصناف من Rs2

rep12.Show 1

ALATEEQ

هذا الموضوع مغلق.

مواضيع مشابهة