To resolve the above error message and access the data stored in the 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 database, then you need to use advanced Access Repair application as Stellar Phoenix Access Recovery Software.