Merhaba,
sayın esrefigit, verdiğiniz kodları denerken yeni kayıt eklerken aşağıdaki hataları verdi. bunun dışında gezinti sırasında güzel bir çalışması var. ama malasef bu şekilde form kullanılamaz durumda. Teşekkürler.
Hatalar:
![[Resim: eklemehatasi.gif]](http://img512.imageshack.us/img512/7200/eklemehatasi.gif)
![[Resim: vberror.gif]](http://img512.imageshack.us/img512/7001/vberror.gif)
Kodun hata veren ksımını şu şekilde değiştirdim şimdi doğru çalışıyor ama NewRecord'da bookmark kullanılmamış oldu. kodun bir sorunu var mıdır bu şekilde, ilerde sıkıntı çıkarırı mı?
Kod:
Private Sub Form_Current()
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
'son kayda gitki toplam kaydı alabilleeim
rst.MoveLast
' rst nin bu formun kayıtlarına dayandığını belirtiyoruz
If NewRecord Then
Me.txtToplamKayit = Me.CurrentRecord & " de " & rst.RecordCount + 1
Else
rst.Bookmark = Me.Bookmark
Me.txtToplamKayit = Me.CurrentRecord & " de " & rst.RecordCount
End If
bir sorun teşkil etmez gayet güzel çalışır
Son bir sorum daha olacak,
form her etkinleştiğinde nesne oluşturup atama yapıp son kayda gidiyoruz. Şu an kayıtlar az, binlerce kayıtta bir yavaşlama yaratır mı bu son kayda gitme ve diğer yöntemler ?
hayır yaratmaz çünkü formun recordsetine gönderme yapıyorsunuz ondan dolayı hızlı bir gidiş olur
=RecordsetClone.RecordCount
komutunda hata alıyorum maalesef.