Neuigkeiten:

Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!

Mobiles Hauptmenü

Textfelder mit einer Schleife füllen

Begonnen von drejs, September 18, 2014, 12:31:36

⏪ vorheriges - nächstes ⏩

drejs

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

DF6GL

Hallo,


Dim i as Long

For i  = 0 to 99
Me("Text" & 199 + i) = AEF(i)
Next
Viele Grüße vom Bodensee
Franz, DF6GL

Hilfestellung:  http://www.access-o-mania.de/forum/index.php?topic=6969.msg118738#msg118738

Links und Tipps:
1.   http://v.hdm-stuttgart.de/~riekert/lehre/db-kelz/
1a. http://www.tinohempel.de/info/info/datenbank/normalisierung.htm
1b. https://support.office.com/de-de/article/Grundlagen-des-Datenbankentwurfs-eb2159cf-1e30-401a-8084-bd4f9c9ca1f5#bmterms
2.   http://www.donkarl.com
3.   https://web.archive.org/web/20201201233522/http://www.dbwiki.net/
4.   http://www.access-tutorial.de/
5.   http://www.tty1.net/smart-questions_de.htm
6.   http://access.joposol.com/accept

Last but not least:   < F1 > für Hilfe
;) Learning by doing not by spoon-feed ;)

Tipp: Find and Replace for Access

drejs

Danke dir, da habe ich wohl zu kompliziert gedacht. Deine Lösung funktioniert prima :)