Zip code finder

[Tony Lavender]

My apologies if this question's been asked/answered before....seems like a
common enough requirement!

I have an Access database of U.S. address/city/state records and when I link
it to MapPoint most of the records get matched to map locations. How can I
list the Zip codes for all the matching locations? I've tried some things
like...

'get all the records
Set objRecords = g_oApp.ActiveMap.DataSets(1).QueryAllRecords
With objRecords
.MoveFirst
Do While Not .EOF
'only check the ones that were located
If .IsMatched Then
Set objFindResults =
g_oApp.ActiveMap.FindAddressResults(.Fields("Address"), .Fields("City"), ,
.Fields("ST"), , geoCountryUnitedStates)
If Not objFindResults.Item(1).PostalCode Is Nothing Then
lstUnmatched.AddItem objFindResults.Item(1).PostalCode.Value
End If
Set objFindResults = Nothing
End If
.MoveNext
Loop
end With

etc...

But no luck. Help, anyone?!

[Tony Lavender]

Never mind... I got it working! The key was to check
objRecords.MatchingMethod before trying to do the FindAddressResults.

"Tony Lavender" <tlav...@promediaco.com> wrote in message
news:aqrun3$qmb$1...@nntp-m01.news.aol.com...

> My apologies if this question's been asked/answered before....seems like a
> common enough requirement!

<snip />