Eval 函數

註解

您可以在表單或報表上的 計算控制項 或宏或模組中使用 Eval 函數。 Eval 函數會傳回不是字串或數值類型的 Variant。

自變數 字串必須 是儲存在字串中的表達式。 如果您將不含數值表達式或函數名稱但只包含簡單文字字串的字串傳遞給 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...且 或 直接 在您的程式代碼中使用，但您可以在傳遞至 Eval 函數的運算式中使用它們。

下一個範例會判斷 Orders 窗體上的 ShipRegion 控件值是否為數個指定狀態縮寫之一。 如果欄位包含其中一個縮寫， intState 會是 True (-1) 。 請注意，您 ( ) 使用單引號來包含另一個字串中的字串。

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

查詢範例

VBA 範例

下列範例假設您有定義為 A1、A2 等的 50 個函數系列。 此範例使用 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