Moving Through the Records in a Recordset:MoveLast - To the last record in a recordset

 
Sub RecordsetMovements()
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset

    rst.ActiveConnection = CurrentProject.Connection
    rst.CursorType = adOpenStatic
    rst.Open "Select * from Employees"

    Debug.Print rst("EmployeeID")

    rst.MoveNext
    Debug.Print rst("EmployeeID")

    rst.MoveLast
    Debug.Print rst("EmployeeID")

    rst.MovePrevious
    Debug.Print rst("EmployeeID")

    rst.MoveFirst
    Debug.Print rst("EmployeeID")

    rst.Close
    Set rst = Nothing
End Sub

Related examples in the same category

1.	Navigate through a recordset
2.	Move the resultset cursor with MoveNext method
3.	Moving Around in a Recordset
4.	Move cursor in a Recordset with MoveNext
5.	Supplying the CursorType as a Parameter of the Open Method
6.	Using the Recordset Movements() Methods on a Recordset Object
7.	Moving Through the Records in a Recordset:MoveFirst - To the first record in a recordset
8.	Moving Through the Records in a Recordset:MovePrevious - To the previous record in a recordset
9.	Moving Through the Records in a Recordset:MoveNext - To the next record in a recordset
10.	Set CursorType to adOpenForwardOnly
11.	Set CursorType to adOpenStatic
12.	Set CursorType to adOpenKeyset
13.	Set CursorType to adOpenDynamic
14.	Supplying the CursorType as a Property of the Recordset Object
15.	Designating the Cursor Location
16.	Set CursorLocation to adUseServer
17.	Set Cursor Location to adUseClient
18.	Check after using the MoveNext method whether the end of the file has been reached
19.	moves 5 records backward from the current record in a DAO recordset:

Moving Through the Records in a Recordset:MoveLast - To the last record in a recordset : Recordset Cursor « Access « VBA / Excel / Access / Word

Related examples in the same category