لاستعادة الترقيم عند حف أي ملف يمكن إضافة هذه التعليمات في زر الحذف وهي: Dim RS As DAO.Recordset    Dim Counter As Integer        Set RS = Me.Recordset    If RS.RecordCount = 0 Then        Exit Sub    End If        RS.MoveFirst    Counter = 0        While Not RS.EOF    Counter = Counter + 1    RS.edit    RS!Cu_ID = Counter    RS.Update    RS.MoveNext    Wend        Me.Recalc