Fill combobox with enumerations?

[silentwolf]

Hi,
Ich versuche gerade mich ein wenig mit klassenmodulen und enumerations auseinanderzusetzen und habe leider keine Ahnung wie ich die enumerations in einer combox füllen kann.
Oder ist das generell gar keine Gute Idee??
Habe einige Dinge im netzt gefunden aber leider nur VB und andere codes sind leider nicht richtig..

Könnte mir hier jemand helfen?

Danke

Albert

[DF6GL]

Hallo,

wie ich die enumerations in einer combox füllen kann.

was ist der Grund und das Ziel dieser Idee?

Was soll im Kombinationsfeld anzeigt werden? (falls ich das überhaupt richtig interpretiere)

[silentwolf]

Hallo Franz,

danke das Du Dich gemeldet hast!

Folgendes habe ich erstellt

Code [Auswählen] Erweitern

Public Enum BuchungsArt
Gebucht
Verrechnet
End Enum


Sollen weitere noch angefügt werden aber hier geht es mir Hauptsächlich mal um es zu verstehen wie alles zusammen passt oder kommt.

Jetzt würde ich gerne in einem Formular eine Combobox haben die beim Form_Load Ereignis die Combobox mit den Werten aus der Enumeration füllt.

Nach der Auswahl von der Combox soll der Wert in eine Excel Tabelle übertragen werden...

Hierzu verwende ich ein ClassenModul.

Wie gesagt ich möchte mich einfach mal etwas besser auskennen mit dem Umgang von Enumeration und Klassen...

Ob das so sinnvoll ist oder nicht weis ich leider nicht genau :-)

Danke

[MzKlMu]

Hallo,
das Beispiel scheint mir eher nicht sinnvoll zu sein.
Das würde man einfach mit einer Tabelle machen in der die Buchungsarten als Datensätze angelegt sind. Mit einem Primärschlüssel.
Und da man nicht den Text der Buchungsart speichern würde, sondern den Primärschlüssel (als Fremdschlüssel) macht Dein Beispiel erst recht keinen Sinn, denn Du verwendest keinen PS.

[silentwolf]

Hallo Klaus,
danke für die Info.. na dann werde ich das wohl anders gestallten!

Aber nur um es zu verstehen wie kann man eine combobox mit einer enumeration füllen?
Hab schon einige Dinge gesehen aber die scheinen eher auf VB zu laufen.

Gruß

Albert

[MzKlMu]

Hallo,

Aber nur um es zu verstehen wie kann man eine combobox mit einer enumeration füllen?

keine Ahnung, braucht man auch nicht. 

[silentwolf]

Alles klar!

Vielen Dank

[DF6GL]

Hallo,

in der Tat braucht man das nicht, aber "programmieren" kann man's schon... 


in einem Standard-Modul

Code [Auswählen] Erweitern

Public Enum BuchungsArt
Gebucht
Verrechnet
End Enum


in einem Form mit einem KK und beim Klick auf eine Schaltfläche

Code [Auswählen] Erweitern

Private Sub btnFillKK1_Click()
Me!KK1.RowSourceType = "value list"
Me!KK1.RowSource = BuchungsArt.Gebucht & ";" & BuchungsArt.Verrechnet
End Sub

[silentwolf]

Ok Danke für die Info Franz!

Gruß

Albert