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

الجمع الجبري لحقول عمود معيّن في التقرير و لكل صفحة بذاتها

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

الأخوة والأخوات الأعزّاء في المنتدى

السلام عليكم

في الملف المرفق يوجد التقرير General Spents الذي يمثل فاتورة للمصروفات الشهرية

أود المساعدة في كيفية إيجاد المجموع الجبري لحقول المبالغ ( Rc ) لكل صفحة بذاتها

وإظهار هذا المجموع في الحقل PageTot .

علماً أن المجموع الجبري لكل الحقول ولكل الصفحات قد جعلته يظهر في النموذج في الحقل Total .

كما أود ان أعرف كيفية جعل الرقم في حقل المبلغ والذي تنسيقه [عملة (قياسي)] بدون مرتبةعشرية

أي بدون الصفرين الأخيرين مع الحفاظ على الفارزات لكل ثلاثة أرقام.

مع الشكر الجزيل مقدما

أبو منتظر

Sum_in_report_page.rar

#2

السلام عليكم،،

اليك الحل مرفق البرنامج بعد التعديل

Sum_in_report_page.rar

#3

الأخ العزيز أشرف المحترم

بعد التحية والشكر

ليس ماقمت به من التعديل بالمطلوب , بل هو موجود في النموذج General Spents كما أوضحت سلفاً

المطلوب الجمع الجبري للحقول في الصفحة 1 , وكذلك الصفحة 2 .....إلخ , ( كل جمع بصفحته )

ويظهر هذا المجموع في مربع النص , PageTot (في ملفي الأصلي طبعاً )

أبو منتظر

#4

جرب هذه الطريقة...

Sum_in_report_page11.rar

تم تعديل هذه المشاركة بواسطة fahad في 1 أكتوبر 2006 في 20:28

#5

الأخ العزيز فهد

مشكور على المحاولة

أعتقد أن الطريقة لم تفي بالغرض , أضافةً إلى حدوث خلل في شكل الفاتورة.

أخوك

أبو منتظر

#6

أينكم ياأهل الخبرة ؟ المساعدة !!!!!

ندعو لكم في هذا الشهر الكريم

أبو منتظـــــــر

#7

بعد اذن الاخوان جميعا

اخي الفاضل ابو منتظر

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

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

1. يوجد لديك تقرير اسمه General Spents

2. يوجد لديك مربع نص غير منضم في تذييل الصفحه اسمه txtPageTotal وهو الذي نرغب في اظهار مجموع كل صفحه فيه

3. يوجد لديك حقل في التقرير اسمه Rc وهو خاص بالمبلغ المراد جمعه في اسفل التقرير لمربع النص txtPageTotal

اول خطوه نقوم بها هي فتح التقرير في وضع التصميم ثم ننتقل لمربع النص txtPageTotal ونضع له مصدر تحكم هذه العباره

=[PageSum]

انتهينا من التقرير ننتقل الان الى الكود

نضغط المفتاحين من لوحة المفاتيح ALT + F11 ليفتح لنا محرر الفيجول بيسك ونضع هذه الاكواد

هذا الكود خاص بقسم العام في رأس الكود

Option Compare Database
Option Explicit
Public PageSum As Double

هذا الكود خاص بقسم تنسيق رأس الصفحه " PageHeaderSection_Format "

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
   PageSum = 0
End Sub

هذا الكود خاص بقسم التفصيل طباعة " تفصيل_Print " اذا كانت نسخة الاكسيس لديك انجليزيه فغيرها الى Detail_Print

Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer)
PageSum = PageSum + Reports![General Spents]![Rc]
End Sub

وهذا ملفك بعد التعديل

Sum_in_report_page_UP.rar

اختكم

زهره

تم تعديل هذه المشاركة بواسطة zahrah في 3 أكتوبر 2006 في 02:23

#8

الأخت المشرفة والأستاذة الفاضلة

بارك الله فيكِ , أسئل العلي القديرفي هذا الشهر الكريم

أن يقضي حاجاتكِ ويلبّي مرادكِ ويرزقك حسن العاقبة

أنه سميع مجيب.

يازهرة الخير ياإسماً نلوذبه في كلِّ معضلةٍ في المنتدى ترِدُ

ماحالُ عضوٍ في مشاركةٍ إذا مالم تكونُ لها من زهرةٍ مـــدَ دُ

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

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