Access隐藏工具栏，隐藏状态栏

SemiconductorPhysics

已于 2023-04-23 18:22:59 修改

阅读量789

点赞数

文章标签： Access

于 2023-04-21 23:00:00 首次发布

本文链接：https://blog.csdn.net/Jelly_Zhou/article/details/130256674

版权

这段代码主要展示了如何使用Access的DoCmd对象来控制用户界面，包括选择表单、显示/隐藏Ribbon工具栏以及隐藏侧边栏。此外，还涉及了条件判断，用于显示或隐藏系统，并且提到了隐藏状态栏的步骤，强调了操作的影响。

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

DoCmd.SelectObject acForm, , True
DoCmd.ShowToolbar "Ribbon", acToolbarYes
DoCmd.ShowToolbar "Ribbon", acToolbarNo

DoCmd.SelectObject acForm, , True
DoCmd.RunCommand acCmdWindowHide




DoCmd.SelectObject acForm, , True
DoCmd.ShowToolbar "Ribbon", acToolbarNo 隐藏工具栏
DoCmd.RunCommand acCmdWindowHide 隐藏侧边栏


If Me.Command8.Caption = "查看系统" And Me.Text9.Value = "xxxx" Then
DoCmd.SelectObject acForm, , True
Me.Command8.Caption = "隐藏系统"
DoCmd.RunCommand acCmdDatabaseWindow
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdDesignView
Exit Sub
Else
MsgBox ("密码错误")
End If
If Me.Command8.Caption = "隐藏系统" Then
DoCmd.SelectObject acForm, , True
DoCmd.RunCommand acCmdWindowHide
Me.Command8.Caption = "查看系统"
Exit Sub
End If

隐藏状态栏

打开Access数据库并进入设计视图。

点击“选项”按钮，在弹出的菜单中选择“当前数据库”。

在“当前数据库”选项卡下，找到“导航选项”部分。

在“导航选项”部分中，取消选中“显示状态栏”复选框。

点击“确定”按钮保存更改并关闭选项对话框。

返回主视图，你将发现状态栏已经被隐藏了。

请注意，隐藏状态栏可能会影响用户对数据库的操作和导航，因此在进行此操作之前，应该慎重考虑。