Office中国论坛/Access中国论坛

标题: 【Access技巧】隐藏菜单栏 [打印本页]

作者: 盗梦 时间: 2014-8-16 09:13
标题: 【Access技巧】隐藏菜单栏
本帖最后由盗梦于 2014-8-23 09:10 编辑

最近，看到有人在问如何隐藏菜单栏。我在这里总结一下。这个菜单栏分两种：
一种是旧版本的菜单栏（2003版本，及更早的版本）；
另一种是高版本的菜单栏，专业点的叫法是 Ribbon（2007版本，及之后更高的版本）。

设置菜单栏，可以用Docmd.ShowToolbar的方法。
而两种菜单栏在Access中是两个不同的对象，所以代码有区别。
旧版本：Docmd.ShowToolbar "Menu Bar",acToolbarNo 'acToolbarNo 是隐藏工具栏，显示用acToolbarYes
高版本：Docmd.ShowToolbar "Ribbon",acToolbarNo

当然，我们还可以把这两个写成一个通用的函数，可以隐藏和显示工具栏：

'-函数名：ShowMenuBar
'-作用：设置隐藏或显示菜单栏，兼容Access各个版本
'-参数：blnShow：布尔值，是否显示菜单栏
'-返回值：布尔值，设置成功返回True；反之，返回False
'-其他：作者：盗梦；创建日期：2014/08/16
Public Function ShowMenuBar(blnShow As Boolean) As Boolean
Dim intShow As Integer '根据blnShow，设置ShowToolbar第二个参数
Dim strToolName As String '工具栏的名字
'根据参数，设置是否可见
intShow = IIf(blnShow, acToolbarYes, acToolbarNo)
'根据Access版本，设置菜单栏的名字（2003版本号是11）
strToolName = IIf(Access.Version <= 11, "Menu Bar", "Ribbon")
'执行设置
On Error Resume Next
DoCmd.ShowToolbar strToolName, intShow
If Err = 0 Then ShowMenuBar = True '没有错误，说明执行成功
End Function

复制代码

[attach]54508[/attach]

觉得有帮助的话，就回帖顶一下。嘻嘻。有什么更好的方法，也讨论讨论。[握手]

作者: linlancxh 时间: 2014-8-16 10:23
好。经典之作

作者: 盗梦 时间: 2014-8-16 10:25

linlancxh 发表于 2014-8-16 10:23
好。经典之作

多谢夸奖

作者: offwhy2928 时间: 2014-8-16 11:47
点个"赞"

作者: yufj366 时间: 2014-8-16 22:30
还没入门，先点个赞

作者: prosys 时间: 2014-8-17 10:05
已测试，学习了

作者: zwp 时间: 2014-8-23 07:57
如果能配有图片说明就更好了呵呵

作者: 盗梦 时间: 2014-8-23 09:10

zwp 发表于 2014-8-23 07:57
如果能配有图片说明就更好了呵呵

图片已附上

作者: zwp 时间: 2014-8-23 09:23

盗梦发表于 2014-8-23 09:10
图片已附上

真是认真的人呀，赞。这样大家就明白了呵呵。

作者: cfedf 时间: 2014-10-28 07:38
还在学习中，没入门了。

作者: of384 时间: 2015-3-12 12:24
试用了

作者: lxxgg92 时间: 2015-3-18 22:42
感谢分享哈

作者: zpy2 时间: 2015-3-22 06:18
点个"赞"

作者: 522650696 时间: 2016-3-29 15:38

还在学习中，没入门了。

作者: xlb004 时间: 2016-7-8 07:36
11111111111111111111

作者: zshining 时间: 2016-7-18 12:22
必须点赞真厉害

作者: yuyilh 时间: 2016-8-5 15:58
谢谢，初入门。。。

作者: 李力军2 时间: 2016-8-8 16:03
我试一下

作者: access新新新手 时间: 2016-8-12 17:18
谢谢分享

作者: zshining 时间: 2016-8-30 20:39
在shift+accdb 能实现，在accde或者accdb文件就无法隐藏求大神帮忙解决

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)