ACCESS【VBA】：019根据条件表达式的结果返回不同值

根据条件表达式的结果返回不同值

内置函数：IIF函数

在VBA程序中，如果需要根据判断的结果返回不同的值，可以使用IIF()函数。

使用IIF函数根据判断结果输出不同值的语法格式如下所示：

IIF([条件表达式],[条件为真时返回值],[条件为假时返回值])

实例操作

本例需要在单击“F_判断”窗体中的“判断”按纽时，判断文本框中输入的数值是否为正数，并使用消息对话框返回判断的结果。

1、在窗体中插入文本框和“判断”按纽

2、在代码窗口输入'cmd_判断_click'事件过程。

3、在'cmd_判断_click'事件过程中输入代码

4、运行程序，查看程序的运行效果。

执行代码

在事件过程中编写VBA代码，判断数据是否为正数，使用消息对话框输出判断结果，具体的代码如下所示。

VBA代码

'根据判断结果，返回不同的结果

Private Sub cmd_输入_Click()

    Dim Str As String

    '判断输入数据是否大于0，并返回字符串表示结果

    Str = IIf(txt_数据 >= 0, '您输入的数是正数', '您输入的数不是正数')

    '通过消息对话框输出结果字符串

    MsgBox Str

End Sub

文章来源：ACCESS VBA适用范例大辞典