Hallo Zusammen,
ich hätte folgendes Problem. Ich habe eine Abfrage erstellt mit der Funktion "Anzahl" und Kriterien.
Unbekannt1 ist die Entwurfsansicht.
Unbekannt2 zeigt das Ergebnis.
Nun habe ich ein Formular mit Datenherkunft der Abfrage erstellt und würde gerne sieben ungebundene Textfelder anlegen und in jedem Feld ein Ergebnis "Anzahl" der Abfrage anzeigen wollen.
Warum nicht gleich die Abfrage anzeigen, daß möchte ich nicht, da ich die einzelnen ungebundenen Textfelder zum weiterrechnen benötige.
Kann man das über den Steuerelementeinhalt des Textfeldes mit eine WennDann-Funktion machen? Aber wie?
Oder kann man auch eine bestimmte Zeile der Abfrage in einem ungebundenen Textfeld anzeigen lassen?
Hätte jemand einen Hinweis für mich.
Danke
mad
@mad
Wenn ich es recht verstanden habe (nur im Prinzip, ist so nicht wirklich flexibel),
Private Sub EinPassendesEreignis() 'z.B. ein Buttonklick
Dim n As Integer
For n = 1 To 7
Me.Controls("ungebTextfeld" & n) = _
DLookup( _
"AnzahlvonLPTitelID_LP", "qryLP_Anzahl", "LPTitelID_LP = " & n)
Next n
End Sub
Benenne dazu die ungebundenen Textfelder in der Art "Anzahl1", "Anzahl2" usw. (Code dann anpassen).
gruss ekkehard
Hat super geklappt.
Danke