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) モジュールでは通常使用できない式演算子にアクセスできます。 たとえば、Between...And や In などの SQL 演算子を直接使うことはできませんが、Eval 関数に渡す式の中では使用できます。

次の例では、Orders フォームの ShipRegion コントロールの値が指定されている複数の状態略語の 1 つかどうかを判定します。 フィールドに略語の 1 つが含まれる場合、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