اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

فى التقرير توجد خاصية

Running Sum

للحصول علي المجموع التراكمي للسجلات

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

Cum____.rar

  • Like 1
  • Thanks 1
  • 2 weeks later...
قام بنشر

جمع القيم السابقة في الجدول

كيف نطبق ذلك على كامل الجدول

السلام عليكم

إذا كان عندي جدول بالصورة التالية

mot1.gif

وأريد أن يكون حقل ( المجموع السابق ) يأخذ مجموع حقل ( المبلغ ) لكل عميل على حده بناءً على رقم السند مع ملاحظة أن السند رقم واحد راح يكون حقل المجموع السبق فيه = 0 لأنه ليس قبله سجلات ..

بناءً على الصورة السابقة .. يفترض أن يكون الجدول بهذا الشكل :

mot002.gif

فكيف أستطيع تطبيق كود يفعل لي ذلك ؟؟!!

قام بنشر (معدل)

السلام عليكم

يمكنك تطبيق مثال الأخ حارث وابو هاجر ولكن ..

مع تعديل استثناء السجل الحالي

مثلا فى مثال الاخ حارث

=DSum("[price]";"[table2]";"[num1]<=[forms]![MForm1]![TSForm1]![num1]")
تصبح
=DSum("[price]";"[table2]";"[num1]<[forms]![MForm1]![TSForm1]![num1]")

و أيضا اضافة شرط الاسم الي جزء الشرط فى معادلة ال Dsum اذا أردت التراكمي السابق لكل شخص علي حدة

تم تعديل بواسطه امير عاطف
  • Like 1
قام بنشر

السلام عليكم

كنت عارف ومتأكد أنك راح تكون أول من يرد :)

لكن يا أخي الكريم أنا أريد ذلك أن يكون في الجدول وليس في النموذج ....

يعني أريد أن تحفظ قيمة ( المجموع السابق ) في الجدول حتى أسلم من اللخبطة التي قد تحصل عند تعديل مبلغ معين ..

وجزاك الله خيراً ..

قام بنشر

السلام عليكم

بالنسبة لهذه الطريقة ، أي تعديل سيظهر أثره تلقائيا ، لأن القيم محسوبة

أما اذا اردت التسجيل فى جدول

فسيتم اتباع نفس الخطوت و بعد ذلك امامك حلان

الاول هو تحديث القيمة فى الجدول , و أبسط الطرق لذلك باستعلام تحديث . أو ما يناظره بالكود

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

مع تحياتي

قام بنشر

الحل الثاني هو المطلوب ...

طريقة حسابها عن طريق الأستعلام سهلة ..

لكن اريد أن أحدث قيمة حقل ( المجموع السابق ) في الجدول

فما هو الكود المناسب .. مع ان لدي كود ينقصه عملية الجمع للسابق ، وهو :

 Dim db As Database

 Dim MyTABLE As Recordset

Set db = DBEngine.Workspaces(0).Databases(0)

Set MyTABLE = db.OpenRecordset("جدول1", dbOpenTable)

Do While Not MyTABLE.EOF

MyTABLE.edit


'هنا يوضع كود عملية جمع حقل ( المبلغ ) في حقل ( الجموع السابق


    MyTABLE.Update

    MyTABLE.MoveNext

  Loop

MyTABLE.Close

هذه هو كود التعامل مع الجداول ... لكن ما هو الكود اللي يستطيع يجمع لي القيم من حقل ( المبلغ ) ويجمعها في حق ( المجموع السابق )

قام بنشر

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

أرجو التجربة

مع تحياتي

PrevCum.rar

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information