Funktionen Eval

Anmärkningar

Du kan använda funktionen Utvärdera i en beräknad kontroll i ett formulär eller en rapport eller i ett makro eller en modul. Funktionen Utvärdera returnerar en Variant som är av typen sträng eller numerisk.

Argumentet stränguttryck måste vara ett uttryck som lagras i en sträng. Om du skickar till en sträng som inte innehåller ett numeriskt uttryck till funktionen Utvärdera, utan bara en enkel textsträng, uppstår ett körningsfel. Till exempel resulterar Eval("Smith") i ett fel.

Du kan använda funktionen Utvärdera till att bestämma vilket värde som lagras i egenskapen Värde för en kontroll. Följande exempel skickar en sträng som innehåller en fullständig referens till en kontroll till funktionen Utvärdera. Sedan visas det aktuella värdet på kontrollen i en dialogruta.

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))

Du kan använda funktionen Utvärdera för att komma åt uttrycksoperatorer som inte vanligtvis är tillgängliga i en VBA-modul (Visual Basic for Applications). Du kan till exempel inte använda SQL-operatorerna Between...And eller In direkt i koden, men du kan använda dem i ett uttryck som skickas till funktionen Utvärdera.

I nästa exempel avgör om värdet för kontrollen ShipRegion i formuläret Orders är en av flera angivna förkortningar för delstater i USA. Om fältet innehåller någon av förkortningarna, får intState värdet Sand (-1). Observera att du använder enkla citattecken (') för att placera en sträng inuti en annan sträng.

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

Frågeexempel

VBA-exempel

Det här exemplet förutsätter att du har en serie på 50 funktioner som definierats som A1, A2 och så vidare. Det här exemplet använder funktionen Utvärdera för att anropa varje funktion i serien.

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

I nästa exempel utlöses en Klickning-händelse som om användaren hade klickat på en knapp i ett formulär. Om värdet för knappens egenskap VidKlickning börjar med ett likhetstecken (=), vilket betyder att det är namnet på en funktion, anropar funktionen Utvärdera denna funktion, vilket motsvarar att utlösa händelsen Klickning. Om värdet inte börjar med ett likhetstecken måste värdet ge namnet på ett makro. Metoden KörMakro för objektet DoCmd kör det angivna makrot.

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