在VBA程序中,如果需要根据判断的结果返回不同的值,可以使用IIF()函数。
使用IIF函数根据判断结果输出不同值的语法格式如下所示:
IIF([条件表达式],[条件为真时返回值],[条件为假时返回值])
本例需要在单击“F_判断”窗体中的“判断”按纽时,判断文本框中输入的数值是否为正数,并使用消息对话框返回判断的结果。
1、在窗体中插入文本框和“判断”按纽
2、在代码窗口输入'cmd_判断_click'事件过程。
3、在'cmd_判断_click'事件过程中输入代码
4、运行程序,查看程序的运行效果。
在事件过程中编写VBA代码,判断数据是否为正数,使用消息对话框输出判断结果,具体的代码如下所示。
'根据判断结果,返回不同的结果
Private Sub cmd_输入_Click()
Dim Str As String
'判断输入数据是否大于0,并返回字符串表示结果
Str = IIf(txt_数据 >= 0, '您输入的数是正数', '您输入的数不是正数')
'通过消息对话框输出结果字符串
MsgBox Str
End Sub
文章来源:ACCESS VBA适用范例大辞典
联系客服