以IF语句作为参数调用Access VBA函数

Question

假设我具有以下MS Access 2016功能：

Public Function TestFunction(ByVal strTest As String) As String

是否有一种类似于以下方法的函数调用方法：

strReturn = TestFunction(If a = 1 Then "Apple" Else "Orange")

我想编写尽可能紧凑的东西，并避免为调用编写多行，例如：

If a = 1 Then strArg = "Apple" Else strArg = Orange
strReturn = TestFunction(strArg)

Answer 1

仅使用IIf，例如：

IIf

但是强烈不建议这样做。
还请注意，根据测试表达式的结果，在返回适当的值之前，strReturn = TestFunction(IIf(a=1,"Apple","Orange"))
将始终对IIf和IIf参数进行求值，有时会导致不希望的结果。
例如，即使将永远不会返回then表达式，在立即窗口（Ctrl
 + 
G）中评估以下表达式也会导致被零除的错误。else