vba access 隐藏显示功能区

最新推荐文章于 2024-09-15 16:54:15 发布

雨落星辰C

最新推荐文章于 2024-09-15 16:54:15 发布

阅读量190

点赞数

分类专栏： vba 文章标签：后端

本文链接：https://blog.csdn.net/qq_34276316/article/details/131850809

版权

vba 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

这段代码主要用于在Access应用中隐藏Ribbon和NavigationPane。通过DoCmd.ShowToolbar命令关闭Ribbon工具栏，然后使用NavigateTo和RunCommand命令进一步隐藏窗口。当发生错误时，程序会跳转到HarunErrHandler进行错误处理，显示错误信息。要重新显示这些元素，只需调用相应的DoCmd命令即可。

摘要由CSDN通过智能技术生成

隐藏功能区：

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"

显示功能区：

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

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

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