مساعدة في زيادة قيمة حقل في النمودج الفرعي بعد الضغط على احد الازرار في النمودج الرئيسي

[ازهر عبد العزيز]

السلام عليكم لدي نمودج Fexperience داخلة نمودج فرعي Faction  عند الضغط على احد الازرار AL,BI,GA  في النمودج الرئيسي يضاف العنصر تلقائيا الى النمودج الفرعي بحسب الزر المختار و في حدث قبل التحديث في  النودج الفرعي يوجد كود يمنع تكرار العنصر ادا كان موجود  مار اريدة هو زيادة قيمة الحقل UNIT2 في النمودج الفرعي بمقدار  0.6  عند الضغط على احد الازراار الثلاثة وبحسب العنصر في الحقل namemetal في النمودج الفرعي   بمعنى عند الضغط على الزر  AL  تزداد قيمة الحقل UNIT2 بمقدار  0.6   وعند الضغط علية مرة ثانية تكون قيمة الحقل  UNIT2  1.2  وعند الضغط مرة ثالثة تكون قيمة الحقل 1.8 وهكدا بقية الازرار  لقد حاولت كثيرا في حل المشكلة بدون فائدة تدكر  ولو تلاحظون  ان الزيادة تكون لكن لمرة واحدة اي يصبح العدد 1.2  وبعدها تتوقف الزيادة !!!! ارجو منم الاتبخلوا علي بالمساعدة كما هو عهدي بكم وباي طريقة ممكنة 

M1 (1).accdb

تم تعديل مارس 11, 2021 بواسطه ازهر عبد العزيز

[أبوبسمله]

وعليكم السلام  استاذ ازهر

اتفضل ان شاء الله يكون ما تريد

Private Sub Form_BeforeUpdate(Cancel As Integer)

L = Nz(DLast("unit2", "TBaction", "idexperience=" & Me.idexperience & "and [namemetal]='" & Me.namemetal & "'"), 0)

If DCount("*", "TBaction", "idexperience=" & Me.idexperience & "and namemetal='" & Me.namemetal & "'") > 0 Then
   Dim stry As String
   stry = Me.namemetal
 Me.Undo
 
   Dim rs As Object
   Set rs = Me.Recordset.Clone

     rs.FindFirst "[namemetal] = '" & stry & "'"
     
     If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.unit2 = L + 0.6

End If
End Sub

بالتوفيق

M1 (1).accdb

[ازهر عبد العزيز]

17 دقائق مضت, احمد الفلاحجي said:

وعليكم السلام  استاذ ازهر

اتفضل ان شاء الله يكون ما تريد بالتوفيق

 

جزاك الله عني كل خير  وهو المطلوب