{"id":55001302,"date":"2021-06-01T00:00:00","date_gmt":"2021-07-31T10:13:55","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=1302"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Abhaengige_Listenfelder","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Abhaengige_Listenfelder\/","title":{"rendered":"Abhängige Listenfelder"},"content":{"rendered":"

\"\"<\/p>\n

Die Programmierung abhängiger Kombinationsfelder haben wir bereits mindestens einmal behandelt. Hier soll ein Kombinationsfeld nur Werte abhängig von der Auswahl eines anderen Kombinationsfeldes anzeigen, also zum Beispiel die Artikel zu einer vorher gewählten Kategorie. Mit Listenfeldern geht das auch – dazu sind nur wenige Umstellungen nötig. Zumindest, wenn Sie im ersten Listenfeld nur die Auswahl eines Eintrags gleichzeitig erlauben. In diesem Beitrag wollen wir uns nicht nur das anschauen, sondern auch die Anzeige abhängiger Daten bei einem Listenfeld mit Mehrfachauswahl.<\/b><\/p>\n

Abhängigkeit bei Kombinations-feldern<\/h2>\n

Bei abhängigen Kombinationsfeldern wie denen aus Bild 1 gelingt das Abbilden der Abhängigkeit wie folgt:<\/p>\n

\"Abhängige<\/p>\n

Bild 1: Abhängige Kombinationsfelder in der Entwurfsansicht<\/span><\/b><\/p>\n

Das Kombinationsfeld cboKategorien <\/b>zeigt die Werte der Felder KategorieID <\/b>und Kategorie<\/b> der Tabelle tblKategorien <\/b>an. Wenn der Benutzer einen der Einträge auswählt, soll das zweite Kombinationsfeld cboArtikel <\/b>nur noch die Artikel anzeigen, die zu der im ersten Kombinationsfeld gewählten Kategorie passen. Die Aktualisierung führen wir in der Ereignisprozedur aus, die durch das Wählen eines neuen Eintrags im Listenfeld cboKategorien <\/b>ausgelöst wird, nämlich Nach Aktualisierung<\/b>. Die Ereignisprozedur sieht so aus:<\/p>\n

Private Sub <\/span>cboKategorien_AfterUpdate()\r\n     Dim <\/span>strSQL As String<\/span>\r\n     strSQL = \"SELECT ArtikelID, Artikelname FROM tblArtikel WHERE KategorieID = \" & Nz(Me!cboKategorien)\r\n     Me!cboArtikel.RowSource = strSQL\r\nEnd Sub<\/span><\/pre>\n
Dadurch weisen wir der Eigenschaft Datensatzherkunft einen SQL-Ausdruck zu, der nur noch die Datensätze der Tabelle tblArtikel liefert, deren KategorieID im ersten Kombinationsfeld ausgewählt wurde. Das Ergebnis ist eine erheblich reduzierte Anzahl von Datensätzen im zweiten Kombinationsfeld (siehe Bild 2).<\/p>\n
\"Auswahl<\/p>\n
Bild 2: Auswahl abhängiger Datensätze<\/span><\/b><\/p>\n
Umsetzung für abhängige Listenfelder<\/h2>\n
Wie unterscheidet sich dies, wenn wir statt Kombinationsfelder einfach Listenfelder verwenden Dazu kopieren wir dieses Formular frmAbhaengigeKombinationfselder <\/b>in ein neues Formular namens frmAbhaengigeListenfelder<\/b> und wandeln die Kombinationsfelder mit dem Kontextmenü-Eintrag Ändern zu|Listenfeld <\/b>jeweils in Listenfelder um (siehe Bild 3).<\/p>\n
\"Umwandeln<\/p>\n
Bild 3: Umwandeln von Kombinationsfeld in Listenfeld<\/span><\/b><\/p>\n
Danach ändern wir noch die Position und Größe der Listenfelder, damit diese ausreichend Datensätze anzeigen können und nebeneinander angezeigt werden (siehe Bild 4).<\/p>\n
\"Ausrichten<\/p>\n
Bild 4: Ausrichten der Listenfelder<\/span><\/b><\/p>\n
Außerdem benennen wir die Listenfelder noch um von cboKategorien <\/b>und cboArtikel <\/b>in lstKategorien <\/b>und lstArtikel<\/b>. Damit brauchen wir nun nur noch das Ereignis Nach Aktualisierung <\/b>neu zu implementieren. Hier ändern sich die Bezeichnungen von Prozedurname und den betroffenen Steuerelementen:<\/p>\n
Private Sub <\/span>lstKategorien_AfterUpdate()\r\n     Dim <\/span>strSQL As String<\/span>\r\n     strSQL = \"SELECT ArtikelID, Artikelname FROM tblArtikel WHERE KategorieID = \" & Nz(Me!lstKategorien)\r\n     Me!lstArtikel.RowSource = strSQL\r\nEnd Sub<\/span><\/pre>\n
Das Ergebnis sehen sie dann in Bild 5. Das Filtern gelingt genauso wie mit den Kombinationsfeldern.<\/p>\n
\"Filtern<\/p>\n
Bild 5: Filtern per Listenfeld<\/span><\/b><\/p>\n
Damit kommen wir zu den anspruchsvolleren Aufgaben – dem Filtern nach mehreren ausgewählten Kategorien.<\/p>\n
Filtern mit Mehrfachauswahl<\/h2>\n
Bevor wir zur Praxis schreiten, kopieren wir das Formular frmAbhaengigeListenfelder <\/b>in ein neues Formular namens frmAbhaengigeListenfelderMehrfach<\/b>.<\/p>\n
<\/p>\n
Um das Filtern mit Mehrfachauswahl zu implementieren, müssen wir erst einmal das Listenfeld lstKategorien <\/b>so umstellen, dass es die Mehrfachauswahl anbietet (siehe Bild 6).<\/p>\n
\"Aktivieren<\/p>\n
Bild 6: Aktivieren der Mehrfachauswahl<\/span><\/b><\/p>\n
Dazu gibt es für die gleichnamige Eigenschaft neben der Standardeinstellung Keine <\/b>die folgenden beiden Optionen:<\/p>\n