-
Worked before!
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??????????????
-
Re: Worked before!
Ah ha! I hate this error because I get it about every other year and by then I have forgotten what it's about.. but I got it again just a few months ago and so I think I can help you..
It could be because you have more than one version of MapPoint installed, at least this is what I've been chalking it up to.
Try this: Class does not support Automation or does not support expected interface
hope this helps, let us know if it does not.
Eric