【问题标题】：MSAccess: Hiding Navigation Pane, and Menu Bar Using VBAccessMS Access：使用 VBA 访问隐藏导航窗格和菜单栏
【发布时间】：2021-10-03 19:39:16
【问题描述】：

有没有办法在使用 MSAccess VB 启动时隐藏导航窗格和菜单栏？重点是消除使用 MSAccess 解决方案的用户的“干扰”。

图 A：隐藏导航窗格和菜单栏

【问题讨论】：

标签： vba forms ms-access menu ms-access-2010

【解决方案1】：

选项 1

一种简单的方法是将*.accdb 重命名为*.accdr。

然后它将以运行时模式打开，没有功能区栏和导航窗格。

选项2

通过Microsoft Access的完整命令行和数据库和命令行参数/runtime调用数据库，然后它也将在运行时模式下打开。

例子：

"c:\Program Files (x86)\Microsoft Office\Office15\msaccess.exe" "c:\data\yourDatabase.accdb" /runtime

（Microsoft Access 的路径因您的 Access 安装而异（msi 或 c2r、x86 或 x64、access 版本、自定义安装文件夹...）

选项 3

您可以通过代码隐藏它们：

导航窗格：https://stackoverflow.com/a/47519552/7658533
功能区：https://stackoverflow.com/a/35582657/7658533

【讨论】：

运行时模式真是太棒了——这对我也很有效。谢谢一百万！

【解决方案2】：

我个人使用以下代码将导航窗格和功能区隐藏到我的数据库中。你也可以试试-

Private Sub Form_Load()
On Error GoTo HarunErrHandler
    
'******************* Hide Ribbon and Navigation Pane ***************************

    DoCmd.ShowToolbar "Ribbon", acToolbarNo
    Call DoCmd.NavigateTo("acNavigationCategoryObjectType")
    Call DoCmd.RunCommand(acCmdWindowHide)

'*******************************************************************************

Exit Sub
HarunErrHandler:
MsgBox "Error Number: " & Err.Number & vbCrLf & Err.Description, vbInformation, "Error"
End Sub

如果您需要再次显示它们，请使用以下代码。

'******************* Show Ribbon and Navigation Pane ***************************

    DoCmd.ShowToolbar "Ribbon", acToolbarYes
    Call DoCmd.SelectObject(acTable, , True)

'*******************************************************************************

【讨论】：