نقل قول نوشته شده توسط مهدی قربانی مشاهده تاپیک
با این کد ساده شما قادر هستید بدون استفاده از Navigation Bar خود اکسس یک شمارشگر رکورد رو در فرمتون به نمایش بگذارید .
یک Text Box در فرم مورد نظر ایجاد کنید و نام اونرو txtRecordCounter بگذارید و کد زیر رو در رویه On Current فرم کپی کنید :

Dim rst As DAO.Recordset

    Dim lngCount As Long



    Set rst = Me.RecordsetClone



    With rst

        .MoveFirst

        .MoveLast

        lngCount = .RecordCount

    End With

    

    Me.txtRecordCounter = "رکورد" & Me.CurrentRecord & " از " & lngCount
ضمناً فراموش نکنید اگر در References وی بی ای ، گزینه Microsoft DAO 3.6 Object Library چک نخورده حتماً فعالش کنید .


سلام
برای تیک زدن رفرنس یاد شده پیغام زیر ظاهر می شود