عبدالعليم اسماعيل قام بنشر أكتوبر 19, 2023 مشاركة قام بنشر أكتوبر 19, 2023 اريد عند الغاء التعديل لايأخذ رقم بالسجل ويبقى عند اخر ترقيم 0.rar رابط هذا التعليق شارك More sharing options...
عبدالعليم اسماعيل قام بنشر أكتوبر 19, 2023 الكاتب مشاركة قام بنشر أكتوبر 19, 2023 بعد البحث بالمنت وجت كودين وتم دمجمهم بنفس قاعده البيانات الاول يعطينى رقم والثانى استعادة الترقيم بعد الحذف طبعا دى محاول بس مع خبرة حضراتك هل هى صحيحه ام لا مع العلم انه يوجد علاقه بين ثلاث جداول DoCmd.GoToRecord , , acNewRec If IsNull(DMax("[kod_alad5al]", "tblControls")) Or DMax("[kod_alad5al]", "tblControls") = 0 Then Me.kod_alad5al.Value = 1 Else kod_alad5al = DMax("[kod_alad5al]", "tblControls") + 1 End If Dim i As Integer, k As Integer Dim db As DAO.Database Dim Rs As DAO.Recordset Set db = CurrentDb DoCmd.SetWarnings False Set Rs = db.OpenRecordset("SELECT tblControls.* FROM tblControls ORDER BY tblControls.asm_a") If Nz(Rs.RecordCount, 0) > 0 Then Rs.MoveLast k = Rs.RecordCount Rs.MoveFirst For i = 1 To k Rs.Edit Rs!kod_alad5al = i Rs.Update Rs.MoveNext Next i End If Set Rs = Nothing Set db = Nothing DoCmd.SetWarnings True 01.rar رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر أكتوبر 19, 2023 مشاركة قام بنشر أكتوبر 19, 2023 جرب فكرتي ، قد تعجبك 0.accdb 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان