البحث في الموقع

السلام عليكم عندى نموذج فى قاعدة بيانات به حقلين الاول واسمه 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 فقط وهى بالتالى اقل من قيمة رصيد المخزن ويقوم بالبرنامج بقبول التعديل؟ أو كيف يتم التعديل للقيمة الجديدة ؟ اسف جدا لعدم ارفاقى للقاعدة