Yes, I do something like that to allow multi-record select/delete. Will try to give a modified version. I pulled lines out of my procedure to give you something that looks relevant to you but not tested:
Code:
Sub btnDoSomething_Click()
Dim intHeight As Integer 'stores value for number of records selected
Dim N As Integer
With Me.RecordsetClone
intHeight = Me.SelHeight
If .RecordCount < 1 Then
MsgBox "No records. Action canceled.", , "Error"
ElseIf intHeight < 1 Then
MsgBox "No records selected. Action canceled.", , "Error"
Else
.AbsolutePosition = Me.SelTop - 1 'AbsolutePosition property is 0 based counter so must -1 to set pointer in recordsetclone to record matching the top record in form selected records
For N = 1 To intHeight
'Do something with record
.MoveNext
Next
End If
End Sub