المساعدة في الحصول على مجموع حقل معين في فورم

[زينب الذهبي]

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

اخواني لدي برنامج لفواتير العملاء ولدي فورم رئيسي لرقم الفاتورة وتاريخها والكلفة النهائية وفورم فرعي لتفاصيل الفاتورة اريد جمع اسعار المواد واظهار الناتج في حقل cost الكلفة الاجمالية للفاتورة .. استخدمت دالة Dsum  وكانت النتيجة خاطئة ارجو المساعدة والقاعدة موجودة في المرفق 

data1.rar

[محمدنجار]

54 دقائق مضت, زينب الذهبي said:

لدي برنامج لفواتير العملاء ولدي فورم رئيسي لرقم الفاتورة وتاريخها والكلفة النهائية وفورم فرعي لتفاصيل الفاتورة اريد جمع اسعار المواد واظهار الناتج في حقل cost الكلفة الاجمالية للفاتورة .. استخدمت دالة Dsum  وكانت النتيجة خاطئة ارجو المساعدة والقاعدة موجودة في المرفق

::: تفضلي . إن كان هذا طلبك .. لا تنسي تقييم المشاركة .... بالتوفيق

data1_UP.rar

تم تعديل مايو 31, 2017 بواسطه محمدنجار

[زينب الذهبي]

كل الشكر للاخ محمد نجار لكن فقط عندي استفسار عن المتغير tcost الذي استخدمته في التعبير والى اي شيء تشير به

[زينب الذهبي]

شكرا اخي الكريم فهمت الحقل tcost  ربي يوفقكم لكل خير

[محمدنجار]

59 دقائق مضت, زينب الذهبي said:

 عندي استفسار عن المتغير tcost الذي استخدمته في التعبير والى اي شيء تشير به

::: الى تكست بوكس مخفي في ذيل الفرعي .. لا تنسي التقييم بالضغط على راس السهم رجاءاً

تم تعديل مايو 31, 2017 بواسطه محمدنجار

[ابو جودي]

مشاركة مع اخى الحبيب استاذ @محمدنجار

 

جربى المرفق ده اختنا الكريمة
 

تم عمل الاتى

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

Private Sub calc_TotalPrice()
Dim strUpSQL
strUpSQL = "UPDATE Products SET Products.TotalPrice = Nz([Qty]*[Price]) WHERE (((Products.HeaderId)='" & [HeaderId] & "'));"
    DoCmd.SetWarnings False
    Me.Refresh
        DoCmd.RunSQL strUpSQL
    Me.Refresh
    DoCmd.SetWarnings True
Form_Fatora.Cost.Requery
End Sub

ويتم منادته على كل من   Price    -     Qty   وذلك بهذا السطر من الكود فى حدث عند التحديث

calc_TotalPrice

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

2- تم تعديل مصدر بيانات مربع النص   TotalPrice       والموجود  فى       نموذج فرعي Products     
لانه اصبح يأخذ القيم مباشرة من الجدول    وبكده الموضوع اصبح SMART

3-وبناء على ما سبق كله اصبحنا نحسب كلفة الفاتورة بهذا الكود

=DSum("[TotalPrice]";"[Products]";"HeaderId ='" & [HeaderId] & "'")

 

تم عمل المرفق بكلا الامتدادين       accdb ,mdb    حتى تعم الفائدة ان شاء الله

 

 

 

data1_ UP2.rar

تم تعديل يونيو 1, 2017 بواسطه ابا جودى

[زينب الذهبي]

شكرا لكم اخوتي جعله الله في ميزان حسناتكم وزادكم نورا ...

بقي ناتج الفاتورة كيف يتم تنسيبه الى قيمة الحقل cost   في الجدول tblheader   .....

عفوا اخي محمد نجار كيف اقوم بتقييم الموضوع لطفا ..... 

[ابو جودي]

2 ساعات مضت, زينب الذهبي said:

شكرا لكم اخوتي جعله الله في ميزان حسناتكم وزادكم نورا ...

بقي ناتج الفاتورة كيف يتم تنسيبه الى قيمة الحقل cost   في الجدول tblheader   .....

عفوا اخي محمد نجار كيف اقوم بتقييم الموضوع لطفا ..... 

تم تعديل يونيو 1, 2017 بواسطه ابا جودى

[ابو جودي]

شوفى الجواب  فى المرفقات هل هذا هو المطلوب ؟!

 

المساعدة في الحصول على مجموع حقل معين في فورم.zip

تم تعديل يونيو 1, 2017 بواسطه ابا جودى

[محمدنجار]

2 ساعات مضت, زينب الذهبي said:

بقي ناتج الفاتورة كيف يتم تنسيبه الى قيمة الحقل cost   في الجدول tblheader   .....

::: يتم تحديث قيمة الفاتورة في الجدول tblheader بواسطة تشغيل استعلام تحديث او جملة Sql (في حدث بعد تحديث الكمية)في النموذج الفرعي  .

::: وهذا مثال عن الاستعلام ... اما جملة الاستعلام  SQL  فموجودة في مثال الاخ @ابو جودى

data2_UP.rar

[زينب الذهبي]

جزاكم الله خيرا اخوتي على جهودكم المبذولة 

قمت بوضع جملة sql التالية في حدث بعد التحديث للكمية بهدف ارسال قيمة cost   الى ملف tblheader  لكنها لاتزال تظهر فارغة داخل الجدول

 str1 = "UPDATE tblheader SET tblheader.cost = [Forms]![Fatora]![Products].[Form]![cost] WHERE (((TblHeader.HeaderId)=[Forms]![Fatora]![HeaderId]));" '

لا اعرف السبب ؟؟؟؟

[زينب الذهبي]

Dim str1
  str1 = "UPDATE tblheader SET tblheader.cost = [Forms]![Fatora]![cost] WHERE (((TblHeader.HeaderId)=[Forms]![Fatora]![HeaderId]));" '
  
  DoCmd.SetWarnings False
    Me.Refresh
        DoCmd.RunSQL str1
    Me.Refresh
    DoCmd.SetWarnings True

قمت باجراء التعديل اعلاه على الحدث بعد التحديث للكمية وفي هذه الحالة البرنامج يقوم بارسال اول قيمة فقط الى الحقل cost في الجدول tblheader وليس مجموع الفاتورة

شكرا لكم اخوتي الكرام على المساعدة ... الكود اشتغل اكتشفت الحمد لله والنتيجة تم خزنها في ملف الفواتير ... اتمنى لكم التوفيق