Inconsistent State - All VBA Missing

[PicoTTS]

Hi,



I am having a huge issue where my access file seems to have been corrupted. When I try to open the file I get the following message:

"Microsoft Access has detected that this database is in an inconsistent state and will attempt to recover the database......"

After access recovers the file, all the tables, queries, forms, etc. are there but all the VBA I had is gone. I have tried to import them into a brand new database but it still comes up empty. I stupidly did not make a backup and need a way to retrieve the VBA code in the corrupted file. I don't really care about the data in the tables but I need to VBA. Any ideas?

[ranman256]

It is dead. I hope you have backups.
( i backup daily)

[ssanfu]

Looks like you have learned The Three Rules of Computing like I did - the hard way!

The Three Rules of Computing
#1) - Backup
#2) - Backup
and
.
#3) BACKUP!!



Many years ago, I had typed for over 3 hours without saving or creating a backup.
Just one small static spark scrambled the memory (no hardware damage!) and ALL of the code was gone. (My Apple II+)
Ever since, I save after each change and frequently close out of Access and make a backup every 10 to 15 minutes (depending on how much I have added/changed the code/forms/reports).


Unfortunately, if you do not have any backups, you will have to re-create the VBA........

[CJ_London]

I don't really care about the data in the tables

this also sounds like a potential contributory factor. If the tables get corrupted, you can lose the whole thing. Better to split the db and halve the risk. Only thing you might be able to do is create a new db and import each object from the original db (not the backup created by Access) one by one, ensuring you make a copy before the next import - One or more will fail in which case revert to the latest 'clean' copy, skip that object and carry on with the next one. All failed objects will need to be recreated manually. Or the db is so badly corrupted and you won't even be able to open it to copy objects.