تقرير لاستعلام جدولى متغير

[jo_2010]

السادة الخبراء الافاضل

اريد عمل تقرير لاستعلام جدولى  Qry_Total

 بشرط كلما اضفت بيانات كما تظهر فى الاستعلام اريدها تظهر فى التقرير

اريد انشاء تقرير بهذا الشكل بشرط لو قمت بتغييراسم شركة يتم تغيرها فى التقرير

JO2026.accdb

تم تعديل يوليو 15 بواسطه jo_2010

[Foksh]

أهلاً أخي جو ..

بعد تحميل المرفق ، لم أفهم أين مشكلتك بالضبط ، فقط قمت بإضافة سجل جديد عشوائي ، وفتحت الاستعلام بعد تغيير اسم شركة التأمين كتجربة من "مصر للتأمين" لتصبح "المصرية للتامين" ، وكانت نتيجة الاستعلام "Qry_Total" :-

 

مقصدي أن الاستعلام أولاً يقوم بالمطلوب حتى عند تعديل اسم شركة التأمين .. أما التقرير فإن شاء الله ستحصل على طلبك قريباً .. ما لم يسبقني أحد ..

تم تعديل يوليو 15 بواسطه Foksh

[Moosak]

9 ساعات مضت, jo_2010 said:

اريد انشاء تقرير بهذا الشكل بشرط لو قمت بتغييراسم شركة يتم تغيرها فى التقرير

@Foksh هذا هو المطلوب الأساسي 🙂 ☝

[Foksh]

30 دقائق مضت, Moosak said:

@Foksh هذا هو المطلوب الأساسي 🙂 ☝

😅 أعلم ، ولكني وددت المشاركة لتحريك الموضوع 

[jo_2010]

3 دقائق مضت, Foksh said:

😅 أعلم ، ولكني وددت المشاركة لتحريك الموضوع 

شكرا لحضرتك 

55 دقائق مضت, Foksh said:

أهلاً أخي جو ..

بعد تحميل المرفق ، لم أفهم أين مشكلتك بالضبط ، فقط قمت بإضافة سجل جديد عشوائي ، وفتحت الاستعلام بعد تغيير اسم شركة التأمين كتجربة من "مصر للتأمين" لتصبح "المصرية للتامين" ، وكانت نتيجة الاستعلام "Qry_Total" :-

 

مقصدي أن الاستعلام أولاً يقوم بالمطلوب حتى عند تعديل اسم شركة التأمين .. أما التقرير فإن شاء الله ستحصل على طلبك قريباً .. ما لم يسبقني أحد ..

اريد انشاء تقرير لطباعة الاستعلام

ويكون تقرير يواكب اي تغيير فى الاستعلام يظهر فى التقرير اريد تقرير شبة التقرير المرسل

انظر الصورة

[jo_2010]

40 دقائق مضت, Moosak said:

@Foksh هذا هو المطلوب الأساسي 🙂 ☝

تقرير يعرض الاستعلام الجدولى مع عرض اي تغيير يتم فى الاستعلام

اريد تقرير بنفس سكل التقرير الرسل انظر الصورة التقرير

[Foksh]

في 15‏/7‏/2026 at 21:32, jo_2010 said:

اريد تقرير بنفس سكل التقرير الرسل انظر الصورة التقرير

تفضل أخي جو ، محاولتي البسيطة بحيث قمت بإنشاء استعلام آخر باسم Query1 ، وجعلته مصدر للتقرير .. وتركت التنسيق لك كما تريده انت وحاجتك في التصميم .

 

JO2026.accdb

تم تعديل يوليو 17 بواسطه Foksh
إضافة صورة توضيحية للنتيجة

[Foksh]

أعلم أنك قمت بتجربة تغير اسم شركة في الجدول ، ووجدت أن الاسم لم يتغير في التقرير ، لذا الطلب الثاني وهو ضبط اسم الشركة عند تغييرها في الجدول بحيث يتم تعديل الاسم تلقائياً في التقرير ..

قمت بتغيير خطة التنفيذ بإجراء بسيط بحيث اعتمدت على أن تكون مربعات النص قيمها مربوطة برقم معرف شركة التأمين . ثم قمت بتغيير أسماء الليبلات لكل شركة تأمين داخل التقرير ليصبح التوحيد بالاسم من  Lbl1 إلى Lbl17 . وعليه ولجلب الاسم وبدالة DlookUp استعملت الحلقة التكرارية التالية :-

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
    Dim i As Integer
    For i = 1 To 17
        Me.Controls("Lbl" & i).Caption = Nz(DLookup("[Name_comp]", "ALL_Companys", "[ID]=" & i), "")
    Next i
End Sub

 

ملفك بعد تنفيذ الشق الثاني :-

JO2026.accdb

[jo_2010]

15 ساعات مضت, Foksh said:

تفضل أخي جو ، محاولتي البسيطة بحيث قمت بإنشاء استعلام آخر باسم Query1 ، وجعلته مصدر للتقرير .. وتركت التنسيق لك كما تريده انت وحاجتك في التصميم .

 

JO2026.accdb 728 kB · 3 downloads

معلمى الفاضل Foksh

شكرا لحضرتك يامبدع 

الله بجازيك بكل الخير

 

 

 

 

 

تم تعديل يوليو 18 بواسطه jo_2010

[Foksh]

العفو أخي @jo_2010 ..

تم تعديل يوليو 18 بواسطه Foksh