Share via

MoveFirst method

  • Article

Sets the current record of the record set to the first record.

Applies to

Objects:  Recordset

Syntax

object.MoveFirst

Parameters

Part Description
object Required. An expression that returns a Recordset object.

Example

  
    Sub TraverseRecordset()


  Dim objApp As New MapPoint.Application
  Dim objPin As MapPoint.Pushpin
  Dim objRS As MapPoint.Recordset
  Dim iLRTotal, iTotal As Integer

  'Find Pushpin
  Set objPin = objApp.OpenMap(objApp.Path & "\Samples\Clients.ptm").FindPushpin("Jenny Sax Proseware, Inc.")

  'Get all records for this Pushpin's data set
  Set objRS = objPin.Parent.QueryAllRecords

  'Point the record set to the Pushpin
  objRS.MoveToPushpin objPin
  iLRTotal = CInt(objRS.Fields("November"))

  'Use the record set again
  objRS.MoveFirst

  Do Until objRS.EOF
    iTotal = iTotal + CInt(objRS.Fields("November"))
    objRS.MoveNext
  Loop

  'Percentage of total sales for November
  MsgBox CStr(100 * iLRTotal / iTotal) & "%"


End Sub