☰

工具栏自定义下缺少 Microsoft Access 2003 菜单栏

tag-icon • tag-icon microsoft-access
工具栏自定义下缺少 Microsoft Access 2003 菜单栏

上次我试图隐藏现有数据库中的菜单栏。

我在模块中添加了从互联网上找到的代码。但现在当我启动 Access 时，我找不到菜单栏，而我通常可以在菜单栏中看到文件、编辑等。

我尝试恢复默认设置，在自定义工具栏下找不到菜单栏。知道发生了什么吗？这是从网站添加的：

Dim i
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i

我试过了，但是问题没有解决。困惑:(

答案1

来自此 Microsoft 支持文章：

重置 Access 2003 中的工具栏

重要提示：如果将 Access 2003 中的工具栏重置为其原始设置，则可能会丢失在工具栏中实现的自定义更改。

  1. 启动 Access 2003。
  2. 在“工具”菜单上，单击“自定义”。
  3. 在工具栏选项卡上，单击以选中自定义对话框中的菜单栏复选框。
  4. 单击“重置”，然后单击“确定”。
  5. 单击以选中数据库复选框，单击重置，然后单击确定。
  6. 单击“关闭”。

答案2

要恢复所有菜单，你只需要更改代码，使其显示“true”而不是“false”

点我

对于 i = 1 到 CommandBars.Count

命令栏(i).启用 = 真的

接下来我

希望有帮助

答案3

我终于搞明白了！右键单击页面顶部的工具栏，出现自定义框。单击属性...弹出“工具栏属性”。在选定工具栏的顶部，选择菜单栏，然后​​单击底部的恢复默认值。菜单栏应该会重新出现在屏幕顶部。希望这对您有所帮助！

答案4

这对我有用：

commandbars("menu bar").Reset
commandbars("menu bar").Enabled = True
commandbars("menu bar").Visible = True

相关内容