تفضل استاذ @abofayez1
Private Sub y_n_AfterUpdate()
If Me.y_n.Value = True Then
Dim strSQL As String
strSQL = "UPDATE a SET y_n = False WHERE ID <> " & Me.id
CurrentDb.Execute strSQL, dbFailOnError
Me.Requery
End If
End Sub
aa-1.accdb
مشاركةً مع اساتذتي تفضل استاذ @magdidir محاولتي حسب ما فهمت منك .اليك المرفق والشرح ........ملاحظة أنا وحدت (Price) بالجدولان .ووافني بالرد .
Test (115).rar
استاذ @2saad أنا قلت لحضرتك كنت سويته من قبل وهذه كانت الطلبات من السائل .
أولاً -تبغي العمل على برنامجك أم برنامجي .
ثانيا - الجدول به مستوي واحد أم عدة مستويات أولى ..ثانية .......
ثالثاً - ترقيم كل صف بمفرده أم استكمال على ماقبله.....
لاتبخل بالتفصيل ........
استاذ @فؤاد الدلوي ممكن توضح في أي عمود في الجدول نقدر نعرف مين دفع لأني اعتمدت على عمود مبلغ القسط اذا كان 5000 يبقى سدد ..... واذا خالي يبقى ما سدد .