hi,大家好呀!
今天想着给大家分享点啥呢?最近几个月断更的有些“勤快”了,那就给大家分享个几行代码。
当我们在access中开发完成后,为了让我们的系统更加的像一个系统,我们会把access的功能区,导航区,状态栏都给隐藏起来。一般我们都是这么操作的。
01、隐藏状态栏
我们先来隐藏导航栏。首先,我们要知道哪里是状态栏,如下图:
手工配置:
打开Access选项(选项的位置在文件——>选项),选择当前数据,把显示状态栏的勾选去掉,然后点击确定,最后重新启动一下Access。
如果用代码:
'显示
Application.SetOption "Show Status Bar", True
'隐藏
Application.SetOption "Show Status Bar", False
02、隐藏功能区
功能区是哪一块呢?如下图,下图就是Access的功能区,如果要隐藏,那我们也需要写一行代码
代码:
'隐藏功能区
DoCmd.ShowToolbar "Ribbon", acToolbarNo
'显示功能区
DoCmd.ShowToolbar "Ribbon", acToolbarYes
03、隐藏导航区
最后我们来看一下隐藏导航区。那哪里是导航区呢,如下图:
手工配置:
还是一样先打开Access选项,选择当前数据,滚轮往下滚,找到显示导航窗格,把勾选去掉,然后点击确定,最后重新启动一下Access。
代码:
'隐藏
DoCmd.SelectObject acForm, , True
DoCmd.RunCommand acCmdWindowHide
'显示
DoCmd.SelectObject acForm, , True
DoCmd.RunCommand acCmdWindowUnhide
全部隐藏的效果是这样的。这样就只显示自己做的窗体。
好了,大家快去试一下吧。