Функция Eval

Забележки

Можете да използвате функцията Eval в изчисляема контрола във формуляр или отчет или в макрос или модул. Функцията Eval връща стойност от тип Variant, която е низ или числов тип.

Аргументът stringexpr трябва да бъде израз, който е съхранен в низ. Ако предадете на функцията Eval низ, който не съдържа числов израз или име на функция, а само прост текстов низ, ще възникне грешка по време на изпълнение. Например Eval("Smith") води до грешка.

Можете да използвате функцията Eval , за да определите стойността, съхранена в свойството Стойност на контрола. Следващият пример предава низ, съдържащ пълна препратка към контрола към функцията 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 .

Следващият пример определя дали стойността на контролата 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 . Ако стойността не започва със знак за равенство, стойността трябва да наименуване на макрос. Методът RunMacro на обекта DoCmd изпълнява наименувания макрос.

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