Private Sub 隐藏工具栏_Click() DoCmd.SelectObject acForm, , True DoCmd.RunCommand acCmdWindowHide End Sub Private Sub 不隐藏工具栏_Click() DoCmd.SelectObject acForm, , True ' DoCmd.RunCommand acCmdWindowUnhide End Sub