جمع تقارير فرعية فى تقرير رئيسى

[monm]

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

اجازة.rar

[jjafferr]

وعليكم السلام

 

لوسمحت توضح المطلوب بتفصيل اكثر لوسمحت!!

عندك 3 تقارير فرعية ، في كل تقرير فرعي مجموع الرصيد ، فاذا كنت تريد تجمع مجموع التقارير الثلاث ، فالمعادلة ستكون 

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)

    Me.Sum_raseedafter = Me.rpt_2!Sum_raseedafter_rpt2 + Me.rpt_3!Sum_raseedafter_rpt3 + Me.rpt_4!Sum_raseedafter_rpt4
End Sub

 

ولكني ارى انك تسأل عن نفس الشيء الذي سألته هنا:

 

جعفر

680.1.الاجازات - Copy.accdb.zip

[monm]

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

[monm]

استاذنا جعفر حاول تعرض كافة التقارير وستلاحظ أن المجموع فى تذييل الصفحة محتلف تماما عن مجموع التقرير الفرعى فما الحل فى ذلك ؟؟

[jjafferr]

وعليكم السلام

 

الصور التالية هي من المرفق اعلاه:

.

.

.

وكما تلاحظ فالمجموع في ذيل التقرير يساوي مجموع التقارير الفرعيه ، حسب الرقم القومي ، والجمع صحيح

 

استاذنا الفاضل ، دعني ارى ما تراه انت ، وعليه احاول ان اجاوب على سؤالك

 

جعفر

[monm]

اشكر معاليك وذوقك العالى وصبرك علىّ

فى الصورة التى تعرضها المجموع فى مقطع التفصيل لا يوجد به خطأ

 أما عند نقل المجموع الى تذييل الصفحة كما فى المرفق ألاحظ أنه يعرض   مجموع التقرير التالى أى انه يرحل تقرير فى المجموع

وانا آسف على الاطالة ومرفق القاعدة 

680.1.الاجازات - Copy.accdb.zip

[jjafferr]

للأسف ، لا نستطيع القيام بهذه العمليات في ذيل الصفحة Page Footer ،

بل نستطيع ان نستعمل:

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)

    Me.total = nz(DSum("[raseedafter]", "raseed", "[nationalty]=" & Me.nationalty),0)
End Sub

.

والنتيجة

 

جعفر

680.3.الاجازات - Copy.accdb.zip

[monm]

حقيقة انت مبدع وزادك الله علما 

لقد حيرتنى كثيرا ولم اعرف سبب الترحيل فى الكود السابق 

واود منك شرح هذا الكود حتى تعم الفائدة ونتعلم وندعوا لك بظهر الغيب ان يفتح الله عليك 

وفعلا هذا هو المطلوب 

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

[monm]

هلا رددت على مع جزيل شكرى واحترامى

[monm]

استاذنا الكبير نود الجمع من التقارير الفرعية لأن بها معادلات للجمع تختلف عن الجدول لذلك اطلب جمغ التقارير الفرعية 

 

[jjafferr]

وعليكم السلام

 

استاذنا الفاضل ، موجهنا الفاضل ، رفقا بنا ، فاننا لا نرى ما تراه ، وملاحظاتك للأسف مقتضبة ولا تعطي مفهوم ولا مدلول على كيفية امكاننا تعديل الخطأ !!

 

انا قلت

في 7/31/2017 at 16:31, jjafferr said:

للأسف ، لا نستطيع القيام بهذه العمليات في ذيل الصفحة Page Footer ،

وقصدي كان ان نأخذ مجموع التقارير الفرعية ونجعلها في ذيل صفحة التقرير الرئيسي.

 

الآن وقد رأيت موضوعك الجديد ، وبه مثال (عن هذا التغيير الذي تكلمت عنه هنا ولم ترفقه/تشرحه)

.

 

الشيء الغير هو طريقة جمعك لرصيد التقرير الفرعي رقم 3 و 4 هو ضربهم بثلث وثلثين:

رقم 3
=Sum([raseedafter])*(1/3)

ورقم 4
=Sum([raseedafter])*(2/3)

.

وعليه ، جمع هذه البيانات ستكون:

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)

    'Me.total = Nz(DSum("[raseedafter]", "raseed", "[nationalty]=" & Me.nationalty), 0)
    
    T2 = Nz(DSum("[raseedafter]", "qry_2", "[nationalty]=" & Me.nationalty), 0)
    T3 = Nz(DSum("[raseedafter]", "qry_3", "[nationalty]=" & Me.nationalty), 0) * (1 / 3)
    T4 = Nz(DSum("[raseedafter]", "qry_4", "[nationalty]=" & Me.nationalty), 0) * (2 / 3)
    Me.total = T2 + T3 + T4
    
End Sub

.

الآن اصبح عندك واضحا ، لماذا من اول ما بدأنا العمل على تقاريرك الفرعية ، انا جعلت لكل واحد منهم اسم مميز ، واستعلام خاص به ، حتى في مثل هذه الحالات ، الحصول على البيانات يكون سهلا.

 

جعفر

[monm]

اشكر معاليك وذوقك العالى واتحرج منك كثيرا ولكن ندعوا الله لك بظهر الغيب أن يديم عليك العلم والتعليم ويرزقك الفهم 

وانا آسف على الاطالة