'隐藏状态栏代码
Application.SetOption "Show Status Bar", False
'显示状态栏代码
Application.SetOption "Show Status Bar", True
'隐藏左侧导航窗格
DoCmd.SelectObject acForm, , True
DoCmd.RunCommand acCmdWindowHide
'显示左侧导航窗格
DoCmd.SelectObject acForm, , True
Application.SetOption "Show Status Bar", False
'显示状态栏代码
Application.SetOption "Show Status Bar", True
'隐藏左侧导航窗格
DoCmd.SelectObject acForm, , True
DoCmd.RunCommand acCmdWindowHide
'显示左侧导航窗格
DoCmd.SelectObject acForm, , True
