Solved

Run-Time error '429': ActiveX component can't create object

Posted on 2009-03-30
20
2,687 Views
Last Modified: 2013-11-27
We had a PC bite the dust last week. So it had to be reformatted.  In doing so, we later realized that some applications needed re-installing that did not have proper documentation on procedure.

This machine runs XP pro SP3 Build 2600 and has a macro in an Excel 2002 worksheet.  This worksheet formats and returns data from a Access 97 database.  When we first re-installed the Access program it said we did not have licensing on the machine.  So we looked up the fix and used the hatten.ttf font fix.  

When we went to run the macro we got the error:
Run-Time error '429': ActiveX component can't create object

When we debugged the code it pointed to this section:

====================================================
Public DB1 As Database
Public DB2 As Database
Public ObjConn1
Public ObjConn2

Sub ShowDialog()
    UserForm1.LabelProgress.Width = 0
    UserForm1.Show
   
End Sub
Sub Main()


Windows("EmployeeFileFormatted_Expanded.xls").Activate

If Sheet1.CMBcos.Value = "8400" Then
    Set DB1 = OpenDatabase("X:\ClientPath\8400.mdb")
    Set ObjConn1 = CreateObject("ADODB.connection")
        ObjConn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=X:\ClientPath\8400.mdb"
    Set DB2 = OpenDatabase("X:\ClientPath\8400.mdb")
    Set ObjConn2 = CreateObject("ADODB.connection")
        ObjConn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=X:\ClientPath\8400.mdb"
       
   Else
    Set DB1 = OpenDatabase("X:\ClientPath\7426.mdb")
    Set ObjConn1 = CreateObject("ADODB.connection")
        ObjConn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=X:\ClientPath\7426.mdb"
    Set DB2 = OpenDatabase("X:\ClientPath\7426.mdb")
    Set ObjConn2 = CreateObject("ADODB.connection")
        ObjConn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=X:\ClientPath\7426.mdb"
End If

Call StartEmployeeFiles

End Sub

====================================================

In this section "X:" is a mapped drive on a server.

After trying several attempts at "complete" unistalling we recieve the same error.

The strange part is this worked on the same station with the same code before the crash, and works on a different station in the office.

Are there any suggestions out there?
Any help would be widely appreciated.
0
Comment
Question by:DarinAlred
  • 12
  • 4
  • 2
20 Comments
 
LVL 16

Expert Comment

by:RichardSchollar
ID: 24022724
Hi

If from within the VBE you go Tools>References and scroll down the list do you see items listed as "Microsoft ActiveX Data Objects XX Library" listed?

Richard
0
 

Author Comment

by:DarinAlred
ID: 24022985
I get "Error Accessing System Registry" when I click on references.
0
 
LVL 16

Expert Comment

by:RichardSchollar
ID: 24023253
That doesn't sound at all good.  Have you tried reregistering Excel?  From the Windows Start Menu, click Run and type in:

Excel.exe /unregserver

and then enter:

Excel.exe /regserver

Richard
0
 

Author Comment

by:DarinAlred
ID: 24023377
The result is:
One of your object libraries (l) is missing or damaged. Please run setup to install it.
click Ok
One of your object libraries (vbaen32.olb) is missing or damaged. Please run setup to install it.
clicked OK

Then a Microsoft Office configure script ran and completed.

Yet, I get the same result.

I will try again, and this time re-boot.
0
 

Author Comment

by:DarinAlred
ID: 24023405
No change after reboot.
0
 

Author Comment

by:DarinAlred
ID: 24023642
We also tried to install the Jet 4.0 latest db from file:
WindowsXP-KB829558-x86-ENU.exe

However the result said the file was older than the current service pack installed and did not need an upgrade.

We also downloaded and installed the file:
WindowsXP-Windows2000-Script56-KB917344-x86-enu.exe

for the Windows scripter.  

This also had no effect.
0
 
LVL 85

Expert Comment

by:Rory Archibald
ID: 24027357
Did you do a full Office installation, including all optional components?
0
 

Author Comment

by:DarinAlred
ID: 24028938
The office installations were:
CD - 1.  Full office 2002 installation except access
CD - 2.  Access 1997 and datawriter utils only
0
 

Author Comment

by:DarinAlred
ID: 24029066
I think the only option I have now is to completely unistall both office installations and start from scratch.

What I don't remember is all the components that my code needed to work.
I reference the Jet 4.0 OLEDB connection but I can't remember if I had to install or what, and now that I am on XP SP3; whereas I was on XP SP2 when I wrote it, I don't know what changes that will do.

I will make a new incident if I need to in order to answer these questions; but in general I just need it to work again, since I can't spend much more time on the issue.
0
Free Gift Card with Acronis Backup Purchase!

Backup any data in any location: local and remote systems, physical and virtual servers, private and public clouds, Macs and PCs, tablets and mobile devices, & more! For limited time only, buy any Acronis backup products and get a FREE Amazon/Best Buy gift card worth up to $200!

 
LVL 85

Expert Comment

by:Rory Archibald
ID: 24029768
Did you install Access 97 after you installed Office XP? I would recommend doing it the other way round, assuming you really need Access 97 for some reason.
0
 

Author Comment

by:DarinAlred
ID: 24033668
Rorya,

We installed Office XP first and then Access 97.  We have to use Access 97 because of proprietary 3rd party software that some of the older clients still use.
0
 
LVL 85

Expert Comment

by:Rory Archibald
ID: 24033876
That's fine - I'm just saying to install the older software before the newer - i.e Access 97, then do Office XP.
0
 

Author Comment

by:DarinAlred
ID: 24050755
I will try your answer Rorya, however, it may be this weekend before I can do so.  If it works, I'll give you full credit.
0
 

Author Comment

by:DarinAlred
ID: 24092308
I have unistalled all Microsoft office components; reinstalled Access 97 only and then Office XP without installing Access XP and repaired the installation; yet there is no fix.

I still get the same error message I started out with; and I still get the error connecting to registry from the VB >Tools>References menu.  As well, VB apps are not running on my pc at all.
0
 

Author Comment

by:DarinAlred
ID: 24097475
Last night I stayed late and unistalled all the office products on my pc.  Next, I installed the Office 97 registry and file eraser utility recommended by Microsoft for the issue I have.  However, it doesn't run on XP.  

I also tried to run msicuu2.exe which is the office installer cleanup also recommended by Microsoft and it complains about a file called StartMsi.vbs with the same Library not registered error.  Then I tried to re-install the Windows Script 5.6, which said it completed, yet when I ran any .vbs file I got the same Library error.  Next, I tried re-installing the windows installer, but the one on the Microsoft site is a older version and it says I do not need to install the file.  Finally, I re-registered the CDonts.dll and wshom.ocx because those two file flagged an error after unistalling the Office products upon restarting the pc.  

After all that, I reinstalled only Office XP 2002 without Access.  The same error displayed upon running any .vbs file.  The very last thing I tried was to install Visual Studio 2008 with Microsoft Visual Basic, Visual C#, Visual C++, Visual Studio Tools for Office, and Visual Web Developer.  However, even that did not solve my problem.

If anyone has even the slightest clue how I can fix this without reformatting the drive, please let me know.  Otherwise, I'll probably end up deleting the installed partition of Windows and starting from scratch by Saturday.
0
 

Author Comment

by:DarinAlred
ID: 24097555
After looking back through my comments I wanted to clarify the error message that happens when I run any .vbs program : Library not registered. code 8002801D.  I am still having the same error message about the Active-X component that started this question.  I do believe they are related because this is a macro using the excel Visual Basic Script, and no .vbs files are running on my machine at all.

0
 

Accepted Solution

by:
DarinAlred earned 0 total points
ID: 24119816
I tried three more fixes from the Microsoft site.  I installed Seagate Cyrstal 8.0 which has a known bug that produces this error.  So, I got the regfix from SAP; and it still didn't fix the problem.  Then I went through two more registery changes where I added the "everyone" profile to allow to make changes to specific entries, again listed at Microsoft.com.  Still my efforts have all been fruitless.

However, I will now just reformatt the drive on the machine; deleting the partition and re-loading the OS.
0
 
LVL 85

Expert Comment

by:Rory Archibald
ID: 24151873
I do apologise for spending my own free time trying to help you. Rest assured, it won't happen again.
Rory
0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

A little background as to how I came to I design this code: Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
Before we dive into the marketing strategies involved with creating an effective homepage, it’s crucial that EE members know what a homepage is. In essence, a homepage is the introductory, or default page, of a website that typically highlights the …
The viewer will learn how to create a normally distributed random variable in Excel, use a normal distribution to simulate the return on an investment over a period of years, Create a Monte Carlo simulation using a normal random variable, and calcul…
This Micro Tutorial will demonstrate in Google Sheets how to use the HYPERLINK function to create live links inside your spreadsheet.

708 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

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now