ActiveX error 429

[luv2bike2]

I am very new to ACCESS (all versions) so bear with me on this.

All the DB's were set up before I joined this company so I have no clue as
to where to go to and how to fix something.

I have a Windows XP SP 2 system, with MS Office Pro Enterprise Edition 2003.
I am using Access 2003.

The problem I am having is that I can get to one point, i will click on one
item and the form will appear but than an error message will pop up saying
that:

"Microsoft Visual Basic.
Run time error "429"
ActiveX component can't create object.."

I have performed all the functions that KB 319844 for "ActiveX component
can't create object" error message when using Access" and none of those
resolutions helped. (http://support.microsoft.com/kb/319844/en-us)

I have uninstalled Office, rebooted the workstation, reinstalled Office,
installed the MS office updates and rebooted again. Went back into the DB
and tried it again and still get the that same error message.

Any one with any other suggestions!

Thanks,

 

[luv2bike2]

just to add to my message:
when the Microsoft Visual Basic box appears at the bottom of the box i have
4 choices.

"continue (which is grayed out), end, debug, help"

If I choose debug, Access will bring up MS VB form_xxxxx (code) screen. and
one of the lines is hightlighted in yellow with a yellow arrow to the left of
it. I have no clue as to what I should do with that. It means nothing to
me. can someone explain what i need to do with that line. I have looked on
other workstations and view that same exact line and it is the same, nothing
is different.

 

[TC]

Uh, show us the highlighted line?

TC (MVP Access)
http://tc2.atspace.com

 

[luv2bike2]

the line that is hightlighted is the Set recClone = Me.RecordsetClone() line.

Private Sub Form_Current()

Dim recClone As Recordset
Dim intNewRecord As Integer

Set recClone = Me.RecordsetClone()

intNewRecord = IsNull(Me.ECONUMBER)

If intNewRecord Then
Me!Command17.Enabled = True
Me!Command16.Enabled = False
Me!AddNewRecord.Enabled = False
Exit Sub
End If

 

[Douglas J Steele]

I believe that RecordsetClone always returns a DAO recordset. To ensure that
recClone is declared correctly, try using:

Dim recClone As DAO.Recordset

This assumes that you have a reference set to DAO. (A compile will let you
know if you do). If you don't, select Tools | References and scroll through
the list of available references until you find Microsoft DAO 3.6 Object
Library. Select it, and shut down the dialog.

 

[luv2bike2]

I have fixed the problem.

I had registered the wrong DAOXXX.dll. After going over the resolutions
again and again. i decided to check to see if there were any other
DAOXXX.dll's and sure enough there was another one so I register that one and
went into the DB and I did not get the ACTIVEX error message.
Thank you for your time.