Here's a small routine to list all indexes in all your tables.
Code:
Sub IndexesAllTables()
Dim db As dao.Database
Dim tdf As dao.TableDef
Dim idx As index
10 On Error GoTo IndexesAllTables_Error
20 Set db = CurrentDb
30 For Each tdf In db.TableDefs
40 Debug.Print tdf.name; " " & tdf.Indexes.Count
50 For Each idx In tdf.Indexes
60 Debug.Print " ---- " & idx.name & " " & IIf(idx.Primary, "Primary.", "Not PK")
70 Next idx
80 Next tdf
90 On Error GoTo 0
100 Exit Sub
IndexesAllTables_Error:
110 MsgBox "Error " & Err.number & " on Line " & ERL & " (" & Err.Description & ") in procedure IndexesAllTables of Module AWF_Related"
End Sub
It sounds like you may have some corruption -- just a guess.