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