Access: Abhängige Kombinationsfelder
ฝัง
- เผยแพร่เมื่อ 15 ก.ย. 2024
- 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....
![[LIVE] : ONE ลุมพินี 79 | คู่เอก "ก้องชัย vs อาเมียร์"](http://i.ytimg.com/vi/WfPSA1A0NHc/mqdefault.jpg)
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.
Habe ich auch schon mehrfach genau so gemacht😀
Danke
Wie geht denn das wenn die jedes Feld sich auf eine andere Tabelle beziehen (die Tabellen sind in Beziehung zueinander)
Grüße
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!
Hi! ORDER BY kommt hier hinter das WHERE-Statement. Also:
WHERE KategorieID = “ & Me!cboKategorien & “ ORDER BY Produkt ASC“
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.
Tolles Video. Gibt es auch die Möglichkeit Spalten in diese Abhängigkeit zu setzen?
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?
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?
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!
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!
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
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 :(
Ich hab die Anleitung 1 zu 1 befolgt, jedoch kommt bei mir jedes mal die Fehlermeldung: "Datentypenkonflikt in Kriterienausdruck". Was mache ich falsch?
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 & "'"
Wie bekomme ich es hin mit 3-5komminationsfelder?
Und muss ich auch eine Beziehung zu den jeweiligen Tabellen herstellen?
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
Funktioniert irgendwie leider nicht
Was genau funktioniert denn nicht?
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
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"