![Access VBA活用范例手册](https://wfqqreader-1252317822.image.myqcloud.com/cover/199/26178199/b_26178199.jpg)
上QQ阅读APP看书,第一时间看更新
◎内置函数
016 显示消息对话框(1)
◎内置函数:MsgBox()函数
在VBA程序中,如果需要程序执行到某处或者满足某个条件,打开消息对话框进行提示,可以使用系统内置的MsgBox()函数。
MsgBox()函数用作提示信息时的语法格式如下所示。
![](https://epubservercos.yuewen.com/11B0D1/14615820604489806/epubprivate/OEBPS/Images/img00052002.jpg?sign=1739138754-yFdSeAFNhpWw4ytqhgDc8tYwpbpeQuTn-0-ad18dc30f196802856018ee3fe66c798)
MsgBox()函数也可以设置提示信息框的按钮,但是在当作提示信息使用时,使用默认按钮即可。
◎应用实例
素材\第1章\显示消息对话框(1)递.accdb
本例需要在单击“F_消息对话框1”窗体中的“弹出提示信息”按钮时,打开一个仅起提示作用的对话框。
◎案例操作
01 在窗体中插入“弹出提示信息”按钮。
02 在代码窗口插入“cmd_提示_Click”事件过程。
03 在“cmd_提示_Click”事件过程中输入代码。
04 执行运行程序,查看程序运行效果。
◎过程源代码
源文件\第1章\显示消息对话框(1).accdb
在事件过程中编写VBA代码,打开提示消息对话框,其具体的VBA代码如下。
![](https://epubservercos.yuewen.com/11B0D1/14615820604489806/epubprivate/OEBPS/Images/img00053001.jpg?sign=1739138754-1spmef7V2rCF2QWNjqM5ZiGL6ihb2wB3-0-907e0092ba440c5b08e0a88943f4c968)
◎执行过程
保存编写的VBA代码,将“F_消息对话框1”窗体的视图模式切换到窗体视图,单击“弹出提示信息”按钮,如图1-26所示。
![](https://epubservercos.yuewen.com/11B0D1/14615820604489806/epubprivate/OEBPS/Images/img00053002.jpg?sign=1739138754-lo0XHxRukTQrAckUVzr1JQCigN6AV3bv-0-13c264f892ab62e5c2aa57b15dc4e775)
图1-26 使用消息对话框作为提示信息