How do I design Navigation Buttons i.e., First, Next, Previous, Last to work with any recordset, in a Dataenvironment.
Printable View
How do I design Navigation Buttons i.e., First, Next, Previous, Last to work with any recordset, in a Dataenvironment.
Code:
Private Sub MoveFirst(rs As ADODB.Recordset)
rs.MoveFirst
End Sub
Private Sub MoveLast(rs As ADODB.Recordset)
rs.MoveLast
End Sub
Private Sub MovePrev(rs As ADODB.Recordset)
If rs.BOF Then
rs.MoveFirst
Else
rs.MovePrevious
End If
End Sub
Private Sub MoveNext(rs As ADODB.Recordset)
If rs.EOF Then
rs.MoveLast
Else
rs.MoveNext
End If
End Sub