Hilfe! Textfeld aus gefiltertem Unterformular auslesen
oggi
Gesendet: 02.03.21 09:41
Betreff: Hilfe! Textfeld aus gefiltertem Unterformular auslesen


Member

Beiträge: 6

Hallo Leute, bin der Oggi und neu hier.

Habe in vielen Google-Seiten nachgeschaut, jedoch keine Lösung für mein Problem gefunden..

Ich habe ein gefiltertes Unterformular"AbfS26I_Ufo".
In diesem habe ich ein Textfeld namens "PurchB".

Das gefilterte Unterformular listet(in Formularansicht) mir verschiedene Namen im Textfeld "PurchB".
Ich möchte diese Namen in ein String"strAdd" packen..hab das versucht mit einer Schleife:

Private Sub email_Click()

Dim strAdd As String

If Me.AbfS26I_Ufo.Form.FilterOn = True Then

With AbfS26I_Ufo.Form.RecordsetClone
If Not .EOF Then
.MoveFirst
Do Until .EOF
strAdd = strAdd & "; " & AbfS26I_Ufo![PurchB]
.MoveNext
Loop
End If
End With

Das Problem ist, dass die Do-Schleife nicht zum nächsten Datensatz bzw. Textfeld(PurchB) des gefilterten Unterformulars springt.
Also der AbfS26I_Ufo![PurchB] zeigt nicht den Wert/Inhalt des nächsten Datensatzes. Ich erhalte immer den Wert des ersten Datensatzes..

Nochmal vereinfacht-
Ist:
strAdd= Name1; Name1; Name1; Name1
Soll sein:
strAdd= Name1; Name2; Name3; Name4


Was mache ich falsch?

Wäre klasse, wenn ihr ne Idee hab und helfen könntet.
Schöne Grüße aus Köln
Oggi

Top of the page Bottom of the page