كود حساب الفرق بين قيمتين

[mom20088]

السلام عليكم 

عندى نموذج فى قاعدة بيانات به حقلين 

الاول واسمه qproduced (الكمية المنتجة) وهو حقل يكتب فيه اى قيمة 

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

اامعطيات هى :

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

وهذا هو الكود 

 ()Private Sub Qproduced_afterUpdate

If [Qproduced] > [Text482] Then
Beep
MsgBox ("Sorry ! The maximum value is " & Round([Text482], 3) & " Kg "), "" & vbCritical, "Critical Message!"
DoCmd.CancelEvent
MsgBox "Please Rewrite Value of Qproduced again!", vbCritical, "Attention"
DoCmd.RefreshRecord
Me.Undo
Else
If [Qproduced] <= [Text482] Then
Select Case MsgBox("The Production Quantity is " & Me.Qproduced.Value & Me.Unit.Value & vbCrLf & _
"", vbInformation + vbMsgBoxleft + vbYesNo, "Attention!")
Case vbYes
MsgBox " It is Ok"
DoCmd.OpenQuery "query1"
Case vbNo
DoCmd.RunCommand acCmdDeleteRecord
End Select
End If
End If

وهذا الكود ايضا انا استخدمه على حقل الكمية المنتجة للعلم به

Private Sub Qproduced_Click()
If Me.Text482 <= 0 Then
 Me.Qproduced.Enabled = False
  MsgBox "Sorry! No Raw materials found in Store for this Product", vbCritical, "Attention"
 DoCmd.RefreshRecord
 DoCmd.OpenQuery "delete empty order"
 DoCmd.Close
 DoCmd.OpenForm "Main"
  Else
  Me.Qproduced.Enabled = True
  Me.Raw_Material_subform.Visible = True
  [Total Production by Year every month].Visible = True
  [Year Target Query].Visible = True
[packing subform1].Visible = True
    End If
End Sub

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

اى انه عند وضع قيمة 300 يتم حساب كمية المواد الخام واذا وضعت 500 طبعا يحدث زيادة فى كميات المواد الخام 

 

السؤال:

نفترض انى وضعت قيمة فى الحقل الاول (الكمية المنتجة) 300 كيلوجرام سوف يتبقى لى 200 كيلوجرام فى الحقل الثانى ( المخزن) وحفظت هذا السجل على ذلك.

اذا اردت تعديل حقل الكمية المنتجة من 300 الى 350 سوف يرفض البرنامج لان حقل المخزن به 200 كيلوجرام فقط وان 350 اكبر من 200 وهذا طبيعى لاننى وضعت كود (بعد التحديث) وموضحا بالاعلى  اذا كان قيمة الحقل الاول اكبر من الحقل الثانى يقوم البرنامج بالرفض 

محتاج كود يعمل الاتى

يحسب الفرق بين القيمة  القديمة المكتوبة اولا (300) والثانية(350) المراد تعديلها وهى 50 فقط وهى بالتالى اقل من قيمة رصيد المخزن ويقوم بالبرنامج بقبول التعديل؟

أو كيف يتم التعديل للقيمة الجديدة ؟

 

اسف جدا لعدم ارفاقى للقاعدة 

 

تم تعديل سبتمبر 28, 2016 بواسطه mom20088
كود الحقل الاول

[ابو جودي]

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

[Shivan Rekany]

عزيزي ارفق الملف لكي الجماعه‌ بيقدر بساعدك مع تقدير

[mom20088]

السلام عليكم

اسف على التأخير

انا وجدت الحل والحمد لله وهو عبارة عن 

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

اشكركم اخوتى فى الله

 

[Shivan Rekany]

الحمد لله