✔ Kombinationsfeld mit 2 Tabellen

[Brauni]

Ich habe 2 Tabellen:
tbl_lager_farbe und tbl_farbe

Wenn ich in das Kombinationsfeld farbe klicke soll folgendes passieren:
Er nimmt sich aus dem Feld artnr die Artikelnummer, schaut in der Tabelle tbl_lafer_farbe nach welche farbnr der betreffende Artikel hat und mit der farbnummer schaut er in der tbl_farbe nach welcher Text darunter gespeichert wurde.

Folgendes habe ich zur Zeit:

Set rst = dbs.OpenRecordset("select farbnr from tbl_lager_farbe where artnr = " & Me.artnr & "")

Do
    varfarbnr = rst.Fields("farbnr")
    Me.farbe.RowSource = "select farbtext from tbl_farbe where farbnr = " & varfarbnr & ""
    rst.MoveNext
Loop Until rst.EOF

Leider funktioniert dies nicht so wie ich es will. Es wird immer nur ein Farbtext angezeigt. Jedoch sind mehrere Ergebnisse möglich!
Wer kann mir von euch weiter helfen?

 

[tombe]

Hi Brauni,

ich denke mal das er immer den ersten Farbwert anzeigt, da in der Do-While Schleife bei jedem Durchlauf die Abfrage erneut ausgeführt wird.

Einfach die Abfrage in der Tabelle tbl_farbe vor die Schleife schreiben :

Me.farbe.RowSource = "select farbtext from tbl_farbe where farbnr = " & varfarbnr & ""
Do
    varfarbnr = rst.Fields("farbnr")
    rst.MoveNext
Loop Until rst.EOF