ms-access - "Invalid procedure or argument"错误

Question

我继承了一个 Access 数据库，但在尝试打开时出现以下错误消息:

Run-time error '5':
Invalid procedure or argument

我已将其追溯到 VBE 中的以下代码:

Set cbMainMenu = CommandBars.Add(Name:="OIG Main Menubar", _
Position:=msoBarTop, MenuBar:=True, Temporary:=True)

我在此之前添加了一些来自谷歌搜索的检查，但它似乎不起作用，因为它仍然出错(有和没有错误处理更改):

    On Error Resume Next
    Application.CommandBars(cbMainMenu).Delete
    On Error GoTo 0

任何人有任何想法，或者可以指出正确的方向来修复此错误？我将继续努力。

编辑:

这似乎不是主要的初始错误。我现在正在努力寻找它，如果/当我找到它时会重新发布。

编辑2:

这才是真正导致错误的原因，我将环顾四周，看看我是否可以解决它:

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)

修复了这个问题，现在有压缩/修复选项。 (它甚至可以工作)。由于除了评论之外没有人真正发布具体答案，所以我将使用底部的“回答你自己的问题”选项，以便将来有答案。另外，我在这里找到了代码:

MS Access: how to compact current database in VBA

Answer 1

我猜这是一个引用问题。

在 Visual Basic IDE 中，单击“工具/引用”:

在弹出的对话框中，查找Microsoft Office x.0 Object Library:

它旁边有“失踪”二字吗？如果是，那是你的问题。

取消选中缺少的引用并向下滚动并检查与您的 Office 版本一起安装的引用。