|
Sylvain,
When you hit the "Find" button, what information are you passing to your code?
What is VehicleNm? Is that a pushpin?
In one of your posts you mentioned a dataset named "Truck1"
If that is the name of a dataset on your map, you could use the following to set a reference to dataset "Truck1"
Set objDataSet = pubMap.DataSets("Truck1")
'This sample might help.
Dim objMap As MapPointctl.Map
Set objMap = MappointControl1.ActiveMap
Dim objDataSet As MapPointctl.DataSet
Dim objRecords As MapPointctl.Recordset
Set objDataSet = objMap.DataSets("Truck1")
Set objRecordset = objDataSet.QueryAllRecords
Do While Not objRecordset.EOF
Debug.Print objRecordset.Pushpin.Name
objRecordset.MoveNext
Loop |