Hallo,
ich habe (vereinfacht gesehen) folgende Tabellen in einer Access 200 mdb:
tab_Mitarbeiter
---------------------
MitarbeiterID
Name
Vorname
Abteilung (Zahlenwert)
tab_Abteilung
---------------------
AbteilungsID
Abteilungsname
Ich habe jetzt folgende Recordsets angelegt:
rsMitarbeiter = "
SELECT * FROM tab_Mitarbeiter, tab_Abteilung
WHERE tab_Mitarbeiter.Abteilung = tab_Abteilung.AbteilungsID"
rsAbteilung = "SELECT * FROM tab_Abteilung"
(tab_Mitarbeiter.Abteilung und tab_Abteilung.AbteilungsID sind auch in Access miteinander verknüpft)
Mit dem rsMitarbeiter fülle ich jetzt ein Mitarbeiter-Formular und mit rsAbteilung eine Data-Combobox:
Ein Problem bekomme ich jetzt, wenn ich in der Combobox, die dem Mitarbeiter zugeordnete Abteilung anzeigen lassen möchte:
Weil ich Rs.Fields("Abteilung").Value so nicht auslesen kann. Wenn ich aber in Access die SQL-Anweisung meines Mitarbeiter-Recordsets eingebe, funktioniert es. Kann mir da jemand weiterhelfen?
Danke für jeden Hinweis,
Andi
Umgebung:
Visual Basic 6.0
Access 2000
Windows XP
ich habe (vereinfacht gesehen) folgende Tabellen in einer Access 200 mdb:
tab_Mitarbeiter
---------------------
MitarbeiterID
Name
Vorname
Abteilung (Zahlenwert)
tab_Abteilung
---------------------
AbteilungsID
Abteilungsname
Ich habe jetzt folgende Recordsets angelegt:
rsMitarbeiter = "
SELECT * FROM tab_Mitarbeiter, tab_Abteilung
WHERE tab_Mitarbeiter.Abteilung = tab_Abteilung.AbteilungsID"
rsAbteilung = "SELECT * FROM tab_Abteilung"
(tab_Mitarbeiter.Abteilung und tab_Abteilung.AbteilungsID sind auch in Access miteinander verknüpft)
Mit dem rsMitarbeiter fülle ich jetzt ein Mitarbeiter-Formular und mit rsAbteilung eine Data-Combobox:
Ein Problem bekomme ich jetzt, wenn ich in der Combobox, die dem Mitarbeiter zugeordnete Abteilung anzeigen lassen möchte:
Weil ich Rs.Fields("Abteilung").Value so nicht auslesen kann. Wenn ich aber in Access die SQL-Anweisung meines Mitarbeiter-Recordsets eingebe, funktioniert es. Kann mir da jemand weiterhelfen?
Danke für jeden Hinweis,
Andi
Umgebung:
Visual Basic 6.0
Access 2000
Windows XP