LineNumber Lütfen Kodu Deneyin

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

Bende bir problem olmadı.

Win 7 32 Bit Ultimate Türkçe
Office 2010 32 Bit İngilizce

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

Kodu Formun geçerli olduğunda olayına ekledim, hata veriyor mu deneyiniz.

Ek Dosyalar

teşekkür ederim
iş yerindeyim kod gayet güzel çalışıyor ama evde aynı kod hata veriyor
sistemde bir gariplik var ofisi yeniden yükledim yine düzelmedi.
çocuklar ağ üzerinden çalışan oyun kurunca oldu kodun içindeki loop komutu sanki çalışmaya devam ediyor boş kayda gelince hata veriyor. windowsun ayarlarıyla ilgili birşey sanırım