Error: ActiveX component cannot create object

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have one user (out of maybe 20) and when ever access tries to run a certain
code, it throws an error. It happens in several different forms, and ONLY on
this one machine. The code is:

Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Staff_ID] = " & Str(NZ(Me![Combo12],""))

When I hit debug it highlights the line: Set rs = Me.Recordset.Clone

This is all made by the command button wizard and works on all the other
machines. This machine also has the same copy of Access 2003 that everybody
else has.

Any thoughts?
 
Shouldn't that be
Set rs = Me.RecordsetClone <<< Note the absence of the second period

However if this code is working on all but one user's computer, I suspect
that you may have a reference problem of some type. When code works on all
but one computer my first thought is missing or bad library reference.

Here are MVP Doug Steele's instructions for how to do check on or fix
reference problems.

*** Quote ***

Any time functions that previously worked suddenly don't, the first thing to
suspect is a references problem.

This can be caused by differences in either the location or file version of
certain files between the machine where the application was developed, and
where it's being run (or the file missing completely from the target
machine). Such differences are common when new software is installed.

On the machine(s) where it's not working, open any code module (or open the
Debug Window, using Ctrl-G, provided you haven't selected the "keep debug
window on top" option). Select Tools | References from the menu bar. Examine
all of the selected references.

If any of the selected references have "MISSING:" in front of them, unselect
them, and back out of the dialog. If you really need the reference(s) you
just unselected (you can tell by doing a Compile All Modules), go back in
and reselect them.

If none have "MISSING:", select an additional reference at random, back out
of the dialog, then go back in and unselect the reference you just added. If
that doesn't solve the problem, try to unselect as many of the selected
references as you can (Access may not let you unselect them all), back out
of the dialog, then go back in and reselect the references you just
unselected. (NOTE: write down what the references are before you delete
them, because they'll be in a different order when you go back in)

For far more than you could ever want to know about this problem, check out
http://www.accessmvp.com/djsteele/AccessReferenceErrors.html

Just so you know: the problem will occur even if the library that contains
the specific function that's failing doesn't have a problem.

**** End Quote ****

--
John Spencer
Access MVP 2002-2005, 2007
Center for Health Program Development and Management
University of Maryland Baltimore County
..

Paterson said:
I have one user (out of maybe 20) and when ever access tries to run a
certain
code, it throws an error. It happens in several different forms, and ONLY
on
this one machine. The code is:

Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Staff_ID] = " & Str(NZ(Me![Combo12],""))

When I hit debug it highlights the line: Set rs = Me.Recordset.Clone

This is all made by the command button wizard and works on all the other
machines. This machine also has the same copy of Access 2003 that
everybody
else has.

Any thoughts?
Click to expand...
 
yea I typed in the code wrong. It is 'Set rs = Me.RecordsetClone' in my form,
I just got it wrong. Thanks a lot though.

John Spencer said:
Shouldn't that be
Set rs = Me.RecordsetClone <<< Note the absence of the second period

However if this code is working on all but one user's computer, I suspect
that you may have a reference problem of some type. When code works on all
but one computer my first thought is missing or bad library reference.

Here are MVP Doug Steele's instructions for how to do check on or fix
reference problems.

*** Quote ***

Any time functions that previously worked suddenly don't, the first thing to
suspect is a references problem.

This can be caused by differences in either the location or file version of
certain files between the machine where the application was developed, and
where it's being run (or the file missing completely from the target
machine). Such differences are common when new software is installed.

On the machine(s) where it's not working, open any code module (or open the
Debug Window, using Ctrl-G, provided you haven't selected the "keep debug
window on top" option). Select Tools | References from the menu bar. Examine
all of the selected references.

If any of the selected references have "MISSING:" in front of them, unselect
them, and back out of the dialog. If you really need the reference(s) you
just unselected (you can tell by doing a Compile All Modules), go back in
and reselect them.

If none have "MISSING:", select an additional reference at random, back out
of the dialog, then go back in and unselect the reference you just added. If
that doesn't solve the problem, try to unselect as many of the selected
references as you can (Access may not let you unselect them all), back out
of the dialog, then go back in and reselect the references you just
unselected. (NOTE: write down what the references are before you delete
them, because they'll be in a different order when you go back in)

For far more than you could ever want to know about this problem, check out
http://www.accessmvp.com/djsteele/AccessReferenceErrors.html

Just so you know: the problem will occur even if the library that contains
the specific function that's failing doesn't have a problem.

**** End Quote ****

--
John Spencer
Access MVP 2002-2005, 2007
Center for Health Program Development and Management
University of Maryland Baltimore County
..

Paterson said:
I have one user (out of maybe 20) and when ever access tries to run a
certain
code, it throws an error. It happens in several different forms, and ONLY
on
this one machine. The code is:

Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Staff_ID] = " & Str(NZ(Me![Combo12],""))

When I hit debug it highlights the line: Set rs = Me.Recordset.Clone

This is all made by the command button wizard and works on all the other
machines. This machine also has the same copy of Access 2003 that
everybody
else has.

Any thoughts?
Click to expand...
Click to expand...
 
So did you check the references on the one machine where you are having
problems?

--
John Spencer
Access MVP 2002-2005, 2007
Center for Health Program Development and Management
University of Maryland Baltimore County
..

Paterson said:
yea I typed in the code wrong. It is 'Set rs = Me.RecordsetClone' in my
form,
I just got it wrong. Thanks a lot though.

John Spencer said:
Shouldn't that be
Set rs = Me.RecordsetClone <<< Note the absence of the second period

However if this code is working on all but one user's computer, I suspect
that you may have a reference problem of some type. When code works on
all
but one computer my first thought is missing or bad library reference.

Here are MVP Doug Steele's instructions for how to do check on or fix
reference problems.

*** Quote ***

Any time functions that previously worked suddenly don't, the first thing
to
suspect is a references problem.

This can be caused by differences in either the location or file version
of
certain files between the machine where the application was developed,
and
where it's being run (or the file missing completely from the target
machine). Such differences are common when new software is installed.

On the machine(s) where it's not working, open any code module (or open
the
Debug Window, using Ctrl-G, provided you haven't selected the "keep debug
window on top" option). Select Tools | References from the menu bar.
Examine
all of the selected references.

If any of the selected references have "MISSING:" in front of them,
unselect
them, and back out of the dialog. If you really need the reference(s) you
just unselected (you can tell by doing a Compile All Modules), go back in
and reselect them.

If none have "MISSING:", select an additional reference at random, back
out
of the dialog, then go back in and unselect the reference you just added.
If
that doesn't solve the problem, try to unselect as many of the selected
references as you can (Access may not let you unselect them all), back
out
of the dialog, then go back in and reselect the references you just
unselected. (NOTE: write down what the references are before you delete
them, because they'll be in a different order when you go back in)

For far more than you could ever want to know about this problem, check
out
http://www.accessmvp.com/djsteele/AccessReferenceErrors.html

Just so you know: the problem will occur even if the library that
contains
the specific function that's failing doesn't have a problem.

**** End Quote ****

--
John Spencer
Access MVP 2002-2005, 2007
Center for Health Program Development and Management
University of Maryland Baltimore County
..

Paterson said:
I have one user (out of maybe 20) and when ever access tries to run a
certain
code, it throws an error. It happens in several different forms, and
ONLY
on
this one machine. The code is:

Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Staff_ID] = " & Str(NZ(Me![Combo12],""))

When I hit debug it highlights the line: Set rs = Me.Recordset.Clone

This is all made by the command button wizard and works on all the
other
machines. This machine also has the same copy of Access 2003 that
everybody
else has.

Any thoughts?
Click to expand...
Click to expand...
Click to expand...
 
Back
Top