Office: Combobox auslesen

Hallo Leute..

habe folgendes Problem:

mit diesem code:

Code:

'befüllt die ComboBox mit den Dozenten
Private Sub fillComboBoxDozenten()
   
    'Statement
    With adoRstDozenten
        Set .ActiveConnection = db.connection 'benutzte Connection
        .Source = "SELECT * FROM qry_beratungsauswahl" 'Abfrage-String oder Source kann sich auf eine Tabelle, eine Abfrage oder eine View beziehen
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic 'gibt an wie der Cursor sich verhält:Ruft eine Kopie der abgefragten Daten ab. Daten können nicht geändert werden. Cursor in alle Richtungen beweglich.
        .Open
        .Sort = "DozentID ASC"
    End With
   
    combo_dozenten.Clear
   
    'ComboList füllen
    Do Until adoRstDozenten.EOF
        combo_dozenten.AddItem adoRstDozenten.Fields("DozentID").Value & vbTab & adoRstDozenten.Fields("Anrede").Value & "   " & adoRstDozenten.Fields("Zuname").Value
       
        If Not adoRstDozenten.Fields("Vorname") = "" Then
            combo_dozenten.list(combo_dozenten.ListCount - 1, 1) = adoRstDozenten.Fields("Vorname")
        End If
       
        adoRstDozenten.MoveNext
    Loop
   
End Sub

wird aus einer Access Db gelesen und Inhalt in eine Combobox abgelegt.
wenn ich auswähle habe ich meine ID , mein Vor und zunamen.
Nun meine Frage, die ID (in diesem Fall die 7) möchte ich aber in einer extra textbox oder Label ausgeben lassen. wäre nett wenn Ihr mir da helfen könntet.



MfG Paffy

 

Mit "gebundenen" Controls kannst Du was über die "gebundene Spalte" werden. Aber da Du diese ja manuell füllst, ist es wohl auch ein "ungebundenes" Control.

Demnach kannst Du nur was werden, wenn Du bei Änderung des Wertes per VBA eingreifst. Das ist aber nicht ganz so einfach, wie es auf den ersten Blick aussieht...

Nichtsdestotrotz, als ersten Anlaufpunkt schau Dir mal das Ereignis "Bei Änderung (Change)" an. Das wirst Du brauchen, wenn sich der Text im Textfeld der ComboBox ändert. Schau Dir aber die Online-Hilfe zu dem Ereignis genau an, da gibt es nämlich einige Feinheiten zu beachten.

Dazu wirst Du aber wohl auch noch "Bei Nicht in Liste (NotInList)" brauchen. Und wenn Du Dir die Online-Hilfe zu "Change" durchliest, wirst Du sehen, daß Du Dich wahrscheinlich auch noch irgendwo in der Gegend von "Bei Taste (KeyPress)" bewegen mußt. In dem Moment kannst Du ggf. auf "Change" auch wieder verzichten. Eventuell kannst Du auch auf "Beim Verlassen (Exit)" (dann in Verbindung mit NotInList) zurückgreifen.

Wie auch immer: Problematisch ist, daß der Text manuell eingetippt, aber auch aus der Liste ausgewählt werden kann. Und bei manueller Eiingabe kann auch etwas eingetippt werden, was nicht in der Liste steht und entsprechend auch keine ID zuückliefern würde. Und ob Du während der Eingabe, die noch nicht vollständig ist, bereits versuchen willst, eine ID zu ermitteln, ist auch fraglich.

Vielleicht ist es einfacher, eine Listbox ohne manuelle Eingabemöglichkeit zu benutzen, bei der dann nur per Mausklick auf die vorhandenen Einträge zurückgegriffen werden kann. Dann kannst du die ID direkt beim Mausklick abgreifen.

Gruß, Michael