The MoveNext Procedure
To keep things simple so we can concentrate on the code, we only have a
MoveNext procedure. When the user clicks the single button on the form, the
MoveNext procedure is called.
7. Add the following (new)
MoveNext subroutine to your class module:
Public Sub MoveNext() If adoPublishers.EOF Then adoPublishers.MoveFirstElse adoPublishers.MoveNextEnd If End Sub
There is no magic here. When the button on the form is clicked, this procedure checks to see if we are at the end of the recordset. If yes, then we cycle back to the first record. If not, we move to the next.