First you have to force Access to load the entire RecordSet, something the Access Gnomes don't always do when a Form first opens:
Code:
Private Sub Form_Load()
DoCmd.GoToRecord , , acLast
DoCmd.GoToRecord , , acFirst
End Sub
Then to update the count as you move from Record-to-Record:
Then
Code:
Private Sub Form_Current()
Me.LabelName.Caption = "Record " & CurrentRecord & " Of " & RecordsetClone.RecordCount & " Records"
End Sub
Linq ;0)>
The problem with making anything foolproof...is that fools are so darn ingenious!
All posts/responses based on Access 2003/2007