مساعدة في زيادة حقل بمقدار 1

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

السلام عليكم ,,,,

في النموذج الرئيسي Fexperience  في النموذج الفرعي كيف اجعل بعد اختيار عنصر من الحقل idserum   تزداد قيمة الحقل used_quantity بمقدار 1 

كمثال عند اختيار العنصر DA من الحقل idserum  تزداد قيمة الحقل used_quantity بمقدار 1 اي لو كانت صفر تصبح 1 ولوكانت واحد تصبح 2 وهكذا 

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

 

تم تعديل سبتمبر 18, 2020 بواسطه ازهر عبد العزيز

[أبوبسمله]

وعليكم السلام اخى @ازهر عبد العزيز

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

Private Sub idserum_AfterUpdate()
 Dim myCriteria As String
    
    myCriteria = "[idexperience]=" & Me.idexperience
    myCriteria = myCriteria & " And [idserum]=" & Me.idserum
    
     Me.used_quantity = 1
     
 If DCount("*", "TBtest", myCriteria) > 0 Then
     Dim stry As Integer
       stry = Me.idserum
       Me.Undo
      
     Dim rs As Object
       
       myCriteria = "[idserum]=" & stry
     Set rs = Me.Recordset.Clone
       rs.FindFirst myCriteria
     If Not rs.EOF Then Me.Bookmark = rs.Bookmark
     
      Me.used_quantity = Me.used_quantity + 1
    End If
    DoCmd.GoToRecord , , acNewRec
End Sub

بالتوفيق

عذرا نسيت ارفاق الملف

test(3).accdb

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

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

[أبوبسمله]

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐

جزاك الله خيرا على كلماتك الطيبه وما انا الا طالب علم اتعلم معكم اخى @ازهر عبد العزيز وفقكم الله اخى 💐

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

1 دقيقه مضت, الفلاحجى said:

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐

جزاك الله خيرا على كلماتك الطيبه وما انا الا طالب علم اتعلم معكم اخى @ازهر عبد العزيز وفقكم الله اخى 💐

والشكر موصول للاستاذ @jjafferr  صاحب الكود