combobox-Array auslesen
24.01.2004 22:13:16
Gorgino
Ich versuche die fehlende Moeglichkeit von ItemID in VBA zu umgehen,
dazu habe ich mir eine Combobox, die mit einem array gefuellt ist, gebastelt (mit eurer Hilfe).
Damit es nicht zu einfach wird, kommen die Daten aus einer DB.
Anbei der Code fuers befuellen, der funkt:
Sub cboedit_Enter()
Do While Not rst.EOF
With cboEdit
.ColumnCount = 3
.ColumnWidths = "95pt;95pt;20pt"
.BoundColumn = 3
.TextColumn = 1
.AddItem rst.Fields("Nachname")
li = cboEdit.ListCount - 1
.List(li, 1) = rst.Fields("Vorname")
.List(li, 2) = rst.Fields("ID")
End With
rst.MoveNext
Loop
End Sub
Sub cboEdit_click()
'sollte hier den Wert ID wieder zurueckerhalten
Msgbox cboEdit.List(li, 2).Value
'erhalte aber keinen Wert sondern Fehlermeldung und ohne Value erhalte ich immer denselben Wert (Anzahl der Datensaetze).
Bin fuer jeden Tipp dankbar um den li wert von der aktuellen Auswahl in der Combobox zu erhalten,
Lg
Gorginio