Access: Abhängige Kombinationsfelder

Wenn Du in einem Formular Daten aus einer Tabelle anzeigen möchtest, die einer Kategorie aus einer andere Tabelle angehören, dann benötigtst Du sogenannte abhängige Kombinationsfelder. Dieses Video zeigt kurz und knackig, wie Du diese programmieren kannst.
Download Beispieldateien: shop.minhorst....

[@dieterhosli1632]

Danke für das verständliche Video. Habe versucht, die Idee weiter zu entwickeln, bin aber dabei gescheitert. Fände es gut, die Auswahl a) in einem Textfeld angezeigt zu bekommen und b) die Auswahl in einer Tabelle abzuspeichern. André ... hast du dazu auch schon ein Video? Würde mich sehr interessieren.

[@ToJeKo75]

Guten Tag André Prima und Schau erklärt/gemacht -hat's mir und siecher einigen hier geholfen! Aber am welche Stelle im Deinem: Private Sub cboKategorien_AfterUpdate() Dim strSQL As String strSQL = "SELECT ProduktID, Produkt FROM tblProdukte WHERE KategorieID = " & Me!cboKategorien Me!cboProdukte.RowSource = strSQL End Sub ...kommt noch mal die ORDER BY -Funktion, wenn man die nach Alphabet (also nicht automatisch nach ID) sortieren möchte? Danke sehr im Voraus!

[@andreminhorst]

Hi! ORDER BY kommt hier hinter das WHERE-Statement. Also: WHERE KategorieID = “ & Me!cboKategorien & “ ORDER BY Produkt ASC“

[@philippneumann3181]

Echt gutes Video, hat mir bei meiner Datenbank weitergebracht. Ich habe nur das Problem, das wenn ich anschließend in einen bereits angelegten Datensatz gehe kann ich im Feld Produkt nur die Produkte auswählen die zur Kategorie des ersten Datensatz passen. Bekommt man das Problem auch irgendwie gelöst?

[@christiandobler987]

Habe ich auch schon mehrfach genau so gemacht😀

[@asumg05asumg05]

Erstmal vielen Dank für das verständliche Video! Ich habe die Anweisungen aus Deinem Beitrag 1:1 für meine Datenbank übernommen. Resultat: die einzelnen Kombinationsfelder konnten zwar unabhängig von einander die Werte aus meiner Datenbank übernehmen - die Erzeugung einer hierachische Abhängigkeit vom ersten Kombi war jedoch nicht möglich. Ich habe dann die Beispieldatenbank aus diesem Beitrag heruntergeladen, um die Funktionalität zu überprüfen. Resultat war das Gleiche wie in meiner DB: die Kombis waren nicht abhängig voneinander. Frage: Muss ich noch Einstellungen in Access_2007 vornehmen? Liegt es an Windows_10_Prof? Für eine Antwort wäre ich dankbar!

[@asumg05asumg05]

Der Fehler in der Erzeugung bzw. Darstellung der abhängigen Kombinationsfeldern lag begründet in den Standard-Einstellungen ( Optionen) von Access. Die Standard-Einstellungen sind die Einstellungen, die direkt nach der Installation von Access vorliegen: 1. In den Einstellungen müssen die "Makros" aktiviert sein 2. Die erstellte Datenbank muss sich an einem "gesicherten Ort" befinden Beides lässt sich leicht in den Optionen korrigieren. Nach der Umstellung funktionierten die "Abhängigen Kombinationsfelder". Danke nochmal für das Video!

[@GrayNine]

Tolles Video. Gibt es auch die Möglichkeit Spalten in diese Abhängigkeit zu setzen?

[@ondorion1104]

Danke für das Video. Endlich habe ich es geschafft, so einen Filter einzubauen. Jetzt gibt es leider noch ein Problem: Kann man in den Code eine Sortierung einbauen?

[@loopingron]

Wie geht denn das wenn die jedes Feld sich auf eine andere Tabelle beziehen (die Tabellen sind in Beziehung zueinander) Grüße

[@kaqokaqo]

Ich kriegs trotzdem nicht hin. Warum wird z.B. im ersten Kombinationsfeld die KategorieID mit eingfügt. Das ist ja nur die fortlaufende Nummer und für das weitere Vorgehen irrelevant oder nicht? Gleichzeitig gibt's in der anderen Tabelle mit den Produkten auch eine Spalte mit dem Namen KategorieID, welche aber die entsprechenden Kategorienn enthält. In der SQL-Abrage geht's dann auch um die KategorieID, aber ich als absolut Ahnungslose habe keine Ahnung, auf welche KategorieID sich jetzt hier bezogen wird. Bei mir heißen die Spalten anders und ich steige nicht durch.

[@christinkapitza7558]

Tolles Video! Gibt es eine Möglichkeit, die Ergebnisse in den folgenden Kombinationsfeldern auch per VBA zu sortieren? Die übliche Sortierung über die Datensatzherkunft funktioniert bei mir irgendwie nicht

[@ToJeKo75]

Ja, genau wie bei mir. Neue "Eintragungen" werden im Kombo Feld nicht Alphabetisch gelistet. Leider fehlt im diesen Video, die ich für wichtig finde -die Funktion: ORDER BY :(

[@Waberduggi]

Danke

[@ingostoter5490]

Wie bekomme ich es hin mit 3-5komminationsfelder? Und muss ich auch eine Beziehung zu den jeweiligen Tabellen herstellen?

[@asumg05asumg05]

Ich habe 4 Kombinationsfelder erfolgreich in meinem Formular eingebaut. 1. Beziehungen zwischen den Tabellen erstellen 2. Die vorliegende Video_Vorlage von Minthorst für sämtliche Nachfolge_Kombinationsfelder nutzen

[@thomasstraubinger4810]

Ich hab die Anleitung 1 zu 1 befolgt, jedoch kommt bei mir jedes mal die Fehlermeldung: "Datentypenkonflikt in Kriterienausdruck". Was mache ich falsch?

[@andreminhorst]

Ist Dein Feld, mit dem Du vergleichst, vielleicht ein Textfeld und kein Zahlenfeld? Dann müsstest Du noch Hochkommata zum Vergleichsausdruck hinzufügen, etwa so: ... WHERE KategorieID = '" & me.cboKategorieID & "'"

[@nimandoase2061]

Funktioniert irgendwie leider nicht

[@andreminhorst]

Was genau funktioniert denn nicht?

[@neojumpy]

Kategorien ohne PRoduukte würde ich über die Datenherkunft verhindern:: SELECT DISTINCT tblKategorien.Kategorie, tblKategorien.KategorieID FROM tblKategorien INNER JOIN tblProdukte ON tblKategorien.KategorieID = tblProdukte.KategorieID ORDER BY tblKategorien.Kategorie Und ich würde nach auswahl das erste produkt auswählen: Me.cboProdukte = Me.cboProdukte.ItemData(0) ' Erster Eintra wählen Me.cboProdukte.SetFocus 'Gehezu Steuerelement Me.cboProdukte.Dropdown 'Kombiliste aufklappen

[@neojumpy]

Wenn schon die Kategorien aufgelistet werden, würde ich die Anzhal der Produkte anzeigen und die Möglichkeit schaffen alle Produkte selektieren zu können. Dazu die Datenherkunft: SELECT '(Alle Einträge)' AS Einträge, Count(*) AS Anzahl, 0 AS S, 0 AS KategorieID FROM tblKategorien INNER JOIN tblProdukte ON tblKategorien.KategorieID = tblProdukte.KategorieID UNION ALL SELECT First(tblKategorien.Kategorie), Count(*), 1, tblKategorien.KategorieID FROM tblKategorien INNER JOIN tblProdukte ON tblKategorien.KategorieID = tblProdukte.KategorieID GROUP BY tblKategorien.KategorieID ORDER BY S, Einträge gebundene Spalte: 4 Anzahl Spalten: 3 Spaltenbreiten: ;2;0 Spaltenübrisft: Ja Die Auswahl (Alle Einträge) könnte so umgesetzt werden: Private Sub cboKategorien_AfterUpdate() Dim strSQL As String If Nz(Me.cboKategorien.Column(2) & "", 0) = 1 Then strSQL = " WHERE tblKategorien.KategorieID = " & Me.cboKategorien strSQL = "SELECT ProduktID, Produkt" _ & " FROM tblKategorien INNER JOIN tblProdukte ON tblKategorien.KategorieID = tblProdukte.KategorieID" _ & strSQL _ & " ORDER BY tblKategorien.Kategorie"