Eval, funksjon

Merknader

Du kan bruke Eval-funksjonen i en beregnet kontroll i et skjema eller en rapport, eller i en makro eller modul. Eval-funksjonen returnerer en variant som enten er en streng eller en numerisk type.

Argumentet stringexpr må være et uttrykk som er lagret i en streng. Hvis du sender til Eval-funksjonen en streng som ikke inneholder et numerisk uttrykk eller et funksjonsnavn, men bare en enkel tekststreng, oppstår en kjøretidsfeil. Eksempel: Eval("Smith") resulterer i en feil.

Du kan bruke Eval-funksjonen til å bestemme verdien som er lagret i verdiegenskapen for en kontroll. Følgende eksempel sender en streng som inneholder en fullstendig referanse til en kontroll til Eval-funksjonen . Den viser deretter gjeldende verdi for kontrollen i en dialogboks.

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 bruke Eval-funksjonen til å få tilgang til uttrykksoperatorer som vanligvis ikke er tilgjengelige i en Visual Basic for Applications (VBA)-modul. Du kan for eksempel ikke bruke SQL-operatorene Mellom... Og eller I direkte i koden, men du kan bruke dem i et uttrykk sendt til Eval-funksjonen .

Det neste eksemplet bestemmer om verdien for en ShipRegion-kontroll i et ordreskjema er én av flere angitte forkortelser for delstater. Hvis feltet inneholder én av forkortelsene, vil intState være Sann (–1). Vær oppmerksom på at du bruker enkle anførselstegn (') til å inkludere en streng i en annen streng.

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

Spørringseksempler

VBA-eksempler

Følgende eksempel forutsetter at du har en serie på 50 funksjoner definert som A1, A2 og så videre. Dette eksemplet bruker Eval-funksjonen til å kalle opp hver funksjon i serien.

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

Det neste eksemplet utløser en Klikk-hendelse som om brukeren hadde klikket på en knapp i et skjema. Hvis verdien for knappens OnClick-egenskap begynner med et likhetstegn (=), noe som betyr at den er navnet på en funksjon, kaller Eval-funksjonen funksjonen, som tilsvarer utløser click-hendelsen . Hvis verdien ikke begynner med et likhetstegn, må verdien gi navn til en makro. RunMacro-metoden for DoCmd-objektet kjører den navngitte makroen.

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