teşekkürler hocam bu kodun geliştirilmesi lazım galiba

alttaki kodu ekleyince hata oluyormu birde öyle baksanız
komut düğmesine koyunca benimkide çalışıyor ama bu kod hata veriyor

Private Sub Form_Current()

Dim i As Long

 If Status <> acDeleteOK Then Exit Sub



 With Me.Recordset

 .MoveLast

 For i = .RecordCount To 1 Step -1

 .Edit

'AltFormda SıraNo Metin Kutusu Tablodan kayıt kaynağı var

 Me.SıraNo = i

 .Update

 .MovePrevious

 Next

 End With

End Sub