Private Sub Form_Current()

' Provide a record counter for using with
' custom navigation buttons (when not using
' Access built in navigation)

    Dim rst As DAO.Recordset
    Dim lngCount As Long

    Set rst = Me.RecordsetClone

    With rst
        .MoveFirst
        .MoveLast
        lngCount = .RecordCount
    End With
    
'Show the result of the record count in the text box (txtRecordNo)

    Me.txtRecordNo = "Record " & Me.CurrentRecord & " of " & lngCount

With rst
        .MoveFirst
        .MoveLast
        lngCount = .RecordCount
End With