Συνάρτηση Eval

Παρατηρήσεις

Μπορείτε να χρησιμοποιήσετε τη συνάρτηση Eval σε μια στοιχείο ελέγχου υπολογισμού σε μια φόρμα ή αναφορά ή σε μια μακροεντολή ή λειτουργική μονάδα. Η συνάρτηση Eval επιστρέφει μια Μεταβλητή που είναι μια συμβολοσειρά ή ένας αριθμητικός τύπος.

Η συμβολοσειρά ορίσματος πρέπει να είναι μια παράσταση που είναι αποθηκευμένη σε μια συμβολοσειρά. Εάν μεταβιβάσετε στη συνάρτηση 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). Για παράδειγμα, δεν μπορείτε να χρησιμοποιήσετε τους τελεστές SQL Between... Και ή Απευθείας στον κείμενό σας, αλλά μπορείτε να τα χρησιμοποιήσετε σε μια παράσταση που μεταβιβάζεται στη συνάρτηση Eval .

Το επόμενο παράδειγμα καθορίζει εάν η τιμή ενός στοιχείου ελέγχου "Περιοχή_αποστολής" σε μια φόρμα "Παραγγελίες" είναι μία από τις πολλές συντομεύσεις συγκεκριμένης κατάστασης. Εάν το πεδίο περιέχει μία από τις συντομεύσεις, intState θα είναι Αληθές (–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