Recordset.Move Method (DAO)

Moves the position of the current record in a Recordset object.

Syntax

expression .Move(Rows, StartBookmark)

expression A variable that represents a Recordset object.

Parameters

Name	Required/Optional	Data Type	Description
Rows	Required	Long	The number of rows the position will move. If rows is greater than 0, the position is moved forward (toward the end of the file). If rows is less than 0, the position is moved backward (toward the beginning of the file).
StartBookmark	Optional	Variant	A value identifying a bookmark. If you specify startbookmark, the move begins relative to this bookmark. Otherwise, Move begins from the current record.

Remarks

If you use Move to position the current record pointer before the first record, the current record pointer moves to the beginning of the file. If the Recordset contains no records and its BOF property is True, using this method to move backward causes an error.

If you use Move to position the current record pointer after the last record, the current record pointer position moves to the end of the file. If the Recordset contains no records and its EOF property is True, then using this method to move forward causes an error.

If either the BOF or EOF property is True and you attempt to use the Move method without a valid bookmark, a run-time error occurs.

Note

• When you use Move on a forward-only-type Recordset object, the rows argument must be a positive integer and bookmarks aren't allowed. This means you can only move forward.

• To make the first, last, next, or previous record in a Recordset the current record, use either the MoveFirst, MoveLast, MoveNext, or MovePrevious method.

• Using Move with rows equal to 0 is an easy way to retrieve the underlying data for the current record. This is useful if you want to make sure that the current record has the most recent data from the base tables. It will also cancel any pending Edit or AddNew calls.

Example

This example uses the Move method to position the record pointer based on user input.

Sub MoveX() 
 
   Dim dbsNorthwind As Database 
   Dim rstSuppliers As Recordset 
   Dim varBookmark As Variant 
   Dim strCommand As String 
   Dim lngMove As Long 
 
   Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
   Set rstSuppliers = _ 
      dbsNorthwind.OpenRecordset("SELECT CompanyName, " & _ 
      "City, Country FROM Suppliers ORDER BY CompanyName", _ 
      dbOpenDynaset) 
 
   With rstSuppliers 
      ' Populate recordset. 
      .MoveLast 
      .MoveFirst 
 
      Do While True 
         ' Display information about current record and ask  
         ' how many records to move. 
         strCommand = InputBox( _ 
            "Record " & (.AbsolutePosition + 1) & " of " & _ 
            .RecordCount & vbCr & "Company: " & _ 
            !CompanyName & vbCr & "Location: " & !City & _ 
            ", " & !Country & vbCr & vbCr & _ 
            "Enter number of records to Move " & _ 
            "(positive or negative).") 
 
         If strCommand = "" Then Exit Do 
 
         ' Store bookmark in case the Move doesn't work. 
         varBookmark = .Bookmark 
 
         ' Move method requires parameter of data type Long. 
         lngMove = CLng(strCommand) 
         .Move lngMove 
 
         ' Trap for BOF or EOF. 
         If .BOF Then 
            MsgBox "Too far backward! " & _ 
               "Returning to current record." 
            .Bookmark = varBookmark 
         End If 
         If .EOF Then 
            MsgBox "Too far forward! " & _ 
               "Returning to current record." 
            .Bookmark = varBookmark 
         End If 
      Loop 
      .Close 
   End With 
 
   dbsNorthwind.Close 
 
End Sub