Hallo zusammen,
ich versuche gerade in einem Formular etwa 100 Textfelder mit einer Schleife zu befüllen.
Zurzeit sieht es noch so aus:
Me!Text199 = AEF(0)
Me!Text200 = AEF(1)
Me!Text201 = AEF(2)
Me!Text202 = AEF(3)
Me!Text203 = AEF(4)
Me!Text204 = AEF(5)
Me!Text205 = AEF(6)
Me!Text206 = AEF(7)
Me!Text207 = AEF(8)
Me!Text208 = AEF(9)
Me!Text209 = AEF(10)
Me!Text210 = AEF(11)
Aus diesem Teil möchte ich eine Schleife machen, um nicht alle 100 Textfelder im Code zu schreiben. Bisher habe ich es jedoch noch nicht hinbekommen. Vieleciht könnte ja jemand von euch helfen.
Grüße
Andre
Hallo,
Dim i as Long
For i = 0 to 99
Me("Text" & 199 + i) = AEF(i)
Next
Danke dir, da habe ich wohl zu kompliziert gedacht. Deine Lösung funktioniert prima :)