MoveToPushpin method

  • Article

Sets the current record of the record set to the record for the given Pushpin. This allows access to any imported data associated with that Pushpin through the Fields collection of the Recordset object. If the Pushpin is not in the Recordset object, the Recordset points to the EOF property. Fails for DataSet objects with a DataMapType property of geoDataMapTypeTerritory.

Applies to

Objects:  Recordset

Syntax

object.MoveToPushpin(Pushpin)

Parameters

Part Description
object Required. An expression that returns a Recordset object.
Pushpin Required Pushpin object. Pushpin to which the record is moved.

Remarks

Use the MoveToPushpin method to access data associated with a Pushpin found with the FindPushpin method on the Map object.

Example

  
    Sub PointRecordsetToPin()

Dim objApp As New MapPoint.Application
Dim objPin As MapPoint.Pushpin
Dim objRS As MapPoint.Recordset
objApp.Visible = True
objApp.UserControl = True

'Find a Pushpin
Set objPin = objApp.OpenMap(objApp.Path & "\Samples\Clients.ptm").FindPushpin("Jo Berry Coho Vineyard")

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

'Point the record set to the Pushpin and zoom to it
objRS.MoveToPushpin objPin
objRS.Location.GoTo

End Sub