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

[jo_2010]

السادة الاعزاء الخبراء الافاضل

بعد التحية

عندى نموذج رئيسى  اسمة LF  يحتوى على عدد حقول منهم حقل اسمة d

      وعندى نموذج فرعى اسمة LL 

بة عدة حقول السعر والكمية الاجمالى مثلا 5 السعر*3 الكمية= الاجمالى15

20 =10 السعر2 *  الكمية

يوجد حقل غير منضم   للاجمالى العام =15+20 = 35  اسمة الاجمالى العام

dاريد بعد تحديث حقل السعر فى الفرعى قيمة الحقل   

فى الرئيسى تساوى الاجمالى العام فى الفرعى 

اتمنى طلبى يكون واضح وخالص الشكر

 

[أكسس وبس]

اخى الكريم

فى النموذج الفرعى فى مربع نض غير منضم تضع فيه وخلى المربع غير منضم فى تذييل النموذج الفرعى

(total)sum=

فى النموذج الرئيسي فى مربع غير منضم تضع

[total]![form].[LL]=

جرب مكنش انتظر من اهل الخبرة

[jo_2010]

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

[jo_2010]

مقيش امل من حل هذا المشكل 

بدل عمل زر امر يجعل القيمتين متساويتن

[أكسس وبس]

الفرعى نفس حقول الرئيسي

[jo_2010]

مش فاهم تقصد اية

[husamwahab]

جرب هذا المرفق عسى ان تجد طلبك

DB.rar

[kha9009lid]

9 ساعات مضت, husamwahab said:

جرب هذا المرفق عسى ان تجد طلبك

ممتاز اخي و استاذي حسام ولاثراء الموضوع

 عند استخدام dsum بدون معيار سيتم اضافة مجموع كافة الفواتير و ليس للفاتورة الحالية

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

اما فكرتي المتواضعة طالما ان الاجمالي للفاتورة الحالية موجود في النموذج الفرعي ممكن اختصار الكود ليكون

Me.Recalc
Me.Parent!d = Me.XSum

في البداية ااستخدمنا recalc لاعادة تحديث الحقول المحسوبة

ثم جعلنا قيمة الاجمالي في الرئيسي تساوي الاجمالي في الفرعي

 

DB.accdb

[husamwahab]

جميل جدا استاذ kha9009lid

Me.Recalc

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

تم تعديل أبريل 21, 2021 بواسطه husamwahab

[kha9009lid]

19 ساعات مضت, husamwahab said:

رحم الله والديك

ووالديك اخي العزيز حسام وكافة اخواننا الكرام 🌹

[jo_2010]

اشكركم علي تعبكم ومساعدتي في حل مشكلتي خالص الشكر لكم ولكن ظروف عملي كفرد من أفراد الجيش الابيض لم أتمكن من فتح المرفق المرسل دعواتكم  لنا وللمرضى بالشفاء

[jo_2010]

استاذى الفاضل  kha9009lid

بعد التحية قمت بتطبيق النموذج المرسل علي النماذج الخاصة ولم يعطى النتيجة المطلوبة كما في التطبيق المرسل

Me. Parent

ماذا تعني هل هي خاصة بالبرمجة

[jo_2010]

معلمي الفاضل kha9009lid

اسم النموذج الرئيسى mortga_be 

اسم الحقل total_mor

اسم النموذج الفرعي Hm

الحقل التجميع غير منضم اسمة Tm

[SEMO.Pa3x]

عليكم السلام، ارفق قاعدة بياناتك لكي نتمكن من مساعدتك.

[kha9009lid]

7 ساعات مضت, jo_2010 said:

Me. Parent

ماذا تعني هل هي خاصة بالبرمجة

تعني النموذج الاب

ونستخدمها بدلا من كتابة اسم النموذج الرئيسي

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

17 ساعات مضت, jo_2010 said:

عملي كفرد من أفراد الجيش الابيض لم أتمكن من فتح المرفق المرسل دعواتكم  لنا وللمرضى بالشفاء

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

 

[jo_2010]

السادة الافاضل اليكم القاعدة

Stock_OK.accdb

[kha9009lid]

جرب ضع الامر التالي في حدث بعد التحديث للسعر

Me.Recalc
Me.Parent![Total_mor] = DSum("[total]", "hark_mort", "[c_mort]=" & [Forms]![mortga_be]![c_mort])

نفس حل اخي حسام بعد اضافة معيار رقم المرتجع

تحياتي

[kha9009lid]

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

وللتغلب على هذه المشكلة

في امر حذف الصنف المسترجع استبدل الكود الموجود بالكود التالي

On Error Resume Next
If MsgBox(" عفوا  هل تريد  مسح  هذا الصنف ....    " & sanf_name.Value & vbCrLf & _
" ", _
vbQuestion + vbMsgBoxRight + vbYesNo, _
"   حذف صنف ") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
Call P_mor_AfterUpdate
Else

DoCmd.RunCommand acCmdUndo
End If

 

[jo_2010]

معلمى واستاذى الفاضل kha9009lid

خالص الشكر والتقدير  على حل المشكلة التى  اتعبتنى اسابيع خالص الشكر للخبير الفاضل الزى تعلمت وساتعلم منة الكثير