WennDann

[mad]

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

[Beaker s.a.]

@mad
Wenn ich es recht verstanden habe (nur im Prinzip, ist so nicht wirklich flexibel),

Code [Auswählen] Erweitern

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

[mad]

Hat super geklappt.

Danke