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.

© 1998 by Wrox Press. All rights reserved.