MS Access：使用 VBA 访问隐藏导航窗格和菜单栏
MSAccess: Hiding Navigation Pane, and Menu Bar Using VBAccess
有没有办法在使用 MSAccess VB 启动时隐藏导航窗格和菜单栏？重点是消除使用 MSAccess 解决方案的用户的“干扰”。
图 A：隐藏导航窗格和菜单栏
选项 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
您可以通过代码隐藏它们：
- 导航窗格：
- 丝带：
我个人使用以下代码将导航窗格和功能区隐藏到我的数据库中。你也可以试试-
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)
'*******************************************************************************
有没有办法在使用 MSAccess VB 启动时隐藏导航窗格和菜单栏？重点是消除使用 MSAccess 解决方案的用户的“干扰”。
图 A：隐藏导航窗格和菜单栏
选项 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
您可以通过代码隐藏它们：
- 导航窗格：
- 丝带：
我个人使用以下代码将导航窗格和功能区隐藏到我的数据库中。你也可以试试-
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)
'*******************************************************************************