d4kine
Erfahrenes Mitglied
Hallo Leute,
habe vor ca. 1 Monat mit Access angefangen und muss sagen, dass es wirklich spaß macht
Leider bin ich an einer bestimmten Stelle angekommen, wo ich nicht weiter weiß.
Ich hoffe dabei kann mir einer von euch helfen. Es geht um folgendes:
Die Tabellen sind wie folgt aufgebaut:
Dabei besteht eine 1:n beziehung zwischen dem Feld Lieferantenname bei tblArtikel & tblLieferanten
Das Formular sieht folgendermaßen aus:
Die Spalte txtArtikelID_UFo ist unrelevant
Das Problem ist, dass ich nur Artikel angezeigt bekommen möchte, welche auch unter dem Lieferanten eingetragen sind.
Mit zwei Comboboxen in einem Formular habe ich es dank Microsoft-Beispiel schon geschafft.
Jetzt habe ich mir einige Tutorials über das Ansprechen von Unterformularen angeschaut, jedoch komme ich nicht weiter als so:
Habe auch schon hier im Forum gesucht, jedoch nichts gefunden was mich weitergebracht hat.
Ich hoffe mir kann jemand weiterhelfen.
Vielen Dank schonmal
habe vor ca. 1 Monat mit Access angefangen und muss sagen, dass es wirklich spaß macht
Leider bin ich an einer bestimmten Stelle angekommen, wo ich nicht weiter weiß.
Ich hoffe dabei kann mir einer von euch helfen. Es geht um folgendes:
Die Tabellen sind wie folgt aufgebaut:
Code:
tblArtikel | tblLieferanten
--------------------+-----------------
ArtikelID | LieferantenID
Artikelname | Lieferantenname
Lieferantenname |
Das Formular sieht folgendermaßen aus:
Die Spalte txtArtikelID_UFo ist unrelevant
Das Problem ist, dass ich nur Artikel angezeigt bekommen möchte, welche auch unter dem Lieferanten eingetragen sind.
Mit zwei Comboboxen in einem Formular habe ich es dank Microsoft-Beispiel schon geschafft.
Jetzt habe ich mir einige Tutorials über das Ansprechen von Unterformularen angeschaut, jedoch komme ich nicht weiter als so:
Code:
Private Sub cboArtikel_AfterUpdate()
Me!tblTest_UFo.Form!cboArtikel_UFo.RowSource = "SELECT Artikelname FROM" & _
" Artikel WHERE Lieferantenname = " & Me.cboLieferant & _
" ORDER BY Artikelname"
Me!tblTest_UFo.Form!cboArtikel_UFo = Me!tblTest_UFo.Form!cboArtikel_UFo.ItemData(0)
End Sub
Ich hoffe mir kann jemand weiterhelfen.
Vielen Dank schonmal