菜单/工具栏
【Access技巧】-隐藏菜单栏
2015-01-03 16:39:58

最近，看到有人在问如何隐藏菜单栏。我在这里总结一下。这个菜单栏分两种： 一种是旧版本的菜单栏（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

 

   

首页