MapForums

I am creating my own version of the find place name function to find my accounts. My code is copied from the sample find program except that my find string (strAccountName) comes from a separate form specially designed for that purpose. Somehow I get a "type mismatch" error on setting the objLoc:

Dim intX As Integer

strAccountName = frmSearchMap.strAccountName
Set objMap = MappointControl1.ActiveMap

Set objFindResults = objMap.FindPlaceResults(strAccountName)
frmSearchMap.lstPossibleNames.Clear
intX = 1
Do While intX <= objFindResults.Count
Set objLoc = objFindResults.Item(intX)
frmSearchMap.lstPossibleNames.AddItem objLoc.Name
intX = intX + 1
Loop

frmSearchMap.lstPossibleNames.Visible = True

frmSearchMap.Show

Perhaps someone can see my blind spot here. Any suggestions appreciated.

__________________
David Kachuck
dk0146@netscape.net

Oracle Certified Professional Database Administrator (OCP)
MS Access Certified Expert (MAUS)

Try making this change to the Do Loop.

Do While intX <= objFindResults.Count
frmSearchMap.lstPossibleNames.AddItem objFindResults.Item(intX) .Name
intX = intX + 1
Loop

__________________
John
http://www.support-pc.com

Order MapPoint 2006 Here
https://secure.mp2kmag.com/?refer=support-PC