Procedure Previous

Description

Positions the record pointer to the previous record in the query.

Example

Sub main()

Dim Query

' Create a new Query

Set Query = Application.DataBase.CreateQuery("Select CountryCode From Country")

' Open the Query

Query.Open

' Position the Query on the last record

Query.Last

Do While not Query.BOF

' Show the value of the field "Description"

MsgBox Query("CountryCode").Value

' Got to previous record

Query.Previous

Loop

' Done. Close Query

Query.Close

End Sub