I have several forms that I want to replace the small hard to see recordset counter at the bottom of the form with my own code. What I have so far is:
Private Sub Form_Current()
Dim rst As DAO.Recordset
Dim lngCount As Long
Set rst = Me.RecordsetClone
lngCount = .RecordCount
Me.txtSongCount = "This is record " & Me.CurrentRecord & " of " & lngCount
When the code gets to the line .MoveLast is results in an error Run-time error '3021', No current record.