Eval 函数

备注

可以在窗体或报表上的 计算控件 、宏或模块中使用 Eval 函数。 Eval 函数返回字符串或数值类型的 Variant。

参数 stringexpr 必须是存储在字符串中的表达式。 如果向 Eval 函数传递不包含数值表达式或函数名称但仅包含简单文本字符串的字符串，则会发生 运行时错误 。 例如， Eval("Smith") 会导致错误。

可以使用 Eval 函数来确定存储在控件的 Value 属性中的值。 以下示例将包含对控件的完整引用的字符串传递给 Eval 函数。 然后，它会在对话框中显示控件的当前值。

Dim ctl As Control
Dim strCtl As String
Set ctl = Forms!Employees!LastName
strCtl = "Forms!Employees!LastName"
MsgBox ("The current value of " & ctl.Name & _
    " is " & Eval(strCtl))

可以使用 Eval 函数访问在 Visual Basic for Applications (VBA) 模块中通常不可用的表达式运算符。 例如，不能使用 SQL 运算符 Between...和 或 In 直接在代码中，但可以在传递给 Eval 函数的表达式中使用它们。

下一个示例确定 Orders 窗体上的 ShipRegion 控件的值是否是几个指定的状态缩写之一。 如果字段包含其中一个缩写， intState 将为 True (-1) 。 请注意，使用单引号 ( ) 将字符串包含在另一个字符串中。

Dim intState As Integer
intState = Eval("Forms!Orders!ShipRegion In " _
    & "('AK', 'CA', 'ID', 'WA', 'MT', 'NM', 'OR')")

查询示例

VBA 示例

以下示例假定你有一系列 50 个函数，这些函数定义为 A1、A2 等。 此示例使用 Eval 函数调用系列中的每个函数。

Sub CallSeries()
    Dim intI As Integer
    For intI = 1 To 50
        Eval("A" & intI & "()")
    Next intI
End Sub

下一个示例触发 Click 事件，就像用户单击窗体上的按钮一样。 如果按钮的 OnClick 属性的值以等号开头 (=) ，表示它是函数的名称， 则 Eval 函数将调用函数，这等效于触发 Click 事件。 如果值不以等号开头，则该值必须命名宏。 DoCmd 对象的 RunMacro 方法运行命名宏。

Dim ctl As Control
Dim varTemp As Variant
Set ctl = Forms!Contacts!HelpButton
If (Left(ctl.OnClick, 1) = "=") Then
    varTemp = Eval(Mid(ctl.OnClick,2))
Else
    DoCmd.RunMacro ctl.OnClick
End If