Forms VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Forms
  4. Code for the Move Next Button
Private Sub cmdNext_Click()
    Me.Recordset.MoveNext
     If Me.Recordset.EOF Then
        Me.Recordset.MovePrevious
        MsgBox "Already at Last Record!!"
    End If
    Me.Bookmark = Me.Recordset.Bookmark
End Sub