Hello people,

I'm trying to execute the following code but get an exception on the map object (objmap.location) in the querycircle function. Any ideas...thanks

PublicSub getshape()
Dim objMap As MapPoint.Map
Dim objDataSet As MapPoint.DataSet
Dim objRecords As MapPoint.Recordset
Dim location As MapPoint.FindResults
Dim objfield As MapPoint.Field
Dim lngcount AsInteger
AxMappointControl1.NewMap(MapPoint.GeoMapRegion.ge oMapNorthAmerica)
objMap = AxMappointControl1.ActiveMap
objDataSet = AxMappointControl1.ActiveMap.DataSets.GetDemograph ics(MapPoint.GeoCountry.geoCountryUnitedStates)
Dim datafieldkey AsObject = "Population (2002)"
Stop
location = objMap.FindResults("reston, va")
objRecords = objDataSet.QueryCircle(objMap.Location, 1000)
objRecords.MoveFirst()
DoWhileNot objRecords.EOF
lngcount = lngcount + 1
objRecords.MoveNext()
Loop
MsgBox("Number of records in circle: " & lngcount)
EndSu

Do you mean "objMap.Location"?

Or do you mean use your "location" variable? Note that the find methods return a FindResults object. This reports the results quality an a collection of results.
You might need something like "location.item(1)" instead, to choose the first result.


Richard