這個東西是我這輩子第一次花錢買的軟體
它有多神奇呢
它的神奇就是沒什人知道罷了
就比如excel實在是神奇之物
可是就是太多人會用就變廢物了
愛因斯坦說的
創造力不過是會隱藏資源罷了
不過我這邊一說也不會有很多人去了解它
那就這樣吧
嗯
他是可以讓電腦的很多東西自動化的神奇之物
比如
自動剪貼
自動開關機
自動留言
自動你想在電腦上自動的東西
重點是讓它去做時,指令是不複雜的
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放的路徑。