Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Seemingly Insoluble Problem with MapPoint & MS-Access “Run-time error '429'  ActiveX component can't create object”

Posted on 2006-06-24
9
Medium Priority
?
826 Views
Last Modified: 2008-01-09
After days of searching the web including ‘Experts Exchange’ for a resolution to this problem I decided that I would have to post the question. Can anyone help?

I simply want to be able to use MapPoint from Access.

Reinstalled 3 times with absolutely nothing else running
and removing all traces that I could find of earlier installations

I've tried all the following to register MapPoint
MapPoint /regserver
MapPoint.exe /regserver
"E:\Program Files\Microsoft MapPoint Europe\MapPoint.exe" /regserver

References in Access:

Microsoft MapPoint 11.0 Object Library (Europe)
Microsoft MapPoint Control 11.0
Microsoft MapPoint Utilities 1.0 Type Library
(Will load either 1 of the top 2 and the third reference)

Tried the following

Sub Test()
IsProgInstalled ("Word")
IsProgInstalled ("Access")
IsProgInstalled ("Powerpoint")
IsProgInstalled ("Excel")
IsProgInstalled ("Outlook")
IsProgInstalled ("Infopath")
IsProgInstalled ("Mappoint")
IsProgInstalled ("Mappoint.eu")
IsProgInstalled ("Mappoint.eu.11")
Dim MPApp As MapPoint.Application
Set MPApp = GetObject(, "MapPoint.Application") 'Run-time error '429'  ActiveX component can't create object
End Sub

Function IsProgInstalled(StrProg As String) As Boolean
Dim obj As Object
On Error Resume Next
    Set obj = CreateObject(StrProg & ".Application")
    IsProgInstalled = (Err.Number = 0)
If IsProgInstalled Then
    Debug.Print StrProg & " is Installed"
Else
    Debug.Print StrProg & " is Not installed"
End If
End Function

Results from above

Word is Installed
Access is Installed
Powerpoint is Installed
Excel is Installed
Outlook is Installed
Infopath is Installed
Mappoint is Not installed
Mappoint.eu is Not installed
Mappoint.eu.11 is Not installed

Any ideas

Thanks

Peter
0
Comment
Question by:PeterRollinson
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
  • 2
9 Comments
 
LVL 34

Accepted Solution

by:
jefftwilley earned 1000 total points
ID: 16976466
might try getting rid of the comma

Set MPApp = GetObject("MapPoint.Application")
0
 
LVL 34

Expert Comment

by:jefftwilley
ID: 16976468
if GetObject doesn't work...you can try CreateObject
0
 

Author Comment

by:PeterRollinson
ID: 16976623
The comma was just another attempt, actually copied to one of the myriad of Microsoft site I have investigated.

Set MPApp = CreateObject("MapPoint.Application") ='Run-time error '429'  ActiveX component can't create object

I forgot to mention that icons have appeared in both Excel & word but don't appear to do anything apart from create errors:

WORD
This object was created in MapPoint
This application in not available to open this object.
Make sure the application is properly installed and that
it has not been deleted, moved, or renamed.

EXCEL
Just flashes a rectangle.
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 34

Expert Comment

by:jefftwilley
ID: 16976639
' Declarations
    Private oApp As MapPoint.Application
    Private WithEvents oMap As MapPoint.Map   ' With Events!


'  Sub to open MapPoint Map.
private sub OpenMap()

        sMePath = AppPath                                         ' Path to Symbols collection
        MapPath = AppPath & "\Templates\mri.ptm"    ' Customize for your system
        oApp = CreateObject("Mappoint.Application")
        oApp.Left = 10
        oApp.Top = 10
        oApp.Visible = True
        oApp.WindowState = MapPoint.GeoWindowState.geoWindowStateNormal
        oMap = oApp.OpenMap(MapPath)
End Sub
0
 
LVL 38

Assisted Solution

by:puppydogbuddy
puppydogbuddy earned 1000 total points
ID: 16977442
0
 

Author Comment

by:PeterRollinson
ID: 16977887
jeffwilley,

Private WithEvents oMap As MapPoint.Map   ' With Events!    Code is red
when trying to run OpenMap "WithEvents" Highlight and I get Compile error 'Only valid in Object Mode'

 'Path to Symbols collection ?????

puppydogbuddy,

Tried these to no avail.

What concerns me is that IsProgInstalled function shows MapPoint as not being installed.

I installed MapPoint on my Laptop and everything works as would be expected, works from Word, Excel and Access etc

On my development machine MapPoint works fine but does not seem to integrate with Office 2003.

I have re-installed MapPoint 3 times, Could it be the installation of Office or even worse the installation of Windows XP Professional!
0
 

Author Comment

by:PeterRollinson
ID: 16980027
No Nothing.

So I tried re-installing Office 2003 then MapPoint, No Luck
So I bite the Bullet and re-installed Windows XP, Office 2003, MapPoint and what seems like a thousand other programs :(

Hallelujah it worked; I can now us MapPoint from Access :)

Thanks anyway for the attempts.

Pity to waste points so I'll share them out.


All the best

Peter
0
 
LVL 34

Expert Comment

by:jefftwilley
ID: 16980373
It's a shame really when it turns out to be a Gates problem. Very glad you found a solution though...thanks for the poinks.
J
0

Featured Post

NEW Veeam Agent for Microsoft Windows

Backup and recover physical and cloud-based servers and workstations, as well as endpoint devices that belong to remote users. Avoid downtime and data loss quickly and easily for Windows-based physical or public cloud-based workloads!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes two methods for creating a combo box that can be used to add new items to the row source -- one for simple lookup tables, and one for a more complex row source where the new item needs data for several fields.
Code that checks the QuickBooks schema table for non-updateable fields and then disables those controls on a form so users don't try to update them.
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
Using Microsoft Access, learn some simple rules for how to construct tables in a relational database. Split up all multi-value fields into single values: Split up fields that belong to other things into separate tables: Make sure that all record…

636 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question