VBA ! Combobox

[M4st3r]

Indem du im Click-Event der Textbox eine neue Abfrage auf FName machst und die ermittelten Daten in das Textfeld einfügst!

 

[KingOfMetropole]

sorry sind wir gerade total mit überfordert *g*

click_event bei der textbox ?

'Text wird aus ComboBox1 in das TextFeld2 übernommen
Private Sub ComboBox1_Click()
TextBox2.Text = ComboBox1.Value
End Sub
'Anzeigen der Adressdaten der Firma in TextFeld2
Private Sub TextBox2_Change()
Me.TextBox2 = "FName" & vbCrLf & "FStraße" & vbCrLf & "FPLZ" & vbCrLf & "FOrt"
End Sub

das haben wir bisher.... aber funktioniert nicht wirklich

 

[M4st3r]

Wenn sich das Textfeld bei der Änderung der Combp ändern soll dann muss der Combo_Click Event das verarbeiten. In dem steht dann eine SQL die die entsprechenden Daten aus der Datenbank holt. dann kannst du wieder über oRS.field("Feldname").value die entsprechenden Daten in das Textfeld einfügen

 

[MareikeRemmel]

Ich habe eine Idee wie man es in VB6 machen könnte, keine Ahnung ob es auch mit VBA geht. Schau einmal ob es die Eigenschaft "Tag" gibt.
Dann könntest du die Daten, welche in der Combobox nicht angezeigt werden sollen in dem Tag der Combobox speicher.
Z.B. so:
combo1.Tag=Starße|Ort|PLZ
Und dann könntest du dir die Datenbankabfrage bei jedem Klick sparen.

 

[thekorn]

Naja, einfach die Daten in ein 2-dimensionales Array (Datenfeld) einlesen:

    oRS.MoveFirst
    i = 0
    While Not oRS.EOF
        daten(i, 0) = oRS.Fields("Feldname0").Value
        daten(i, 1) = oRS.Fields("Feldname1").Value
        daten(i, 2) = oRS.Fields("Feldname2").Value
        daten(i, 3) = oRS.Fields("Feldname3").Value
        Combo1.AddItem daten(i, 0)
        oRS.MoveNext
    Wend

Wird nun die Auswahl im Combofeld geändert, so kann man über ".ListIndex" den aktiven Eintrag auslesen:

Private Sub ComboBox1_Change()
TextBox2.Text = daten(ComboBox1.ListIndex, 1) & vbCrLf & daten(ComboBox1.ListIndex, 2) & vbCrLf & daten(ComboBox1.ListIndex, 3) & vbCrLf & daten(ComboBox1.ListIndex, 4)
End Sub

(Es gibt evtl. einen Fehler wenn nichts ausgewählt wird, ".ListIndex" ist dann -1)

So sollte es relativ einfach gehen.

gruß
thekorn