![[07.jpg]](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiGIhCUNLiGFtovClmuSUsCQcjJNQEoGXw2Z9bYSC4pje-QDbgkKOwm5_8Jq2UNXvIxmUdKeTiH6s0daYEh09_WyBMtjarChJFW6xXZvalgSdLvACuud-xRBBRjb8kUiyOKM7gO/s1600/07.jpg)
Dirk Goldgar (Microsoft Access MVP) traced this problem back to faulty entries in the MSysAccessObjects table. He reports that the problem can be solved by deleting the faulty entries, and creating a valid primary key.
To use his code (at right):
1.弄個複製在另個file(當那個mdb不跑時) 2.開另個database，依下面敘完成模組的編寫，並執行該程式 3.重開access即可
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)
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
把這上面的資料貼入資料庫的「模組」，然後再打開來看「即時運算」的視窗，用「FixBadAOIndex("C:\...\")，"C:\...\"→是你的access放的路徑。
