Can't successfully repair DB what now??

J

Janette

Hi,

I am desparate not to have lost several days worth of development. My adp
database file wont open. I get a Microsoft message, wanting to send an error
report. It suggests repair open database and restart ms access. Which I let
it do, and then it comes up with the same message again.

Is there any way of getting access to the VB code at the very least, so I
can copy it into an old version and continue?

HELP!!!!

Thanks
Janette
 
T

Tony Toews

Janette said:
I am desparate not to have lost several days worth of development. My adp
database file wont open. I get a Microsoft message, wanting to send an error
report. It suggests repair open database and restart ms access. Which I let
it do, and then it comes up with the same message again.
Click to expand...

Try importing into a new MDB.

For more information on corruption including possible causes,
determining the offending PC, retrieving your data, links, official MS
KB articles and a list of vendors who state they can fix corruption
see the Microsoft Access Corruption FAQ at
http://www.granite.ab.ca/access/corruptmdbs.htm

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
 
A

Arvin Meyer [MVP]

Try creating a new empty ADP file and importing all the objects from your
file.

There are several other methods which might be of help but they all use DAO,
which doesn't work in an ADP. You might be able to use the code on my
website to read the objects into a text file, then import them into an MDB.
From there you can import them into an ADP file. Have a look at:

http://www.datastrat.com/Code/DocDatabase.txt

FIRST MAKE A COPY. You'll need set a reference to DAO and change:

Dim dbs As Database
Dim cnt As Container
Dim doc As Document
Dim i As Integer

Set dbs = CurrentDb()

to:

Dim dbs As DAO.Database
Dim cnt As DAO.Container
Dim doc As DAO.Document
Dim i As Integer

Set dbs = 'Full path to the corrupt database

Good luck,
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access
 
J

Janette

Thanks for both of your help. In the end, I found that if I removed myself
from the network, hence the adp couldn't access any of the SQL Server
database, I was able to open the file and access the VBA code. I still don't
know what caused the corruption, but I will be even more diligent with more
frequent backups than previously.

Thanks again
Janette
 
Top