شوفت اخوي محمد لما رفعت البيانات كاملة امكنني فحص الخلل وعلاجه
مازال تاريخ التسديد ناقص 2000 سجل ولكني اعتمدت تاريخ الأذن
المشكلة من النظام نفسه لا يسمح باكثر من 9500 سجل التي هي القيمة الافتراضية لذا يجب تعديلها بهذا السطر
DAO.DBEngine.SetOption dbMaxLocksPerFile, 45000
انا جعلتها 45000 يمكنك انقاص الرقم او زيادته
ليصبح الكود هكذا :
Dim rs As DAO.Recordset
Dim i As Long
Dim x As Integer
Dim r As String
DAO.DBEngine.SetOption dbMaxLocksPerFile, 45000
Set rs = CurrentDb.OpenRecordset("SELECT Sheet1.cod, Sheet1.num , Sheet1.date_ezen fROM Sheet1 ORDER BY Sheet1.nname,Sheet1.cod , Sheet1.date_ezen ")
If rs.RecordCount > 0 Then
rs.MoveLast
rs.MoveFirst
Else
Exit Sub
End If
r = rs!cod
x = 1
For i = 1 To rs.RecordCount
rs.Edit
If rs!cod = r Then
rs!num = x
x = x + 1
Else
x = 1
r = rs!cod
rs!num = x
x = x + 1
End If
rs.Update
rs.MoveNext
Next
rs.Close: Set rs = Nothing
تفضل المثال بعد التعديل
افتح الاستعلام بعد عملية الترقيم لترى النتيجة