ADO MoveFirst, MoveLast, MoveNext, and MovePrevious Methods

Home | About me | EXCEL VB Programming (XL97-2003) | ACCESS Programming | EXCEL VB.Net Programming | EXCEL Spreadsheet Functions Material Management  |  Guestbook
 

ADO MoveFirst, MoveLast, MoveNext, and MovePrevious Methods

The MoveFirst Method

This method is used to move to the first record in a Recordset object. It also make the first record the current record.

Note:
Calling MoveFirst or MoveLast when the Recordset is empty generates an error.

The MoveLast Method

This method is used to move to the last record in a Recordset object. It also make the last record the current record.

Note:
Calling MoveFirst or MoveLast when the Recordset is empty generates an error.
An error will occur if the Recordset object does not support bookmarks or backward cursor movement.

The MoveNext Method

This method is used to move to the next record in a Recordset object. It also make the "next" record the current record.

Note:
If you call this method when the current record is the last record, it generates an error.

The MovePrevious Method

This method is used to move to the previous record in a Recordset object. It also make the "previous" record the current record.

Note:
An error will occur if the Recordset object does not support bookmarks or backward cursor movement.
If you call this method when the current record is the first record, it generates an error.

Syntax:

objRecordset.MoveFirst
objRecordset.MoveLast
objRecordset.MoveNext
objRecordset.MovePrevious

Examples

Code:

varBookMark = rs.Bookmark
rs.
MoveFirst
rs.Find "Customers = 'Smith' "
If (objRecordset.EOF = True) Then
   MsgBox "Record not found"
   rs.Bookmark = varBookMark
End If

 

Code:

Sub MoveFirst_OnClick
   objDataControl.objRecordset.
MoveFirst
End Sub



Sub MoveLast_OnClick
   objDataControl.objRecordset.
MoveLast
End Sub



Sub MoveNext_OnClick
   If objRecordset.EOF = False Then
      objDataControl.objRecordset.
MoveNext
   End If
End Sub



Sub MovePrevious_OnClick
   If objRecordset.BOF = False Then
      objDataControl.objRecordset.
MovePrevious
   End If
End Sub