السلام عليكم عند الغاء التعديل

عبدالعليم اسماعيل · أكتوبر 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