ERROR: 429 ActiveX Component can't create object 1

[irethedo]

I have a database that I am running off the network and accessing fomr several PCs which is working just fine except one of the PC's is getting an Active X error.
(429 ActiveX Component can't create object)

Does this have to do with something missing or not totally installed on my system?

It happens on the "Set fs = CreateObject("Scripting.FileSystemObject")" line in my code below...

Any ideas?

=====================
Private Sub Add_Record_Click()
On Error GoTo Err_Add_Record_Click

Dim q As Integer, iID As Integer, blnFail As Boolean
Dim strCrit As String, strMsg As String, strTitle As String, strTermId As String
Const ForReading = 1, TristateUseDefault = 2
Dim fs, f

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\TermID.txt", ForReading, TristateUseDefault)
strTermId = f.ReadLine
f.Close

 

[Garyhou]

I had a similar issue and found that I had to ensure that the computer in question had the "code references" set up correctly. If you go to the Visual Basic window (i.e. you are looking at code), under the tools menu you will see references. Check to ensure that all the references checked on the machine that is not working is the same as on a machine that is working. If it is different you should be able to find the missing reference and check it.

Hope that helps.

Garyhou

 

[irethedo]

Thanks Garyhou-

The references checkec for the bad machine match what is listed for a good machine... but I am not sure if the active X is loaded on this machine or not and I am not sure how to tell...

 

[PHV]

Same OS (version and sp) on both machines ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[irethedo]

On both systems:

OS = XP

Version = 2002

Service Pack = SP2
=================

I am running Access 2003

 

[PHV]

Perhaps you need to register the dll again ?
In a console window:
regsvr32 %windir%\system32\scrrun.dll

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[irethedo]

That was it- thanks PHV !!!

 

[strangeryet]

I am having a similar problem, perhaps the answer is similar to PH's response? I get the same error but the object that I am trying to create is another version of access itself. The code is:

Dim AppAccess As New Access.Application
Set AppAccess = CreateObject("Access.Application")
AppAccess.OpenCurrentDatabase(path...\Database.mdb")

This is to allow another version of Access to load (another application all together). This works on my pc, but when another person tries it they get the "Activex Component error".

The reference lists as msacc.olb

How do I go about registering this on another's machine?

Thanks