自定义函数:显示与隐藏工具栏-Natsume Takashi
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


自定义函数:显示与隐藏工具栏

发表时间:2018/11/5 12:38:47 评论(0) 浏览(6163)  评论 | 加入收藏 | 复制
   
摘 要:自定义函数:显示与隐藏工具栏
正 文:

一、问题描述:

老师 我知道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)  隐藏工具栏


Access软件网交流QQ群(群号:198465573)
 
 相关文章
开发平台自定义函数LoadRecord的使用  【牛魔王  2017/10/29】
access中自定义函数十进制十六进制之间的转换  【鸵鸟  2018/5/8】
自定义函数:判断一个窗体是否是以子窗体的形式打开  【Natsume Takashi   2018/9/17】
自定义函数:判断当前数据库的链接表是否全是来自access  【Natsume Takashi   2018/10/14】
自定义函数:用代码判断access文件是不是mde文件  【Natsume Takashi   2018/10/15】
常见问答
技术分类
相关资源
文章搜索
关于作者

Natsume Takashi

文章分类

文章存档

友情链接