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 함수를 사용하여 VBA(Visual Basic for Applications) 모듈에서 일반적으로 사용할 수 없는 식 연산자에 액세스할 수 있습니다. 예를 들어 SQL 연산자 사이...를 사용할 수 없습니다 . 또는 코드에서 직접 In 을 사용하지만 Eval 함수에 전달된 식에서 사용할 수 있습니다.

다음 예제에서는 Orders 양식의 ShipRegion 컨트롤 값이 지정된 여러 상태 약어 중 하나인지 여부를 결정합니다. 필드에 약어 중 하나가 포함된 경우 intStateTrue (–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