一、问题描述:

老师 我知道DoCmd.ShowToolbar "Ribbon", acToolbarYes  显示工具栏

                DoCmd.ShowToolbar "Ribbon", acToolbarNo  隐藏工具栏

我想把它写成自定义函数调用   可是我是个大菜鸟   老师你能帮帮我吗？

二、解答:

可以参考如下写法 函数如下:

Public Function ShowRibbon(Show As Boolean)
    If Show Then
        DoCmd.ShowToolbar "Ribbon", acToolbarYes
    Else
        DoCmd.ShowToolbar "Ribbon", acToolbarNo
    End If
End Function

使用例子 ：

ShowRibbon(true)  显示工具栏

ShowRibbon(false)  隐藏工具栏