MS Access 2000 Error : CurrentDb from _Application Failed

Hi !

 I have developped a MS Access Application.

 In my computer it runs fine but when I put the MS Access Application in another PC I get a strange error :

 Error of Execution '-2147024770 (8007007e)'
 Method 'CurrentDb' of Object '_Application' failed

 Though, the PC has the same OS (Win 2000) and the same Access (2000).

When the application meet the CurrentDb error it causes the error.

  So may be it is because there is a conflict between Office XP and Access 2000, may be I need to check the System database or something else.

  Maybe the Vba module is corrupted.
 It is very important, could you help me, please ?
samuelpajilewskiAsked:
Who is Participating?
 
NetminderCommented:
Per recommendation, points refunded and question closed.

Netminder
CS Moderator
0
 
James ElliottManaging DirectorCommented:
What versions of Office are you using? 2000 and XP?

Can you post the script that is causing the error

Thanks

Jell
0
 
GriffonCommented:
Assuming that you have written VBA scripting to control the database then I would suggest changing from using the CurrentDB command that is a quick reference to using a full definition of the databases location. It might just be that the currentDB command is looking where the database is not.
0
Introducing Cloud Class® training courses

Tech changes fast. You can learn faster. That’s why we’re bringing professional training courses to Experts Exchange. With a subscription, you can access all the Cloud Class® courses to expand your education, prep for certifications, and get top-notch instructions.

 
dovholukCommented:
my guess is that you have a reference out of whack.  for instance, you might be referencing the Office 9 (2000) library instead of the Office 10 library (xp)

check your references and be sure that they are referring to the right versions...

dovholuk
0
 
samuelpajilewskiAuthor Commented:
Hi !

 There is the script  :

Dim dbs As Database
'Ouverture de la base M. Griffon and M. dovholuk

 I will try to put another command before using Currentdb :

 me.application.opencurrentdb("PathtomyDatabase")

 Maybe it will solve my pb.

 Also I will try :
me.application.opennewdb("Pathtomydatabase")

Thanks
Set dbs = CurrentDb

So the following code is not really interesting.

 I will try the solution of
0
 
NevaarCommented:
You've got a VBA reference problem. Check out the list of libraries when the code is halted on the second PC.
0
 
samuelpajilewskiAuthor Commented:
Hi !

 I tried to check the references of MSAccess.
 (Modules->Tools->References)

 So 5 libraries are loaded :
 Vba for Application
 Active X libraries
 MS Access Libraries (MSAC9.OLB something like that)
 2 others libraries.

 I have the same libraries selectioned in my PC where the application works. So it is not a pb of references, maybe the DAO or Access libraries are corrupted, but I don't know

 Any suggestion would be greatly appreciated
0
 
nico5038Commented:

No comment has been added lately, so it's time to clean up this TA.
I will leave a recommendation in Community Support that this question is:
 - PAQ'd and pts refunded
Please leave any comments here within the
next seven days.

PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER !

Nic;o)
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.