access vba 用代码隐藏隐藏左边导航栏

Private Sub 隐藏工具栏_Click()

DoCmd.SelectObject acForm, , True

DoCmd.RunCommand acCmdWindowHide

End Sub

Private Sub 不隐藏工具栏_Click()

DoCmd.SelectObject acForm, , True

' DoCmd.RunCommand acCmdWindowUnhide

End Sub