Zuweisen eines Werts aus einer Tabelle zu einem Steuerelement

Verwenden Sie die DLookup-Funktion , um den Wert eines Felds anzuzeigen, das sich nicht in der Datensatzquelle für Ihr Formular oder Ihren Bericht befindet. Angenommen, Sie haben ein Formular auf der Basis der Tabelle "Order Details" (Bestelldetails). Das Formular zeigt die Felder "OrderID" (Bestell-Nr), "ProductID" (Artikel-Nr), "UnitPrice" (Einzelpreis), "Quantity" (Menge) und "Discount" (Rabatt) an. Das Feld UnitPrice befindet sich jedoch in einer anderen Tabelle: Products. Sie können die DLookup-Funktion in einem berechneten Steuerelement verwenden, um den UnitPrice auf demselben Formular anzuzeigen, wenn der Benutzer ein Produkt auswählt.

Im folgenden Beispiel wird das Textfeld UnitPrice mit dem Preis des Produkts aufgefüllt, das derzeit im Kombinationsfeld ProductID ausgewählt ist.

Private Sub ProductID_AfterUpdate() 
 
 ' Evaluate filter before it is passed to DLookup function. 
 strFilter = "ProductID = " & Me!ProductID 
 
 ' Look up product's unit price and assign it to the UnitPrice control. 
 Me!UnitPrice = DLookup("UnitPrice", "Products", strFilter) 
 
End Sub

Die DLookup-Funktion verfügt über drei Argumente. Die erste gibt das Feld an, das Sie suchen (UnitPrice); die zweite gibt die Tabelle an (Produkte); und der dritte gibt an, welchen Wert gesucht werden soll (der Wert für den Datensatz, bei dem die ProductID mit der ProductID im aktuellen Datensatz im Unterformular Bestellungen identisch ist).

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.