I'm using the MapPoint control in an Access application.

I would like to write a program to get the county for each city and state in a table of store locations.

The map I am opening with my control also has many territories defined which are composed of groupings of counties. I'm really trying to get the territory name for each city/state in my retail outlet table.

My original approach was to derive the county that a city was in and then cross reference with my territory/county table to derive the territory, but it would be more direct just to derive the territory based on the city/state of a location.

Has anyone ever done this or have a suggestion?

Thanks in advance

Hi,

You an make a Location object based on the coordiantes.
A Location object has a StreetAddress property. This has a City and Country property that you can use from VBA.

Thanks Wilfred, your reply about the location object having a streetaddress was helpful as I scrape my knuckles trying to learn this stuff. However, I'm looking for the County instead of countRy.

Hi,

Euh can you please explain to me what a County is ?

Counties are subdivisions of most states (US). All states have subdivisions but in a few they are called something else.

Mappoint considers all state subdivisions in US as counties (geoShowDataByRegion2). In Europe there are also counties and/or provinces.

My territories are defined by groups of counties and that's why I'm tyring to find the county that a given city is located in.

Hi,

Thanks for explaining, we have provinces here so I understeand now. Nice word county But I dont know sorry. I hope someone else drops in here with some advice.

I found a way to find the county for a given city and state. I just wanted to follow up with this thread.

If anyone wants to know how I got it done, email me.

Hi,

yes please. How ?

Here's the approach I used to find the county of a city in pseudocode:

Sub Procedure GetCountyForCity(<strCity>, <strState>) as String
1. Get map object (active map)...objMap
2. Declare and set a location object:
>objLoc = objMap.FindResults(<strCity> & ", " & <strState>).Item(1)
3. Go to and select the location:
>objLoc.GoTo
>objLoc.Select
4. Declare and set a Results object:
>objRes = objMap.ObjectsFromPoint(objMap.LocationToX(objLoc) , objMap.LocationToY(objLoc))
5. Declare a set a boolean county found flag and temp county name variable
>bCountyFound = False
>strCounty = ""
6. Step through the results and find the object with type = 17 (geoShowDataByRegion2 for US counties)
>For i = 2 To objRes.Count 'index of 1 has no type and generates error
>>>If objRes.Item(i).Type = 17 Then
>>>>>>strCounty = objRes.Item(i).Name 'County found!
>>>>>>bCountyFound = True
>>>>>>Exit for
>>>End If
7. Return the results
>GetCountyForCity = strCounty
End Sub

In the calling procedure, you can test for "" county to see if you got one.

Specific syntax of course dependent on the language you'll be using.
Hope this is clear...let me know if you have questions.

In the pseudocode I just posted, the bCountyFound flag is not really needed. It was left over from earlier effort and I forgot to remove it.