Solved

MS Access 2000 Error : CurrentDb from _Application Failed

Posted on 2002-06-11
8
388 Views
Last Modified: 2007-12-19
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 ?
0
Comment
Question by:samuelpajilewski
8 Comments
 
LVL 12

Expert Comment

by:James Elliott
ID: 7069393
What versions of Office are you using? 2000 and XP?

Can you post the script that is causing the error

Thanks

Jell
0
 
LVL 2

Expert Comment

by:Griffon
ID: 7069532
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
 
LVL 8

Expert Comment

by:dovholuk
ID: 7069673
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
Use Case: Protecting a Hybrid Cloud Infrastructure

Microsoft Azure is rapidly becoming the norm in dynamic IT environments. This document describes the challenges that organizations face when protecting data in a hybrid cloud IT environment and presents a use case to demonstrate how Acronis Backup protects all data.

 

Author Comment

by:samuelpajilewski
ID: 7069761
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
 
LVL 4

Expert Comment

by:Nevaar
ID: 7069796
You've got a VBA reference problem. Check out the list of libraries when the code is halted on the second PC.
0
 

Author Comment

by:samuelpajilewski
ID: 7070915
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
 
LVL 54

Expert Comment

by:nico5038
ID: 7242016

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
 
LVL 5

Accepted Solution

by:
Netminder earned 0 total points
ID: 7269238
Per recommendation, points refunded and question closed.

Netminder
CS Moderator
0

Featured Post

Ransomware: The New Cyber Threat & How to Stop It

This infographic explains ransomware, type of malware that blocks access to your files or your systems and holds them hostage until a ransom is paid. It also examines the different types of ransomware and explains what you can do to thwart this sinister online threat.  

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Overview: This article:       (a) explains one principle method to cross-reference invoice items in Quickbooks®       (b) explores the reasons one might need to cross-reference invoice items       (c) provides a sample process for creating a M…
It’s been over a month into 2017, and there is already a sophisticated Gmail phishing email making it rounds. New techniques and tactics, have given hackers a way to authentically impersonate your contacts.How it Works The attack works by targeti…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

820 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