Question : MSAccess2007 error " [] is not an index in this table."

I have a very important database that is extremely important (as all are) but when I try to open it I get a message that states "'ID' is not an index in this table." I must click 112 times (I suppose the number of tables in my DB. The messages change back and forth, at various intervals, between the 'ID' message and one that says "'ParentIdName' is not an index in this table. After 112 button clicks I can then select another database. I tried one suggestion I found in the KnowledgeBase by attempting to import tables from my DB into a new database. All I get is the 112 button pushes again. I checked the web a found a solution for Access2003; I copied the code into a 2007 Mudule and ran it, but it stopped at the database name.("Set dbBad = DBEngine.OpenDatabase(BadDBPath)"

That code is attached. Unfortunately, my backup is also corrupted so I am desperate for a solution.

Thanks, Ray

Code Snippet:

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

           
           
             Sub FixBadAOIndex(BadDBPath As String)
    '  is the path to the corrupt database.
    Dim dbBad As DAO.Database
    Dim tdf As DAO.TableDef
    Dim ix As DAO.Index
 
    Set dbBad = DBEngine.OpenDatabase(BadDBPath)  'Stops here when run
    dbBad.Execute "DELETE FROM MSysAccessObjects " & _
        "WHERE ([ID] Is Null) OR ([Data] Is Null)", _
        dbFailOnError
    Set tdf = dbBad.TableDefs("MSysAccessObjects")
    Set ix = tdf.CreateIndex("AOIndex")
    With ix
        .Fields.Append .CreateField("ID")
        .Primary = True
    End With
    tdf.Indexes.Append ix
    Set tdf = Nothing
    dbBad.Close
    Set dbBad = Nothing
End Sub

           
         

Open in New Window Select All

Answer : MSAccess2007 error " [] is not an index in this table."

Have you tried a Compact and Repair ?

If that fails, I suggest you contact a repair service

http://www.vb123.com/fixaccess/ ' Recommend you try this first.

>> Testimonial: http://www.experts-exchange.com/Microsoft/Development/MS_Access/Q_23740208.html

http://www.accessdatabaserepair.com/

http://www.exefind.com/advanced-access-repair-P1475.html

http://accesstools.narod.ru

mx