access 隐藏导航窗格(左边侧栏)

Function 隐藏与显示导航空格(ByVal f As Boolean)     'true 显示,false隐藏
    If f Then
        DoCmd.SelectObject acForm, , True
    Else
        DoCmd.SelectObject acForm, , True
        DoCmd.RunCommand acCmdWindowHide
    End If
End Function

 2024-05-19补充

有登陆窗口的朋友需要在Load事件中,第一时间先设置这个效果

Private Sub Form_Load()
    '隐藏右侧导航栏
    DoCmd.SelectObject acForm, , True
    DoCmd.RunCommand acCmdWindowHide
    '隐藏工具栏
    DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub

正常流程是登陆成功 - 显示工作窗体,如果你在登陆成功这一步再去设置隐藏导航栏,有可能会把工作窗体给隐藏起来或者是导航栏隐藏不成功.