Option Compare Database
'Bu Haliyle Çalışıyor Ama Form Yüklenince Otomatik vermesini isteyince yeni kayda gidiyor ve hata veriyor
Private Sub Komut65_Click()
 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[vb]

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