| |
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
| |
|
