Gibt es eine Möglichkeit, diese VBA zu verkürzen:Hinzufügen ComboBox Artikel
Me.cboDeptU1.AddItem "1"
Me.cboDeptU1.AddItem "2"
Me.cboDeptU1.AddItem "3"
Me.cboDeptU1.AddItem "4"
Me.cboDeptU1.AddItem "5"
Me.cboDeptU.SetFocus
ich dieses auch im gleichen Sub haben:
Me.cboDeptL1.AddItem "1"
Me.cboDeptL1.AddItem "2"
Me.cboDeptL1.AddItem "3"
Me.cboDeptL1.AddItem "4"
Me.cboDeptL1.AddItem "5"
Me.cboDeptL.SetFocus
ersetzen
Me.cboDeptU1.AddItem "1"
Me.cboDeptU1.AddItem "2"
Me.cboDeptU1.AddItem "3"
Me.cboDeptU1.AddItem "4"
Me.cboDeptU1.AddItem "5"
Mit
For i = 1 to 5
Me.cboDeptU1.AddItem Cstr(i)
Next i
Vielen Dank. anddddddd Ich liebe dich <- ich meine es –
@DavidQuetglas Sie können das hohle Häkchen unterhalb der Abstimmknöpfe neben dieser Antwort anklicken, um es als * akzeptiert * als ein Zeichen Ihrer Liebe zu markieren ... oder einfach um das zu bekommen +2 rep für die Annahme einer Antwort. –
Wenn Sie nur diese Elemente zu einem völlig leeren List Zugabe wurden, könnten Sie so etwas wie verwenden:
Me.cboDeptU1.List = Array("1", "2", "3", "4", "5")
Dies ist wahrscheinlich Ihre Go-to-Ressource.
http://www.fontstuff.com/access/acctut20.htm
http://www.fontstuff.com/access/acctut13a.htm
Und ... für Listboxen ...
Zusätzlich zu den Antworten, die Sie erhalten haben, können Sie den 'Me' Spezifizierer fallen, es ist implizit /redundant. –