alt formda LineNumber kodu arıza yapınca aşağıdaki kodu yazdım yine hata veriyor sizde hata veriyormu bana yazarmısınız.
bir örnek yolluyorum
düzgün çalışırsa kullanırız

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]

Ek Dosyalar

LineNum.rar(20.34 KB)