I have an Access 2003 form with a command button which opens a form called frmMapEX. I pass the address from the original form to frmMapEX.
First error is a Run-time error '430' Class does not support Automation or does not support expected interface.
When I debug I get the following:
Public Function ApplyPoint()
If oMap Is Nothing Then Set oMap = Me!MapCtl.Object
Set objSA = oMap.ActiveMap.ParseStreetAddress(txtAddress)
Set oLoc = oMap.ActiveMap.FindAddressResults(objSA.Street, objSA.City _
, , objSA.Region, objSA.PostalCode)
If Not oLoc Is Nothing And oLoc.ResultsQuality <> geoNoResults Then
Set oPush = oMap.ActiveMap.AddPushpin(oLoc(1).Location, "Machine Location")
oPush.BalloonState = geoDisplayName
oPush.Location.GoTo
Set oPush = Nothing
Set oLoc = Nothing
End If
End Function
I seem to specifically be having trouble with the following line:
Set oPush = oMap.ActiveMap.AddPushpin(oLoc(1).Location, "Machine Location")
Any thoughts??????????????