User friendly record counter

[CarysW]

Is there a way to put a record counter onto my form? I have taken away the record selector at the bottom of the form and have put 'Previous' and 'Next' buttons on - the form will be populated from a list and I need the users to be able to know how many records are available - can I do this?

 

[DCrake]

The record selector gets its info from the underlying table/query why would you want to recreate the wheel? unless you are using an unbound form.

David

 

[CarysW]

Because, IMO, the record selector is untidy and I want my form to be uniform without the bar at the bottom. If you see what I mean.

 

[John Big Booty]

Me.CurrentRecord will give you the number of the current record, and you can use Dcount() to get the total number of records.

 

[missinglinq]

Create a label and name it RC_Label. Then use this code:

Private Sub Form_Load()
  DoCmd.GoToRecord , , acNext
  DoCmd.GoToRecord , , acFirst
End Sub

Private Sub Form_Current()
  Me.RC_Label.Caption = "Record  " & CurrentRecord & "  Of  " & RecordsetClone.RecordCount & "  Records"
End Sub