Hallo
Für manche Comboboxen nehme ich bei Bedarf eine Initialisierung vor, die so aussieht:
Me.cboGesellschaft.Requery
Me.cboGesellschaft = Me.cboGesellschaft.ItemData(0)
Irgendwann habe ich das als allgemeingültige Sub im Formular integriert:
Private Sub InitCombo(ByRef cboCombo As ComboBox)
cboCombo.Requery
cboCombo = cboCombo.ItemData(0)
End Sub
und rufe es so auf:
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?
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)
Klappt, Danke!