Initialisierung von Comboboxen und Listefeldern

[klamotte]

Hallo

Für manche Comboboxen nehme ich bei Bedarf eine Initialisierung vor, die so aussieht:

Code (vb) [Auswählen] Erweitern

Me.cboGesellschaft.Requery
Me.cboGesellschaft = Me.cboGesellschaft.ItemData(0)

Irgendwann habe ich das als allgemeingültige Sub im Formular integriert:

Code (vb) [Auswählen] Erweitern

Private Sub InitCombo(ByRef cboCombo As ComboBox)
      cboCombo.Requery
      cboCombo = cboCombo.ItemData(0)
End Sub

und rufe es so auf:
   

Code (vb) [Auswählen] Erweitern

Call InitCombo(Me.cboGesellschaft)

Ich möchte das nun in allen Formularen zur Verfügung stellen. Kann man das in die Eigenschaften / Methoden der Combobox einbauen bzw. als Modul integrieren?

[DF6GL]

Hallo,

"Private Sub "

ist keine allgemeingültige Sub, somdern gilt nur in dem Formular, in dessen Modul die Sub steht.

Schreib :

Public Sub

und stelle den Code in ein Standard-Modul (Datenbankfenster/Module)

[klamotte]

Klappt, Danke!