ارجو من الاخوة الاعزاء الذى لا طالما لجأت اليهم عند التعلم و الاستفادة ارجو من سيادتكم توضيح كيف يمكن تجميع الدفعات من النموذج الفرعي الى النموذج الرئيسي بحيث ان يتم التجميع مثله مثل الخليه الخاصة بالتجميع بالشكل المعتاد اى عند الترقية فى النموذج الفرعى يتم التجميع بشكل تلقائى فى حقل اجمالى الدفعات و شكرا .......................مرفق مثال
[ تمت الإجابة ]تجميع الدفعات من النموذج الفرعى فى النموذج الرئيسي
هلا من مجيب
اخى الكريم شكراً على الرد و لكنك لم تأتى بجديد حيث انى اريد إضافة اجمالى الدفعات الى النموذج الرئيسيى و قاعدة البيانات الخاصة به
هل الطلب صعب لهذه الدرجة
طيب حتى هل لى ان اساوى بين اجمالى الدفعات من النموذج الرئيسي و الخارج من النموذج الفرعى و شكرا
اخي الفاضل احمد
السلام عليكم ورحمة الله وبركاته
وكل عام وانتم بخير
تفضل الملف بعد التعديل
لا تحتاج الى وضع مربع نص في النموذج الفرعي للقيام بالجمع فقد قمنا بحذفه واكتفينا بالكود
حيث عند التنقل بين السجلات سواء في النموذج الفرعي او الرئيسي سيتم الجمع مباشرة في حقل ( اجمالي الدفعات ) ويتم وضع وضع ذلك في الجدول بإسم كل شخص على حده
ملاحظة : كان يوجد لديك خطأ في ربط العلاقات وتم اصلاحها وايضا تحتاج الى ان يكون الرقم ترقيم تلقائي إلا اذا لم تكن ترغب بذلك فقد تركناه كما هو ولذا يجب عليك عند تسجيل سجل جديد في النموذج الرئيسي ان تكتب الرقم وإلا سينشأ لديك سجلات مكرره ( اصفار ) ولن يتم الحفظ حتى تضع رقم للسجل الجديد
الاخت العزيزة كل عام و انت بخير و ارجو ان تكونى فى اتم الصحة و شكرا على المجهود و لو اننى اطمع فى كرمك و علمك بشرح الكود لتعم الفائدة و ايضا اريد توضيح بخصوص ان اجمالى الدفعات قبل الدفع لا يوجد بها صفر حيث اننى افكر عند عدم وضع دفعات يمكن ان تتم عليه بعض الحسابات و لكن بكونه فارغ لا استطيع حيث لاحظت ان الصفر الافتراضى لا يعمل و اننى اكتشفت عند وضع الترقيم التلقائى الذى تفضلتى به من قبل عند تحريك اسكرول الفأرة ينشأ عدد لا نهائى من النماذج الجديدة مرفق المثال
تم تعديل هذه المشاركة بواسطة qatar_ahmed_em في 3 أكتوبر 2008 في 11:48
تفضل اخي الكريم
ملفك بعد التعديل حيث تم بناؤه من جديد وعمل التعديلات اللازمه عليه بطريقة صحيحة
بالنسبة لهذا الكود
Private Sub Form_AfterUpdate()
Parent!Total = DSum("[Cash]", "tblDofat", "[sNum]=forms!frmAked![Num]")
Parent!Total.Requery
End Subفيوضع في حدث بعد التحديث للنموذج الفرعي حيث نستدعي حقل اجمالي الدفعات Total من النموذج الرئيسي بواسطة دالة الربط Parent ثم نقوم بإستخدام دالة التجميع DSum لحساب المبلغ Cash من جدول الدفع tblDofat بحيث يكون الرقم او العدد sNum المرتبط بعلاقة واحد الى متعدد مع الرقم او العدد Num في نموذج العقد frmAked
اما الترقيم التلقائي فلا نضعه كما وضعته انت بالكود ولكن يكون ترقيم تلقائي حقيقي في جدول العقد وبهذا لن يتكرر او يعطينا اي عدد لا نهائي من السجلات .
شكرا سيدتى الكريمة و جزاكى الله خير ان شاء الله
بسم الله الرحمن الرحيم
تمت الإجابة على الموضوع
إدارة الفريق العربي للبرمجة