Worked before!

plevine1
10-04-2007, 12:28 PM
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??????????????

Eric Frost
10-04-2007, 12:55 PM
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 (http://www.mapforums.com/class-does-not-support-automation-6006.html)

hope this helps, let us know if it does not.

Eric

 
Web mp2kmag.com
mapforums.com