MapForums

Using the following code from MapPoint2002 Help in VB6 for ParseStreetAddress method. I try to parse "avenida talega,san clemente,CA,92673" and get error "Runtime error:91 Object variable or With block variable not set". This is a valid address in MapPoint 2002. Can somebody please explain. I don't get this error with all other valid addresses. Thanks.


Sub FindAddressFromString()

Dim objApp As New MapPoint.Application
Dim objMap As MapPoint.Map
Dim strAddress As String
Dim objSA As MapPoint.StreetAddress

'Set up the application
Set objMap = objApp.ActiveMap
objApp.Visible = True
objApp.UserControl = True

'Set a string, then parse it
strAddress = "1 Microsoft Way, Redmond, WA"
Set objSA = objMap.ParseStreetAddress(strAddress)

'Now search on this address and return first result
MsgBox "First found address: " + objMap.FindAddressResults(objSA.Street, _
objSA.City, , objSA.Region).Item(1).Name

End Sub

Try declaring MapPoint.Application object as follows:
Dim objApp As New MapPoint.Application
Set objApp = CreateObject("MapPoint.Application")

Hope that helps.

Mark

I had a similar problem. Set the results to a location object. Then test the object to find out if the function returned a valid location.

Heres a bit code that determines if the full address I provided was found by MP. If not I use on the zipcode to create the Location object.
Good Luck!


Dim oLoc as MapPoint.Location
Set oLoc = objMap.FindAddress(sAddr1, sCity, sState, sZip, geoCountryUnitedStates)
If oLoc Is Nothing Then
Set oLoc = objMap.FindAddress("", "", "", sZip, geoCountryUnitedStates)
End If