Code optimieren

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

ich hoffe jemand von euch weiss eine einfache Lösung.
Ich habe folgenden Quellcode.

Me.Kombo_Message = Me!Message
Me.Kombo_Message1 = Me!Message1
Me.Kombo_Message2 = Me!Message2
Me.Kombo_Message3 = Me!Message3
Me.Kombo_Message4 = Me!Message4
Me.Kombo_Message5 = Me!Message5
Me.Kombo_Message6 = Me!Message6
Me.Kombo_Message7 = Me!Message7
Me.Kombo_Message8 = Me!Message8
Me.Kombo_Message9 = Me!Message9
Me.Kombo_Message10 = Me!Message10
Me.Kombo_Message11 = Me!Message11
Me.Kombo_Message12 = Me!Message12
Me.Kombo_Message13 = Me!Message13
Me.Kombo_Message14 = Me!Message14

Damit befülle ich eine Kombobox mit Werten einer SQL Abfrage (Access 2002).
Da dies nicht besonders schön ist würde ich das Ganze gerne in eine for-Schleife schreiben.
Hat jemand eine Idee wie das funktionieren könnte?

Vielen Dank schon mal im Voraus.

Grüße Sunny

#2

Hallo Sunny,

das sollte dir helfen:

Dim i As Byte
Me.Kombo\_Message = Me!Message
For i = 1 To 14
 Me.Controls("Kombo\_Message" & i) = Me.Controls("Message" & i)
Next i

Wenigstens ein kleiner Ersatz für die fehlende Index-Eigenschaft in VBA…

MFG Phil

#3

Hi Phil,

super vielen Dank für die Antwort, genau das hat mir gefehlt.

Gruß Sunny