مشكلة في أمر التجميع SUM مع التخزين في الجدول

استخدم هذا الكود

TOTELMOSAHAMAH = DSum("SUMSAHM", "TAB1", "[NO KEY]='" & [NO KEY] & "'")

بدلاً من هذا

TOTELMOSAHAMAH = SUM ([SUMSAHM])

تحياتي ..

شكرا لك أستاذي فهد الدوسري على مرورك ..

لكن وضعت الكود الذي كتبته في بعد التحديث عند (إجمالي مساهمة الشخص )

ولكن لايقوم البرنامج بالجمع حيث تستمر خانة المجموع عبارة عن أصفار ..

السلام عليكم

للاسف انا لااعرف مغزى الحقل هذا ولكن هل هذا يفى بالغرض

db4.rar

أخي .. بارك الله لك في علمك وعملك .. وجمعك مع من تسميت باسمه في جنات النعيم ..

الكود الذي كتبته

Me.TOTELMOSAHAMAH = SUMSAHM

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

والمطلوب أن يكون TOTELMOSAHAMAH هو مجموع حقل SUMSAHM

بمعنى أوضح أريد إضافة sum قبل SUMSAHM ولكن يعطيني خطأ ولا أعرف لماذا ؟

فهل كتابة الكود بهذا الشكل التالي صحيحه .. مع العلم أنها توضع في عند فقد التركيز في مربع ( عدد الأسهم )

Me.TOTELMOSAHAMAH =sum([ SUMSAHM])

وشكرا ..

هل يكرر اسم الشخص أكثر من مرة في نفس الجدول أم لا ؟

إذا كان الجواب ( نعم ) فبناء الجدول بهذه الطريقة غير صحيح .

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

فاستخدم هذا الكود ..أنا لم أجربه بعد

TOTELMOSAHAMAH = DSum("SUMSAHM", "TAB1")

جرب وأخبرني

أهلا بك أستاذي فهد الدوسري ..

بالنسبة للسؤال

اقتباس

هل يكرر اسم الشخص أكثر من مرة في نفس الجدول أم لا ؟

فالإجابة لا طبعا .. كل شخص له حسابه الخاص ..

والمطلوب من المجموع أن يقوم بجمع (( جميع إجمالي مساهمات الأشخاص ))

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

ولا أدري ما السبب مع العلم أنني حاولت وضعه في كذا مكان ..يعني (( بعد التحديث - عند فقد التركيز -...))

الاخ الفاضل

السلام عليكم

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

شكرا لك أخي ..khatab

على مرورك .. وأعتذر لكم إخواني على إزعاجكم ..

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

حيث يكون الجمع متأخر بمجموع سجل كامل لأن البرنامج يحتاج لإتمام عملية الجمع إكمال دورة في السجل الواحد ..

عموما إخواني يبدو أنني سأعيد بناء الجداول بطريقة اخرى تكون بعيدة عن هذه المشاكل ..

لكن صدقوني كم أنا سعيد بمشاركتكم معي .. في هذه المشكلة ..

وأخص بالشكر أخي وأستاذي :

فهد الدوسري

وأخي khatab

فلكم مني جميعا جزيل الشكر ..

أجعل مجموع مساهمات الأشخاص تخرج في مربع نص غير منظم مستخدماً الكود الأخير الذي وضعته أنا .

جربت الطريقة وخرج معي المجموع .

تحياتي ..

لا تيأس أبداً .. فالعلم يريد الإصرار

أستاذي فهد الدوسري ..

(عذبناكم معنا )

بدأ يساورني شك أن الخلل من الجهاز عندي ..

فأتمنى أن ترفق البرنامج مع التعديل الذي قمت به ..

لأن كل الطرق التي قلتها أنت وأخي khatab .. أنفذها على الجهاز وتعطيني أخطاء ..

وعذرا على التكليف .. لكن طيب أخلاقكم .. طمعّنا فيكم ..

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

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

تصحيحا للكود الذي تطلبه سوف يكون هكذا :

SUMSAHM = SAHAMCOUNT * SAHAMCOST
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
TOTELMOSAHAMAH = DSum("[sumsahm]", "tab1", "[no key]=n")
PRSAHAM = ([SUMSAHM] / [TOTELMOSAHAMAH])

على أن يتم إستبدال إسم الحقل ( [no key] ) إلى ( n ) للإشارة إليه في الكود .

ولكن أعتقد أن طريقتك في بناء البرنامج خاطئة .

مرفق المثال بعد التعديل حسب طلبك

تحياتي : أبو عقيل

db4.rar

أخي الكريم ،،،

إقتباس

اقتباس

والمطلوب من المجموع أن يقوم بجمع (( جميع إجمالي مساهمات الأشخاص )

في هذا الحالة سوف يتغير الكود إلى :

SUMSAHM = SAHAMCOUNT * SAHAMCOST
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
TOTELMOSAHAMAH = DSum("[sumsahm]", "tab1")
PRSAHAM = ([SUMSAHM] / [TOTELMOSAHAMAH])

سوف يكون كود الجمع بدون شرط بالرقم ( [no key] ) .

مرفق المثال

تحياتي

db41.rar

أخي أبو عقيل .. شكر الله لك حرصك .. على إفادة إخوانك في هذا المنتدى الرائع ..

بالنسبة للمثال ..

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

حيث كانت أول مساهمة باسم أحمد صالح عبارة عن عدد (5) أسهم ومجموع مساهمته (5000) وكانت نسبته ( حوالي 37% ) وقمت بإضافة سجل رابع باسم صالح حيث كانت مساهمته مساوية لمساهمة أحمد صالح ولكن خرجت نسبته مختلفة عن أحمد مما يعطي دليلا قاطعا على خلل في علية القسمة ..

ولاحظت أمرا آخر .. أن مجموع المساهمات في الأرض في الجدول كان في جميع الخانات يساوي (13000)

لما أضفت المساهم الرابع .. أصبح أمامه في الجدول (18000) وبقيت البيانات السابقة لم تتغير .. فلماذا تغيرت معي المجاميع .. وكانت معك أخي أبو عقيل ثابته ومتساوية ..

هل لنسخة الأوفيس تأثير (( للعلم أطبقها على إكس بي و 2003 ))

وشكراً ..

أخي الكريم ،،، كما أسلفت لك طريقتك هذه لإستخراج نسبة المساهم غير صحيحة

ولكي يكون برنامجك منطقياً ،،، لابد أن يحتوي على الأقل على جدولين :

1 - جدول لأنواع العقارات وهذا الجدول يحتوي على الحقول التالية :

رقم العقار

نوع العقار

قيمة العقار

2 - جدول المساهمين ويحتوي على الحقول التالية :

رقم العقار

اسم المساهم

مبلغ السهم ،،،، وأرى أن يكون هذا الحقل في الجدول الأول

عدد الاسهم

إجمالي قيمة الاسهم التي دفعها المساهم

نسبة الشخص من المساهمة

مرفق لك المثال بعد التعديل

تحياتي : أبو عقيل

db41.rar

سلمك الله أخي أبو عقيل ..

الصراحه لا تعلم كم غمرتني الفرحه .. عندما شاهدت برنامجك وكيفية تخطيطه .. فلقد عملت برنامج قريب منه في التخطيط ..

فلقد علمت الآن أن التفكير يرقى إلى مستواكم ..

فجزاك الله كل خير ..

حياك الله أخي الكريم ،،،، وبالتوفيق إن شاء الله

تحياتي : أبو عقيل