{"id":55000249,"date":"2014-12-01T00:00:00","date_gmt":"2020-01-24T15:59:12","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=249"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Datensaetze_filtern_per_Kombinationsfeld","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Datensaetze_filtern_per_Kombinationsfeld.html","title":{"rendered":"Datensätze filtern per Kombinationsfeld"},"content":{"rendered":"

Wenn Sie ein Kombinationsfeld etwa zum Filtern von Artikeln nach einer bestimmten Kategorie verwenden, können Sie jeweils eine Gruppe von Artikeln anzeigen. Was aber, wenn Sie anschließend wieder alle Artikel anzeigen möchten Für diesen Fall können Sie dem Kombinationsfeld einen Eintrag etwa mit dem Wert <\/b>hinzufügen. Dessen Auswahl führt dann zur Aufhebung des jeweiligen Filters. Wir zeigen Ihnen, wie dies funktioniert.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1406_DatensaetzeFilternPerKombinationsfeld.mdb<\/b>.<\/p>\n

Wenn Sie in einem Unterformular oder in einem Listenfeld die übersicht über die Daten einer Tabelle oder Abfrage darstellen, die sich nach verschiedenen Kriterien gruppieren lassen, kann es sinnvoll sein, diese nach diesem Kriterium zu filtern. Im Beispiel schauen wir uns eine übersicht aller Artikel einer Datenbank an, die nach der Kategorie gefiltert werden können.<\/p>\n

Das Formular frmArtikeluebersicht <\/b>zeigt die Artikel im Unterformular sfmArtikeluebersicht <\/b>in der Datenblattansicht an.<\/p>\n

Die Tabelle tblArtikel<\/b>, die dort als Datenherkunft dient, verwendet ein Nachschlagefeld namens KategorieID <\/b>zur Auswahl eines der Datensätze der verknüpften Tabelle tblKategorien<\/b> (weitere Informationen zum Aufbau dieses Formulars erhalten Sie im Artikel Datenübergabe zwischen Formularen<\/b>).<\/p>\n

Kombinationsfeld zum Filtern<\/h2>\n

Genau nach den Daten dieses Feldes wollen wir nun über ein Kombinationsfeld im Hauptformular filtern. Das bedeutet, dass wir im Kombinationsfeld alle Datensätze der Tabelle tblKategorien<\/b> anbieten. Dieses Kombinationsfeld platzieren wir wie in Bild 1 oben im Formular und legen die Bezeichnung cboKategorien <\/b>fest.<\/p>\n

\"Kombinationsfeld<\/a><\/p>\n

Bild 1: Kombinationsfeld zum Filtern nach einer Kategorie<\/p>\n

Damit dieses alle Kategorien anzeigt, stellen wir die Eigenschaft Datensatzherkunft <\/b>auf eine entsprechende Abfrage ein. Diese sieht wie in Bild 2 aus. Die Abfrage liefert alle Datensätze der Tabelle tblKategorien<\/b>, wobei diese nach dem Wert des Feldes Kategorie <\/b>aufsteigend sortiert werden.<\/p>\n

\"Datensatzherkunft<\/a><\/p>\n

Bild 2: Datensatzherkunft des Kombinationsfeldes cboKategorien<\/p>\n

Damit das Kombinationsfeld nur das Feld mit den Bezeichnungen der Kategorien anzeigt, aber nicht den Inhalt des Primärschlüsselfeldes, stellen Sie außerdem die Eigenschaft Spaltenanzahl <\/b>auf den Wert 2 <\/b>und Spaltenbreiten <\/b>auf 0cm <\/b>ein. Dadurch ist das Feld KategorieID<\/b> zwar Bestandteil der Datensatzherkunft des Kombinationsfeldes und liefert auch den Wert der gebundenen Spalte des ausgewählten Datensatzes, aber es ist nicht sichtbar. Das Kombinationsfeld zeigt seine Daten nun wie in Bild 3 an.<\/p>\n

\"Auswahl<\/a><\/p>\n

Bild 3: Auswahl einer der Kategorien als Filter für die angezeigten Datensätze im Unterformular<\/p>\n

Unterformular filtern<\/h2>\n

Nun soll das Unterformular nach der Auswahl nur die Artikel anzeigen, die zur ausgewählten Kategorie gehören.<\/p>\n

Zum Verständnis sind zwei Hinweise notwendig: Sowohl das Kombinationsfeld zur Auswahl der als Filter zu verwendenden Kategorie als auch das Feld mit der jeweiligen Kategorie der Artikel im Unterformular enthalten nicht die Kategorien, sondern lediglich die Primärschlüsselfelder der Werte der Tabelle tblKategorien<\/b>.<\/p>\n

Wir müssen also den Filter für die Datenherkunft des Unterformulars so einstellen, dass das Feld KategorieID <\/b>als Vergleichswert den Zahlenwert aus dem Kombinationsfeld cboKategorien <\/b>erhält.<\/p>\n

Die Kurzfassung erfordert lediglich zwei Befehle (siehe Listing 1). Der erste stellt die Eigenschaft Filter <\/b>des im Unterformularsteuerelements (sfm-Ar-ti-keluebersicht<\/b>) enthaltenen For-mulars (Form<\/b>) im aktuellen Formular (Me<\/b>) auf den folgenden Ausdruck ein:<\/p>\n

Private Sub <\/span>cboKategorien_AfterUpdate()\r\n     Me!sfmArtikeluebersicht.Form.Filter = \"KategorieID = \" & Me!cboKategorien\r\n     Me!sfmArtikeluebersicht.Form.FilterOn = True<\/span>\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Unterformular nach einem Wert eines Steuerelements im Hauptformular filtern<\/p>\n
\"KategorieID = \" & Me!cboKategorien<\/pre>\n
Wenn das Kombinationsfeld (Me!cboKategorien<\/b>) beispielsweise den Wert 1 <\/b>enthält, sieht der Filterausdruck so aus:<\/p>\n
KategorieID = 1<\/pre>\n
Der zweite Befehl aktiviert den Filter, indem er die Eigenschaft FilterOn <\/b>auf den Wert True <\/b>einstellt.<\/p>\n
Dies ließe sich noch etwas übersichtlicher formulieren (siehe Listing 2). Wenn Sie beginnen, in VBA mit Ausdrücken wie mit diesem Filterausdruck zu arbeiten, sollten Sie den Filterausdruck bei Bedarf im Direktfenster ausgeben können. Dazu verwenden wir hier die Variable strFilter<\/b>. Diese füllt die Prozedur zunächst mit dem ausgewerteten Ausdruck „Kategorie = “ & Me!cboKategorien <\/b>und gibt dann den Inhalt der Variablen im Direktfenster aus (zum Beispiel Kategorie = 1<\/b>).<\/p>\n
Private Sub <\/span>cboKategorien_AfterUpdate()\r\n     Dim <\/span>strFilter As String<\/span>\r\n     strFilter = \"KategorieID = \" & Me!cboKategorien\r\n     Debug.Print<\/span> strFilter\r\n     With<\/span> Me!sfmArtikeluebersicht.Form\r\n         .Filter = strFilter\r\n         .FilterOn = True<\/span>\r\n     End With<\/span>\r\nEnd Sub<\/span><\/pre>\n
Listing 2: übersichtlichere Variante mit der Möglichkeit, den Filterausdruck im Direktfenster auszugeben<\/p>\n
Anschließend haben wir die beiden doch eher länglichen Ausdrücke zum Zuweisen und Aktivieren des Filters entzerrt, indem wir mit der With<\/b>-Anweisung das Objekt benennen, auf das sich die folgenden Eigenschaften beziehen. Wie Bild 4 zeigt, funktioniert das Filtern bereits wie gewünscht.<\/p>\n
Bild 4: Filtern nach einer der Kategorien<\/p>\n
Filter aufheben<\/h2>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t
\n\n\t\t\n\t\t
\"Filtern<\/a><\/p>\n