<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Die meisten Windows-Anwendungen bieten komfortable Möglichkeiten, wenn es um die Sortierung von Listen geht. Der Windows Explorer verfügt beispielsweise über je ein Feld oberhalb jeder Spalte, mit dem Sie die Sortierung der gewünschten Spalte einstellen können. Listenfelder in Access haben keine solche Eigenschaft und sind diesbezüglich recht unkomfortabel. Im vorliegenden Beitrag erfahren Sie, wie Sie nicht nur komfortabel sortieren, sondern auch noch filtern können.<\/b><\/p>\n
Listenfelder dienen der übersichtlichen Anzeige von Daten aus einer oder mehreren Tabellen. Die übersicht geht aber beizeiten verloren – beispielsweise, wenn die Anzahl der Datensätze so groß ist, dass die Höhe des Listenfeldes zur gleichzeitigen Anzeige aller Datensätze nicht ausreicht.<\/p>\n
Auch die fehlende Sortierung kann zu einem Problem werden – vor allem in Kombination mit größeren Datenmengen. Damit sind auch bereits die Gegenmittel gefunden: Sortieren und Filtern. Bleibt die Frage, wie die Funktionalität zu realisieren ist.<\/p>\n
Im Windows Explorer finden Sie z. B. geeignete Steuerelemente zum Sortieren der unterschiedlichen Felder in aufsteigender und absteigender Reihenfolge in der Kopfzeile der Liste (siehe Bild 1).<\/p>\n
![](\"..\/fileadmin\/_temp_\/{13E33A93-6B76-4598-9E7E-AD6919B6B832}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Sortierung im Windows Explorer<\/span><\/b><\/p>\n Durch einen Klick auf eine der überschriften können Sie erstens das Feld auswählen, nach dessen Inhalt sortiert werden soll, und zweitens die Richtung der Sortierung festlegen.<\/p>\n Daten sortieren<\/b><\/p>\n Die Sortierung von Daten kann z. B. nach dem Alphabet oder nach Zahlenwerten erfolgen -technisch handelt es sich dabei um den gleichen Vorgang. Sortierungen erfolgen nämlich in der Regel nach dem Zahlenwert der Anfangsbuchstaben, der in einer ASCII-Tabelle festgelegt ist.<\/p>\n Es kann in zwei Richtungen sortiert werden – aufwärts und abwärts. Da die Sortierung später per SQL durchgeführt wird, sind hier schon einmal die entsprechenden Schlüsselwörter:<\/p>\n sortiert eine Tabelle aufsteigend nach einem Wert, während<\/p>\n nach dem gleichen Wert in absteigender Reihenfolge sortiert.<\/p>\n Wenn Sie nach mehreren Werten sortieren möchten, können Sie die weiteren Feldnamen gefolgt von dem jeweiligen Schlüsselwort – also DESC oder ASC – durch Komma getrennt anhängen. Die Sortierung erfolgt dabei in der Reihenfolge der Angabe der Sortierkriterien.<\/p>\n <\/b><\/p>\n Bild 2: Beispiel eines Listenfeldes mit Sortier- und Filterfunktion<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 3: Datenherkunft des Listenfeldes<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 4: Eigenschaften des Listenfeldes<\/span><\/b><\/p>\n Daten filtern<\/b><\/p>\n Das Filtern von Daten kann die Menge der angezeigten Daten in den meisten Fällen soweit einschränken, dass die Anzahl der betroffenen Datensätze überschaubar wird. <\/p>\n Das wird umso einfacher, wenn Sie nach mehreren Feldern gleichzeitig filtern können.<\/p>\n Die Aufgabenverwaltung aus dem Beitrag Aufgabenverwaltung mit Access in der vorliegenden Ausgabe von Access im Unternehmen bietet ein geeignetes Listenfeld zur Demonstration effektiven Filterns und Sortierens (siehe Bild 2).<\/p>\n Allerdings ist der Aufbau des dortigen Listenfeldes relativ umfangreich, sodass die Funktionalität für den Einstieg an einem einfacheren Beispiel erläutert werden soll.<\/p>\n Als Beispieldaten halten – wie so oft – die Tabellen der Nordwind-Datenbank her. Zum Nachvollziehen der nachfolgenden Beispiele erstellen Sie am besten eine neue Datenbank und importieren die Tabellen Artikel, Kategorien und Lieferanten. <\/p>\n Das FormularfrmArtikeluebersicht<\/b><\/p>\n Anschließend legen Sie ein neues Formular namens frmArtikeluebersicht an. Fügen Sie dem Formular ein neues Listenfeld hinzu und geben Sie ihm den Namen lstArtikel.<\/p>\n Erstellen Sie als Datensatzherkunft des Listenfeldes eine neue Abfrage namens qryArtikelMitDetailinformationen. Den Aufbau der Abfrage können Sie Bild 3 entnehmen.<\/p>\n Füllen des Listenfeldes<\/b><\/p>\n Anschließend weisen Sie den Namen der neuen Abfrage der Eigenschaft Datensatzherkunft des Listenfeldes hinzu.<\/p>\n <\/b><\/p>\n Bild 5: Formularansicht des Formulars frmArtikeluebersicht<\/span><\/b><\/p>\n Quellcode 1<\/b><\/p>\n Stellen Sie anschließend die Eigenschaften Spaltenanzahl und Spaltenbreiten so ein, dass alle gewünschten Informationen in der richtigen Breite angezeigt werden (siehe Bild 4).<\/p>\n Die Formularansicht sollte schließlich wie in Bild 5 aussehen.<\/p>\n Das Filtern der Listenfelder soll nach Kriterien erfolgen, die Sie mit entsprechenden Text- oder Kombinationsfeldern eingeben bzw. auswählen.<\/p>\n Nachdem Sie das Listenfeld erstellt, die Datensatzherkunft des Listenfeldes zugewiesen und die Spaltenbreiten justiert haben, legen Sie die gewünschten Steuerelemente oberhalb der entsprechenden Spalten an – natürlich in der gleichen Breite wie die Spaltenbreite des Listenfeldes.<\/p>\n Eine gute Hilfe beim Ausrichten und dem Einstellen der Steuerelementbreite ist die Eigenschaft Spaltenbreiten des Listenfeldes (siehe Bild 4). Aufgrund der hier angegebenen Zahlen können Sie die Position und die Breite der Steuerelemente sehr genau festlegen. <\/p>\n Je nach der Beschaffenheit des Inhalts einer Spalte des Listenfeldes werden Sie entweder ein Textfeld oder ein Kombinationsfeld zum Setzen des Filterwertes verwenden.<\/p>\n Bei Text- oder Memofeldern verwenden Sie in jedem Fall ein Textfeld, während Sie bei Feldern, deren Inhalt nicht in der eigentlichen, sondern einer verknüpften Tabelle gespeichert ist, vermutlich auch ein Kombinationsfeld verwenden.<\/p>\n Dieses Kombinationsfeld zeigt dann alle Werte der verknüpften Tabelle als Filteroptionen an. Wenn Sie Textfelder als Filteroption verwenden, können Sie natürlich auf Platzhalter wie Fragezeichen () oder Sternchen (*) zurückgreifen.<\/p>\n <\/p>\n Filtern per Textfeld<\/b><\/p>\n Wenn Sie per Textfeld filtern, müssen Sie – was die Benutzeroberfläche angeht – nur das entsprechende Textfeld über der gewünschten Spalte platzieren und den Wert seiner Eigenschaft Name eingeben, da das Feld später vom Code aus angesprochen werden muss.<\/p>\n Im vorliegenden Beispiel soll zunächst nach dem Feld Artikel gefiltert werden. Nennen Sie das Textfeld zur Eingabe des Filterkriteriums daher txtArtikelFilter.<\/p>\n Nun müssen Sie für die Ereigniseigenschaft Nach Aktualisierung eine Prozedur hinterlegen, die den Filtervorgang in Gang setzt (s. Quellcode 1). Das Ereignis Nach Aktualisierung wird nach der änderung des Textfeldinhalts ausgelöst.<\/p>\n Die Prozedur FilterUndSortierung führt anschließend den Filtervorgang aus, indem sie die Datensatzherkunft des Listenfeldes anpasst (s. Quellcode 2).<\/p>\n Die Prozedur bildet zunächst den Grundstein für die neue Datensatzherkunft des Listenfeldes und speichert es anschließend in der Variablen strSQLFilter.<\/p>\n Quellcode 2<\/b><\/p>\n Anschließend überprüft sie, ob das Textfeld mit dem Ausdruck, nach dem gefiltert werden soll, gefüllt ist. Falls ja, wird ein entsprechender Ausdruck an die Zeichenkette strSQLFilter angehängt. Falls das Textfeld keinen Inhalt hat, ist die neue Datensatzherkunft gleich der alten.<\/p>\n Schließlich hängt die Prozedur die Zeichenkette strSQLFilter – soweit sie nicht leer ist – der bereits bestehenden Zeichenkette strSQL mit einem vorangestellten WHERE an.<\/p>\n Filtern per Kombinationsfeld<\/b><\/p>\n Die Felder Kategorie und Lieferant beziehen ihre Werte aus den verknüpften Tabellen tblKategorien und tblLieferanten. Da die Werte also ohnehin aus einer festen Menge von Werten stammen, können Sie statt eines Textfeldes auch ein Kombinationsfeld für die Filterung bereitstellen. Der Benutzer kann den gesuchten Wert dann bequem aus dem Kombinationsfeld auswählen.<\/p>\n Legen Sie also z. B. über der Spalte mit den Lieferanten ein neues Kombinationsfeld an.<\/p>\n Geben Sie als Namen des Kombinationsfeldes cboLieferantenFilter an und verwenden Sie den folgenden Ausdruck als Datensatzherkunft:<\/p>\n Die Abfrage fügt den Werten der Tabelle Lieferanten noch den Eintrag <kein Filter> hinzu. Dies ist erforderlich, um dem Benutzer die Möglichkeit zu geben, den Filter auf einfache Weise wieder zu entfernen.<\/p>\n Stellen Sie die Eigenschaften Spaltenanzahl und Spaltenbreite auf die Werte 2 bzw. 0 ein. Der Inhalt des Kombinationsfeldes könnte nun beispielsweise wie in Bild 6 aussehen.<\/p>\n <\/b><\/p>\n Bild 6: Kombinationsfeld zur Auswahl von Kategorien als Filterkriterium<\/span><\/b><\/p>\n Nun fehlt noch die Funktionalität, die den Listenfeldinhalt nach der ausgewählten Kategorie filtert.<\/p>\n Dazu hinterlegen Sie einfach eine Prozedur für die Ereigniseigenschaft Nach Aktualisierung des Kombinationsfeldes, das die Anweisung FilterUndSortierung enthält.<\/p>\n Dadurch ruft Access nach der änderung des Eintrages die Prozedur FilterUndSortierung auf.<\/p>\n <\/b><\/p>\n Bild 7: Hinzufügen von Beschriftungsfeldern<\/span><\/b><\/p>\n Quellcode 3<\/b><\/p>\n Damit die Prozedur den Lieferantenfilter auch anwendet, müssen Sie die Prozedur aus Quellcode 3 noch erweitern. Fügen Sie an der Stelle “Hier weitere Filterkriterien eintragen die Zeilen aus Quellcode 3 ein.<\/p>\n Die If -Abfrage überprüft, ob das Kombinationsfeld einen anderen Wert als 0 hat und erweitert das Filterkriterium um den entsprechenden Ausdruck.<\/p>\n Der Wert 0 entspricht der Auswahl von <kein Filter>. Ist der Wert des Kombinationsfeldes 0, wird der Inhalt der If -Abfrage nicht ausgeführt. Für weitere zu filternde Felder gehen Sie analog vor.<\/p>\n Um den Komfort des Listenfeldes weiter zu erhöhen, fügen Sie den einzelnen Spalten nun noch die Funktionalität zum Sortieren nach verschiedenen Kriterien hinzu.<\/p>\n Beschriften derListenfeldspalten<\/b><\/p>\n Zur besseren übersicht ergänzen Sie die Spalten des Listenfeldes zunächst um die entsprechenden Beschriftungsfelder (siehe Bild 7).<\/p>\n Sortieren per Schaltflächen<\/b><\/p>\n Für die Sortierung der Spalten des Listenfeldes sollen drei unterschiedliche Anordnungen gelten:<\/p>\n Zur Darstellung unterschiedlicher Zustände lassen sich am ehesten Optionsgruppen verwenden. Leider ist dieser Ansatz aus Platzgründen nicht besonders empfehlenswert.<\/p>\n Die Sortierung im Windows Explorer verwendet beispielsweise einen Pfeil, der je nach Sortierung nach unten bzw. nach oben zeigt.<\/p>\n Eine ähnliche Darstellung soll auch für die Sortierfunktion des Listenfeldes verwendet werden.<\/p>\n Um unter den drei Möglichkeiten auswählen zu können, verwenden Sie drei Schaltflächen mit unterschiedlichen Symbolen. Die Symbole können beispielsweise folgendermaßen aussehen:<\/p>\n Symbol<\/b><\/p>\n<\/td>\n Bedeutung<\/b><\/p>\n<\/td>\n<\/tr>\n Grauer Pfeil nach oben, grauer Pfeil nach unten<\/p>\n<\/td>\n Keine Sortierung<\/p>\n<\/td>\n<\/tr>\n Grüner Pfeil nach unten, roter Pfeil nach oben<\/p>\n<\/td>\n Aufsteigende Sortierung<\/p>\n<\/td>\n<\/tr>\n Grüner Pfeil nach oben, roter Pfeil nach unten<\/p>\n<\/td>\n Absteigende Sortierung<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Symbole für Sortierungen<\/b><\/p>\n Und nun kommt der Trick:<\/p>\n Die Schaltflächen werden nach der Erstellung alle an die gleiche Stelle positioniert, sodass beim Durchklicken nur die jeweils aktuelle Schaltfläche angezeigt werden kann.<\/p>\n Quellcode 4<\/b><\/p>\n Zunächst müssen Sie jedoch die Schaltflächen erstellen. Als Symbole verwenden Sie die auf der Heft-CD vorhandenen .bmp -Dateien. Gehen Sie folgendermaßen vor:<\/p>\n Wiederholen Sie den Vorgang für die drei Schaltflächen für die Spalte, die Sie sortieren möchten. Die Namen der Schaltflächen lauten nun beispielsweise folgendermaßen:<\/p>\n Legen Sie nun für jede der drei Schaltflächen eine Ereignisprozedur an, die beim Klicken auf die Schaltfläche ausgelöst wird. Die Prozedur aus Quellcode 4 zeigt beispielhaft das Aussehen einer der Ereignisprozeduren.<\/p>\n Sie setzt voraus, dass die Eigenschaft Sichtbar für die beiden anderen Schaltflächen auf den Wert Nein eingestellt ist.<\/p>\n Die Prozedur macht zunächst die Schaltfläche cmdArtikelnameSortAufsteigend sichtbar und gibt ihr den Fokus. Diese Reihenfolge ist wichtig, da Sie einem nicht sichtbaren Steuerelement keinen Fokus geben können.<\/p>\n Möglicherweise fragen Sie sich nun, warum Sie der nun sichtbaren Schaltfläche den Fokus geben sollen. Der Grund ist: Die soeben betätigte Schaltfläche soll nun nicht mehr sichtbar sein.<\/p>\n Da nicht sichtbare Steuerelemente aber keinen Fokus haben dürfen, müssen Sie ihn der Schaltfläche entziehen, bevor Sie der Eigenschaft Sichtbar den Wert Nein zuweisen.<\/p>\n Nach dem Wechseln der sichtbaren Schaltfläche startet die Prozedur noch die Prozedur FilterUndSortierung.<\/p>\n Wenn Sie nun die drei Schaltflächen und für jede Schaltfläche jeweils eine Prozedur zur Aktivierung der jeweils nächsten Schaltfläche erstellt haben, können Sie die drei Schaltflächen übereinanderlegen und in die gewünschte Position bringen.<\/p>\n Anpassen der ProzedurFilterUndSortierung<\/b><\/p>\n Damit die Schaltflächen nun auch noch eine Sortierung bewirken, müssen Sie die Prozedur FilterUndSortierung anpassen. überlegen Sie zunächst, wie Sie die geforderte Sortierung herausfinden möchten.<\/p>\n Quellcode 5<\/b><\/p>\n Die erste Möglichkeit ist, beim Ausführen der Ereigniseigenschaft der aktuellen Schaltfläche in einem nicht sichtbaren Feld einen entsprechenden Wert (z. B. keine, aufsteigend, absteigend) zu speichern. Sie können allerdings auch einfach von der Prozedur FilterUndSortierung aus überprüfen, welche Schaltfläche gerade sichtbar ist, und die entsprechende Sortierung einstellen.<\/p>\n Wie das im Detail aussieht, zeigt der Codeschnipsel aus Quellcode 5. Fügen Sie ihn in Quellcode 2 an die Stelle “Hier Sortierkriterien eintragen ein.<\/p>\n <\/b><\/p>\nORDER BY <Feldname> ASC<\/pre>\n
ORDER BY <Feldname> DESC<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{13E33A93-6B76-4598-9E7E-AD6919B6B832}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{13E33A93-6B76-4598-9E7E-AD6919B6B832}\/pic003.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{13E33A93-6B76-4598-9E7E-AD6919B6B832}\/pic004.png\")
<\/p>\nHinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{13E33A93-6B76-4598-9E7E-AD6919B6B832}\/pic005.png\")
<\/p>\nPrivate Sub txtAufgabeFilter_AfterUpdate()\r\n FilterUndSortierung\r\nEnd Sub<\/pre>\n
Praxis-Tipp<\/h3>\n
Sub FilterUndSortierung()\r\n Dim strSQL As String\r\n Dim strSQLFilter As String\r\n Dim strSQLSort As String\r\n strSQL = \"SELECT * FROM qryArtikelMitDetailinformationen\"\r\n If Len(Me.txtArtikelFilter) > 0 Then\r\n strSQLFilter = strSQLFilter & \", Artikelname LIKE ''\" & Me.txtArtikelFilter _ & \"''\"\r\n End If\r\n ''Hier weitere Filterkriterien eintragen\r\n If Len(strSQLFilter) > 0 Then\r\n strSQL = strSQL & \" WHERE \" & Mid(strSQLFilter, 2, Len(strSQLFilter) - 1)\r\n End If\r\n ''Hier Sortierkriterien eintragen\r\n Me.lstArtikeluebersicht.RowSource = strSQL\r\nEnd Sub<\/pre>\n
SELECT [Lieferant-Nr], Firma \r\nFROM Lieferanten \r\nUNION \r\nSELECT 0 AS [Lieferant-Nr], \"<kein Filter>\" AS Firma \r\nFROM Lieferanten;<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{13E33A93-6B76-4598-9E7E-AD6919B6B832}\/pic006.png\")
<\/p>\nErweitern des Sortiervorgangs<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{13E33A93-6B76-4598-9E7E-AD6919B6B832}\/pic007.png\")
<\/p>\nIf Me.cboLieferantenFilter <> 0 Then\r\n strSQLFilter = strSQLFilter & \", [Lieferanten-Nr] _ = \" & Me.cboLieferantenFilter\r\nEnd If<\/pre>\n
Darstellung unterschiedlicher Sortierungsrichtungen<\/h3>\n
Sortieren per Schaltfläche<\/h3>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n Private Sub cmdArtikelnameSortNeutral_Click()\r\n Me.cmdArtikelnameSortAufsteigend.Visible = True\r\n Me.cmdArtikelnameSortAufsteigend.SetFocus\r\n Me.cmdArtikelnameSortNeutral.Visible = False\r\n FilterUndSortierung\r\nEnd Sub<\/pre>\n
If Me.cmdArtikelnameSortAbsteigend.Visible = True Then\r\n strSQLSort = strSQLSort & \", Artikelname DESC\"\r\nEnd If\r\nIf Me.cmdArtikelnameSortAufsteigend.Visible = True Then\r\n strSQLSort = strSQLSort & \", Artikelname ASC\"\r\nEnd If\r\nIf Len(strSQLSort) > 0 Then\r\n strSQL = strSQL & \" ORDER BY\" & Mid(strSQLSort, 2, Len(strSQLSort) - 1)\r\nEnd If<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{13E33A93-6B76-4598-9E7E-AD6919B6B832}\/pic008.png\")
<\/p>\n