![\"Das](\"..\/fileadmin\/_temp_\/2026_04\/pic_1608_001.png\")
<\/p>\nEin Kombinationsfeld mit hunderten Einträgen ist mehr Last als Hilfe. Wählt der Benutzer aber zuerst eine Kategorie, lässt sich die Liste im zweiten Feld auf eine überschaubare Handvoll eindampfen. Genau das leisten abhängige Kombinationsfelder: Die Auswahl im ersten Feld bestimmt, was im zweiten zur Verfügung steht. Wie das gelingt – vom einfachen Grundgerüst bis zu den Feinheiten, die im Alltag den Unterschied machen -, zeigt der vorliegende Beitrag.<\/b><\/p>\nDas Datenmodell<\/h2>\n
Als Beispiel dienen zwei Tabellen. In tblKategorien<\/b> stehen die Kategorien mit den Feldern KategorieID<\/b> und Kategorie<\/b>, in tblProdukte<\/b> die Produkte mit ProduktID<\/b>, Produkt<\/b> und dem Fremdschlüssel KategorieID<\/b> (siehe Bild 1). Jedes Produkt gehört damit zu genau einer Kategorie – die klassische 1:n-Beziehung.<\/p>\n
<\/p>\n
Bild 1: Das Datenmodell aus Kategorien und Produkten, verknüpft über die KategorieID<\/span><\/b><\/p>\n Auf einem Formular platzieren wir zwei Kombinationsfelder, wie Bild 2 zeigt. Das erste, cboKategorieID<\/b>, führt die Kategorien; das zweite, cboProduktID<\/b>, später die dazu passenden Produkte. Beide arbeiten mit zwei Spalten, wobei wir die erste – die ID – über die Spaltenbreite 0<\/b> ausblenden. So sieht der Benutzer nur den Namen, während im Hintergrund der Schlüsselwert gebunden ist.<\/p>\n Bild 2: Die beiden Kombinationsfelder im Entwurf – oben die Kategorie, darunter das Produkt<\/span><\/b><\/p>\n Als Datensatzherkunft bekommt cboKategorieID<\/b> eine Abfrage über alle Kategorien:<\/p>\n Und cboProduktID<\/b>? Zunächst schlicht alle Produkte – diese Liste schränken wir gleich per VBA ein:<\/p>\n Der Kern steckt in einem einzigen Ereignis. Sobald der Benutzer eine Kategorie gewählt hat, bauen wir die Datensatzherkunft des zweiten Feldes neu auf – gefiltert auf eben diese Kategorie. Das übernimmt die Prozedur cboKategorieID_AfterUpdate<\/b> aus dem folgenden Listing, das wir für die Ereignisprozedur Nach Aktualisierung <\/b>des Kombinationsfeldes cboKategorieID <\/b>hinterlegen:<\/p>\n Wir setzen eine SELECT<\/b>-Anweisung zusammen, die nur die Produkte der gewählten Kategorie liefert – das Kriterium bildet der gebundene Wert von cboKategorieID<\/b>, also die KategorieID<\/b>.<\/p>\n Diese Zeichenkette weisen wir der Eigenschaft RowSource<\/b> von cboProduktID<\/b> zu, und schon enthält das zweite Feld ausschließlich die passenden Produkte (siehe Bild 3).<\/p>\n Bild 3: Nach der Wahl einer Kategorie führt das Produktfeld nur noch die dazugehörigen Einträge<\/span><\/b><\/p>\n Ein kleiner Handgriff macht die Bedienung flüssiger, wie wir im Formular frmAbhaengigeKombinationsfelder_Dropdown <\/b>zeigen.<\/p>\n Statt den Benutzer nach der Kategoriewahl selbst das Produktfeld öffnen zu lassen, geben wir ihm den Fokus und öffnen die Liste automatisch, wie folgendes Listing zeigt:<\/p>\n Neu sind die beiden letzten Zeilen: SetFocus<\/b> setzt den Cursor ins Produktfeld, Dropdown<\/b> klappt dessen Liste auf.<\/p>\n Der Benutzer sieht seine Auswahl sofort und muss nur noch zugreifen.<\/p>\n Bis hierher funktioniert alles – solange der Benutzer der Reihe nach vorgeht. Doch was geschieht, wenn er nach getroffener Produktwahl noch einmal die Kategorie wechselt? Dann behält cboProduktID<\/b> seinen alten Wert, obwohl dieser in der neuen Liste gar nicht mehr vorkommt.<\/p>\n Das Feld zeigt daraufhin – scheinbar grundlos – nichts mehr an, denn ein Kombinationsfeld kann einen Wert nur darstellen, wenn er auch in seiner Liste steht.<\/p>\n Den im Kombinationsfeld cboProduktID <\/b>in der Eigenschaft Value gespeicherten Wert können wir am einfachsten per VBA sichtbar machen.<\/p>\n Dazu geben wir im Direktbereich des VBA-Editors den folgenden Befehl ein (in einer Zeile), und betätigen die Eingabetaste:<\/p>\n Hier erhalten wir beispielsweise den Wert 1<\/b>. Da wir durch die erneute Auswahl im ersten Kombinationsfeld dem zweiten Kombinationsfeld eine neuen Datensatzquelle zugewiesen haben, welche den Eintrag mit dem Wert 1 <\/b>im Feld ProduktID <\/b>nicht mehr enthält, zeigt cboProduktID <\/b>keinen Wert an, obwohl dieser enthalten ist.<\/p>\n Die Abhilfe ist eine einzige zusätzliche Zeile, die wir im Formular frmAbhaengigeKombinationsfelder_Zuruecksetzen <\/b>eingebaut haben. Bevor wir die neue Liste zuweisen, setzen wir cboProduktID<\/b> mit Value = Null<\/b> zurück. Damit ist die veraltete Auswahl verschwunden, und das Feld startet sauber in die neue Kategorie.<\/p>\n cboProduktID <\/b>zeigt nun nach wie vor keinen Eintrag an, aber nun ist auch der in der Eigenschaft Value <\/b>gespeicherte Wert gelöscht.<\/p>\n Wozu ist das wichtig? Es könnte sein, dass wir das Formular als Hilfsmittel zur Auswahl eines Produkts verwenden und dabei die Vorselektion nach der Kategorie anbieten.Wenn ein aufrufendes Formular nun den Wert aus cboProduktID <\/b>ausliest und zurückgibt, erhält es eine Produkt-ID, obwohl der Benutzer kein Produkt sichtbar ausgewählt hat.<\/p>\n Manchmal möchte der Benutzer die Einschränkung bewusst aufheben und wieder sämtliche Produkte sehen. Dafür spendieren wir dem ersten Kombinationsfeld einen zusätzlichen Eintrag namens Alle anzeigen<\/b>. Wie das gelingt, zeigen wir im Formular frmAbhaengigeKombinationsfelder_AlleAnzeigen<\/b>.<\/p>\n Der Kniff steckt in einer UNION<\/b>-Abfrage, die der echten Kategorienliste eine künstliche Zeile voranstellt:<\/p>\n Der erste Teil der Abfrage erzeugt eine Zeile mit der KategorieID<\/b> 0<\/b> und dem Text Alle anzeigen<\/b>; der zweite liefert die tatsächlichen Kategorien.<\/p>\n Da echte AutoWert-Schlüssel bei 1<\/b> beginnen, ist die 0<\/b> garantiert frei und dient uns als Kennung für „keine Einschränkung“. Diese Abfrage tragen wir als Datensatzherkunft von cboKategorieID<\/b> ein. Das Ergebnis dieser Abfrage in der Datenblattansicht sehen wir in Bild 4.<\/p>\n Bild 4: Ergebnis der UNION-Abfrage<\/span><\/b><\/p>\n Der zugehörige Code muss die 0<\/b> nun noch auswerten – das erledigt folgende Ereignisprozedur:<\/p>\n Die WHERE<\/b>-Klausel erhält eine zweite Bedingung: OR … = 0<\/b>. Wählt der Benutzer eine echte Kategorie, greift der erste Teil; wählt er Alle anzeigen<\/b> – also die 0<\/b> -, ist die Bedingung 0 = 0<\/b> stets wahr, und die Abfrage liefert alle Produkte.<\/p>\n Damit beim Öffnen des Formulars sofort das vollständige Sortiment bereitsteht, setzen wir das Kategoriefeld in der Prozedur Form_Load<\/b> von vornherein auf 0<\/b>, wie in Bild 5 zu sehen ist.<\/p>\n Bild 5: Das erste Kombinationsfeld mit dem zusätzlichen Eintrag Alle anzeigen<\/span><\/b><\/p>\n Das Muster ist nicht an Kategorien und Produkte gebunden. Überall, wo ein Wert die Auswahl eines zweiten einschränkt – Land und Region, Kunde und Projekt, Hersteller und Modell -, genügt dieselbe Handvoll Zeilen; wir tauschen lediglich die Tabellen- und Feldnamen in der SELECT<\/b>-Anweisung aus.<\/p>\n Wir können dieses Prinzip auch noch auf weitere Kombinationsfelder anwenden. Wenn wir beispielsweise nach der Auswahl eines Produkts beispielsweise noch Produkteigenschaften in einem weiteren Kombinationsfeld auswählen wollen, legen wir eine ähnliche Prozedur wir für cboKategorieID <\/b>auch noch für cboProduktID<\/b> an.<\/p>\n Ein Beispiel dafür zeigen wir im Beitrag Navigieren in hierarchischen Daten <\/b>(www.access-im-unternehmen.de\/****<\/b>).<\/p>\n In diesem Beitrag haben wir die grundlegenden Techniken für die Auswahl von Daten aus abhängigen Kombinationsfeldern vorgestellt.<\/p>\n Hierbei ist zu beachten, dass die Beispielformulare selbst nicht an eine Datensatzquelle gebunden sind. Sie dienen allein der Auswahl einer Kategorie und nachfolgend eines Produkts dieser Kategorie.<\/p>\n Dieses Formular können wir, wie oben bereits angerissen, beispielsweise als Hilfsformular öffnen, wenn wir in einem aufrufenden Formular einen Artikel auswählen wollen – beispielsweise in den Bestelldetails eines Bestellformulars.<\/p>\n Hier müssten wir nun noch eine Schaltfläche hinzufügen, mit welcher der Benutzer die Auswahl des Produkts abschließen oder verwerfen kann.<\/p>\n In einem weiteren Beitrag namens Gebundene abhängige Kombinationfelder <\/b>(www.access-im-unternehmen.de\/****<\/b>) schauen wir uns noch an, wie wir mit Tabellen umgehen, die selbst zwei Felder enthalten, von denen der Wert des zweiten Feldes von der Auswahl im ersten Feld abhängig sein soll.<\/p>\n","protected":false},"excerpt":{"rendered":" Ein Kombinationsfeld mit hunderten Einträgen ist mehr Last als Hilfe. Wählt der Benutzer aber zuerst eine Kategorie, lässt sich die Liste im zweiten Feld auf eine überschaubare Handvoll eindampfen. Genau das leisten abhängige Kombinationsfelder: Die Auswahl im ersten Feld bestimmt, was im zweiten zur Verfügung steht. Wie das gelingt – vom einfachen Grundgerüst bis zu den Feinheiten, die im Alltag den Unterschied machen -, zeigt der vorliegende Beitrag.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662026,66042026,44000052],"tags":[],"class_list":["post-55001608","post","type-post","status-publish","format-standard","hentry","category-662026","category-66042026","category-Formulare_und_Steuerelemente"],"yoast_head":"\nDie beiden Kombinationsfelder<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2026_04\/pic_1608_002.png\")
<\/p>\nSELECT tblKategorien.KategorieID, tblKategorien.Kategorie FROM tblKategorien ORDER BY tblKategorien.Kategorie;<\/pre>\n
SELECT tblProdukte.ProduktID, tblProdukte.Produkt FROM tblProdukte ORDER BY tblProdukte.Produkt;<\/pre>\n
Der Grundmechanismus<\/h2>\n
Private Sub <\/span>cboKategorieID_AfterUpdate()\r\n Dim <\/span>strSQL As String<\/span>\r\n strSQL = \"SELECT ProduktID, Produkt \" _\r\n & \"FROM tblProdukte WHERE KategorieID = \" _\r\n & Me.cboKategorieID & \" ORDER BY ProduktID\"\r\n Me.cboProduktID.RowSource = strSQL\r\nEnd Sub<\/span><\/pre>\n![\"Nach](\"..\/fileadmin\/_temp_\/2026_04\/pic_1608_003.png\")
<\/p>\nDie Liste gleich aufklappen<\/h2>\n
Private Sub <\/span>cboKategorieID_AfterUpdate()\r\n Dim <\/span>strSQL As String<\/span>\r\n strSQL = \"SELECT ProduktID, Produkt \" _\r\n & \"FROM tblProdukte WHERE KategorieID = \" _\r\n & Me.cboKategorieID & \" ORDER BY ProduktID\"\r\n Me.cboProduktID.RowSource = strSQL\r\n Me.cboProduktID.SetFocus\r\n Me.cboProduktID.Dropdown\r\nEnd Sub<\/span><\/pre>\nEin tückischer Nebeneffekt<\/h2>\n
Debug.Print<\/span> Forms!frmAbhaengigeKombinationsfelder_Dropdown!cboProduktID\r\n1<\/pre>\nPrivate Sub <\/span>cboKategorieID_AfterUpdate()\r\n Dim <\/span>strSQL As String<\/span>\r\n strSQL = \"SELECT ProduktID, Produkt \" _\r\n & \"FROM tblProdukte WHERE KategorieID = \" _\r\n & Me.cboKategorieID & \" ORDER BY ProduktID\"\r\n Me.cboProduktID.Value = Null\r\n Me.cboProduktID.RowSource = strSQL\r\n Me.cboProduktID.SetFocus\r\n Me.cboProduktID.Dropdown\r\nEnd Sub<\/span><\/pre>\nEin Eintrag für alle Fälle<\/h2>\n
SELECT 0 AS KategorieID, 'Alle anzeigen' AS Kategorie\r\nFROM tblKategorien\r\nUNION SELECT KategorieID, Kategorie\r\nFROM tblKategorien\r\nORDER BY Kategorie;<\/pre>\n
![\"Ergebnis](\"..\/fileadmin\/_temp_\/2026_04\/pic_1608_004.png\")
<\/p>\nPrivate Sub <\/span>cboKategorieID_AfterUpdate()\r\n Dim <\/span>strSQL As String<\/span>\r\n strSQL = \"SELECT ProduktID, Produkt \" _\r\n & \"FROM tblProdukte WHERE KategorieID = \" _\r\n & Me.cboKategorieID & \" OR \" & Me.cboKategorieID _\r\n & \" = 0 ORDER BY ProduktID\"\r\n Me.cboProduktID.Value = Null\r\n Me.cboProduktID.RowSource = strSQL\r\n Me.cboProduktID.SetFocus\r\n Me.cboProduktID.Dropdown\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Form_Load()\r\n Me.cboKategorieID = 0\r\nEnd Sub<\/span><\/pre>\n![\"Das](\"..\/fileadmin\/_temp_\/2026_04\/pic_1608_005.png\")
<\/p>\nÜbertragbar auf jede 1:n-Beziehung<\/h2>\n
Mehrere abhängige Kombinationsfelder<\/h2>\n
Zusammenfassung und Ausblick<\/h2>\n