عملية حسابية بين جدولين

[samishark]

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

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

لدي جدول رقم 1 فيه بيانات الأسرة وفي هذا الجدول حقل العدد الإجمالي لأفراد الأسرة

لدي جدول رقم 2 فيه البيانات المادية لهذه الأسرة وفي هذا الجدول حقل إجمالي الدخل

المطلوب هو حينما أسجل عدد أفراد الأسرة في النموذج المستند إلي جدول رقم 1 وهو نموذج رئسي

وأنتقل إلى النموذج الفرعي وهو مستند إلى جدول رقم 2 وأسجل إجمالي الدخل

يقوم البرنامج من خلال الكود أو استعلام بتقسيم إجمالي الدخل على عدد أفراد الأسرة ويخزن القمية الناتجة في حقل جديد وهو معدل دخل الفراد في هذه الأسرة

سوف أرفق مثال لتوضيح المسألة .

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

db1.rar

[Bluemind]

اخوي

القاعده المرفقه ما اشتغلت عندي!!!

على العموم انا عملت مثال لك ولا انصحك بعمل جدولين ولا تخزين ناتج القسمه لانه رقم يتحدث مع تتغير عدد العائله و مجموع الدخل.

طبعا اكتب مجموع الدخل وحركه المؤشر في اي حقل وسوف تظهر النتيجه.

test111.rar

[الشروق القاتم]

بسم الله الرحمن الرحيم

لم استطيع ايجاد الجدول ECONOMIC_T الرجاء تعديل المرفق حتى نتمكن من المساهدة ان امكن

[samishark]

أخي العزيز Knight22666 لك جزيل الشكر على محاولتك ولكن مشكلتي ليست إذا كان هناك جدول واحد ونموذج واحد هذا معروفه حلها بسيط , سؤالي هو إذا كان عندي نموذجين مختلفين لجدولين مختلفين وأريد القيام بعملية حسابية بينهما كيف يكون شكل الكود أو الإستعلام ؟

أرجو أن يكون سؤالي واضح هذه المره ...!

وسوف أرفق القاعدة مره أخرى .

ولكم جزيل الشكر .

db1.rar

[samishark]

اخي العزيز الشرق القاتم جدول ECONOMIC_T موجود في القاعدة المرفقة ولكنه مخفي بإمكانك إظهاره بسهولة من خلال أدوات - خيارات - عرض - التأشير على إظهار كائنات مخفية .

[Bluemind]

تفضل

samishark.rar

[Dream_Works]

أرجو وضع الكود التالي في النموذج الفرعي ... في الحدث BeforeUpdate لمربع النص Total

Private Sub total_BeforeUpdate(Cancel As Integer)
If Me.total.Value <> Me.total.OldValue Then
With Forms("نموذج1")
.Controls("Revenue_For_Individual") = Me.total.Value / .Controls("Number_Of_Family")
End With
End If
End Sub

ملحوظة : هذا الكود لن يعمل بشكل جيد إذا فتحت النموذج الفرعي لوحده

تم تعديل مارس 12, 2008 بواسطه Dream_Works

[samishark]

أخي العزيز Knight22666 أشكرك جزيل الشكر حلك ممتاز جداً ولكن هناك مشلكة ...!

القيمة Revenue_For_Individual لا يتم تخزينها في الجدول الرئيسي(جدول رقم 1) وهذه مشكلة كبيرة بالنسبة لي حيث أنني احتاج هذه القيم للإستعلامات وغيرها فإذا كانت القيم غير مخزنة في الجداول فلن تظهر في الإستعلام .

أرجو منك حل مساعدتي لحل المشكلة ولك جزيل الشكر

[samishark]

أخي العزيز Knight22666 أنتظر الرد.....!

[Bluemind]

اخوي

مافيه داعي لتخزين قيمه ربما تتحدث في المستقبل.مثال على ذالك لو ان عدد افراد الاسره زاد او الدخل الشهري زاد!! ايش رايح تعمل في هذي الحاله?

انا عملتلك استعلام لحساب هذه القيم.

الرجاء الاطلاع عليه!!!

بانتظار ردك.

samishark.zip

[samishark]

عزيزي Knight22666 حلك الأخير ممتاز ومفيد جداً , وكلامك صحيح فقد يتغير عدد أفراد الأسرة أو الدخل في المستقبل ولكن يمكنني حل المشلكة بوضع زر اسمه مثلاً (تعديل) يقوم هذا الزر بتشغيل الإسعلام أو تحديث العملية ليتم تحديث دخل الفرد مره أخرى وذلك بعد تعديل عدد أفراد الأسرة أو الدخل الإجمالي طبعاً كلامي هذا لأنني أريد بل يجب أن تكون القيمة مخزنة عندي في الجدول حتى لو كانت ستتغير في المستقبل ... يعني حلك ممتاز جداً جداً ولكن ينقصه أن تكون القيمة مخزنة في جدول main .

أتمنى أن تفكر معي في حل للمشكلة...؟

وأشكرك مقدماً على إهتمامك بالموضوع

[Bluemind]

اخوي

معليش اسمحلي اسألك سؤال!!

انت ليش تبي تخزن القيمه هذي!!؟؟؟

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