我繼承了Access數據庫,並試圖與此錯誤消息的時候打開它示數出來:「無效過程或參數」錯誤
運行時錯誤「5」:
無效過程或參數
我已將其被曝在VBE下面的代碼:
Set cbMainMenu = CommandBars.Add(Name:="OIG Main Menubar", _
Position:=msoBarTop, MenuBar:=True, Temporary:=True)
我從部分普遍增加了一個檢查在此之前oogling研究,但它似乎沒有工作,因爲它仍然示數(有和沒有錯誤處理的變化):
On Error Resume Next
Application.CommandBars(cbMainMenu).Delete
On Error GoTo 0
任何人有任何想法,或者可以點我在正確的方向來解決這個錯誤?我會一直保持冷靜一點。
編輯:
這似乎並非是主要的,最初的錯誤。我現在正在努力尋找它,如果/當我找到它,它將重新發布。
EDIT2:
這是什麼是真正導致錯誤,要環顧四周,看看我能照顧它:
Set cbcToolsDBCompact = cbpToolsMenu.Controls.Add(Id:=CommandBars("Menu Bar").Controls("Tools").CommandBar.Controls("Database Utilities").CommandBar.Controls("Compact And Repair Database...").Id)
EDIT3:更改上面的代碼到:
Set cbcToolsDBCompact = cbpToolsMenu.Controls.Add(Id:=2071)
修復了這個問題,並且comact/repair選項在那裏現在。 (甚至可以)。由於沒有人真的發佈了具體的答案,除了在評論中,我將在底部使用「回答自己的問題」選項,這對未來有一個答案。另外,我發現代碼爲這個位置:
MS Access: how to compact current database in VBA
打開數據庫時,按住** shift **,然後嘗試編譯它,看看是否可以識別行。如果編譯沒有給出錯誤,那麼你可以依次打開每個表單來查看哪一行實際上是錯誤的 – SeanC 2012-08-10 14:26:57
嘗試將'Application.CommandBars(cbMainMenu).Delete'改爲'Application.CommandBars(「OIG Main Main Menubar」) .Delete' – talbright 2012-08-10 14:30:57
我在想這不是最初的錯誤,因爲我已經做了一些嘗試,並且DB使它成爲我在此之後調試的一些代碼。多去尋找一些東西,看看實際發生的情況。感謝你目前的幫助。 – 2012-08-10 14:41:00