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)

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