017　显示消息对话框（2）

◎内置函数：MsgBox（）函数

在VBA程序中，如果在某处需要通过用户的选择来执行以后的操作，可以使用MsgBox（）函数。

在MsgBox（）函数的第二个参数中可以设置消息对话框中显示的按钮类别等，然后使用If…Then…Else语句等根据对话框中反馈的按钮信息执行不同的操作。

使用MsgBox（）函数反馈信息的语法格式如下所示。

◎应用实例

素材\第1章\显示消息对话框（2）.accdb

本例需要在单击“F_消息对话框2”窗体中的“弹出提示信息”按钮，然后根据消息对话框中的内容选择执行相应的操作。

◎案例操作

01　在窗体中插入“弹出提示信息”按钮。

02　在代码窗口插入“cmd_提示_Click”事件过程。

03　在“cmd_提示_Click”事件过程中输入代码。

04　执行运行程序，查看程序运行效果。

◎过程源代码

源文件\第1章\显示消息对话框（2）.accdb

在事件过程中编写VBA代码，打开提示消息对话框，根据对话框反馈的结果执行相应的操作，具体的代码如下。

◎执行过程

保存编写的VBA代码，将“F_消息对话框2”窗体的视图模式切换到窗体视图，单击“弹出提示信息”按钮，然后选择单击“选择”对话框中的不同按钮，执行不同的操作，如图1-27所示。