How to Display Number of Records

[yus786]

Like the standard one at the bottom of a form - Record 1 of 520 etc

How can this be shown somewhere else within a form?

 

[missinglinq]

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

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

 

[RuralGuy]

And a useful link from ghudson.