Office: (Office 2016) Mit DLookUp einen Wert aus einer Abfrage auslesen

Hallo Forum,

ich möchte mit Hilfe der DLookUp-Funktion einen Wert aus einer Abfrage in meinem Formular in einem Textfeld angezeigt bekommen. Die Kriterien sollen sich hierbei dynamisch an der Auswahl in den zwei Comboboxen orientieren.

Folgende Comboboxen habe ich:
"cbxFamilie" und "cbxKonstruktionsgruppe"

Der gesuchte Wert befindet sich in Abfrage "qryAnzahl_Teilearbeiten" in Spalte "Anzahl Teilearbeiten" (Errechnetes Feld).

Ziel soll es sein, dass mir die Funktion nach Auswahl der Fahrzeugfamilie und der Konstruktionsgruppe die Anzahl der Teilearbeiten aus der oben genannten Abfrage anzeigt.

Daher müssen folgende Kriterien gelten:
cbxFamilie = FAM_GES --> Spalte in Abfrage "qryAnzahl_Teilearbeiten"
cbx Konstruktionsgruppe = COG_VERK --> Spalte in Abfrage "qryAnzahl_Teilearbeiten"

Ich habe bereits folgenden Code erarbeitet, der jedoch zu keinem Ergebnis führt:

Private Sub Anzahl_Teilearbeiten_AfterUpdate()

Me.Anzahl_Teilearbeiten = DLookup("Anzahl Teilearbeiten", "qryAnzahl_Teilearbeiten", "FAM_GES= '" & Me.cbxFamilie & "'" And "COG_VERK= '" & Me.cbxKonstruktionsgruppe & "'")

End Sub

Leider wird hierbei kein Ergebnis ausgespruckt.
Kann mir hierbei jemand helfen?

Als Alternative habe ich als Steuerelemteinhalt dem Textfeld folgenden Code zugeordnet:

=DomWert("[Anzahl von tblTeilearbeiten]";"[qryAnzahl_Teilearbeiten]";"[FAM_GES]=" & [cbxFamilie] Und "[COG_VERK]=" & [cbxKonstruktionsgruppe])

Das Ergebnis war hierbei immer der erste Eintrag aus der Abfrage.

Ich hoffe, dass ich meine Problematik ausreichend beschrieben habe *Smilie

Vielen Dank im Voraus!

Beste Grüße,
Fabian

:)

 

Syntaktisch richtig sieht das so aus:

Code:

Dass die Kriterien über Strings gebildet werden ist überdenkenswert. Das sollten ID's aus Referenztabellen sein.

 

Hallo Fabian,

Bei DomWert und Dlookup verwendest du unterschiedliche Felder und die Zusammensetzung des Kriteriumstrings ist nicht korrekt.

1.) Setze den Kriteriumstring vorher in einer Stringvariable zusammen und lasse sie dir im Direktfenster ausgeben, dann sollte eine falsche Zusammensatzung auffallen.
2.) Feldnamen mit Leerzeichen müssen in eckigen Klammern stehen, aber grundsätzlich sollte so etwas vermieden werden.

Gruß Ulrich

 

Moin,
außerdem wird das Ereignis Anzahl_Teilearbeiten_AfterUpdate() nur durch eine Änderung an dem Feld selbst ausgelöst, das passt hier nicht.
maike

 

Vielen Dank für eure Antworten!

Nachdem ich den Code von fredfred eingetragen habe, den Feldnamen in eckige Klammern gesetzt und "After_Update" in "Click" geändert habe, funktiert es! *Smilie

Nun muss ich eine Möglichkeit finden, wie sich das Feld automatisch aktualisiert, ohne dass ich jedes Mal rein klicken muss. Habt ihr einen Vorschlag? *Smilie

VG Fabian

 

Hängt davon ab, wie du das Formular gedacht hast: Im After Update eines der Kombifelder, beim Laden des Formulars ...
maike

 

Bislang aktualisiert sich eine Liste an Datensätzen mit After_Update nachdem ich meine Auswahl in den Comboboxen getroffen habe.
Das Textfeld soll sich im besten Fall ebenfalls nach der Aktualisierung der Comboboxen aktualisieren und den richtigen Wert aus der Abfrage suchen.

 

Naja, dann nimm doch das Ereignis nach Aktualisierung der Kombis.
maike

 

Ahh ... habe den Code in das Feld für das Textfeld geschrieben und nicht in die Felder der Comboboxen. Muss natürlich in jeder Combobox stehen. Das war der Fehler. Jetzt funktioniert es *Smilie

Vielen Dank! *Smilie