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

[عبدالعليم اسماعيل]

اريد عند الغاء التعديل لايأخذ رقم بالسجل ويبقى عند اخر ترقيم

 

0.rar

[عبدالعليم اسماعيل]

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

طبعا دى محاول بس مع خبرة حضراتك هل هى صحيحه ام لا  

مع العلم انه يوجد علاقه بين ثلاث جداول 

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

[Foksh]

جرب فكرتي ، قد تعجبك

 

0.accdb