Resolving “Microsoft Access has detected corruption…” Error Message in MS Access

To resolve the above error message and access the data stored in the Employee database, you will need to follow these steps:

1.      Create a blank database = “C:\ Recover_db.mdb”

2.      Close and exit.

3.      Create another blank database and navigate to Modules Tab

4.      Click on New and Paste the code provided below:

Dim db As DAO.Database

Set db = DAO.OpenDatabase("C:Corrupt_db.mdb")

Dim xtable As TableDef

For Each xtable In db.TableDefs

If Mid(xtable.Name, 1, 4) <> "MSys" Then

rSQL = "SELECT * INTO [" & xtable.Name & "] IN " & _

"'C:Recover_db.mdb'" & _

" FROM [" & xtable.Name & "]"

db.Execute rSQL

End If

Next xtable

MsgBox "Process Complete."

End Function

5.      Go to Menu Tools, select References, and scroll down and Select "Microsoft DAO 3.6 Object Library"

6.      Click OK

7.      In Module Window Click on Recover_db() Function

8.      Check database file names, after proper setup and press the F5 button

9.      Tables and data from corrupt database is recovered to new database

Another way to resolve the problem (as stated in the error message) is by using an inbuilt repair utility known as “Compact and Repair.” However, if the inbuilt repair utility fails to repair the Employee database, then you need to use advanced <a href="http://www.repair-access-file.com/">access repair</a> application. Such Access Database Repair tools employ powerful scanning algorithms to comprehensively recover and restore all Access (.accdb and .mdb) database files.