![\"Datenmodell](\"..\/fileadmin\/_temp_\/2025_06\/pic_1574_001.png\")
<\/p>\nIn den Beiträgen „Listen anzeigen mit dem ListView“-Steuerelement (www.access-im-unternehmen.de\/1572) und „Listen anzeigen mit dem ListView-Steuerelement“ (www.access-im-unternehmen.de\/1572) haben wir die Grundlagen zum ListView-Steuerelement und die Programmierung per VBA erläutert. Dort haben wir das ListView-Steuerelement erst einmal nur mit einfachen Beispieldaten gefüllt. Im vorliegenden Artikel gehen wir einen Schritt weiter und ziehen als Datenquelle echte Daten aus Tabellen oder Abfragen heran. Die Besonderheit des ListView-Steuerelements gegenüber dem herkömmlichen Listenfeld ist dabei, dass dieses nicht einfach an eine Datenquelle gebunden werden kann. Stattdessen müssen wir jeden einzelnen Eintrag per VBA-Code einfügen. Wie das gelingt, zeigen wir auf den folgenden Seiten.<\/b><\/p>\nDatenquellen für das ListView-Steuerelement<\/h2>\n
Grundsätzlich bieten sich alle Tabellen oder Abfragen als Datenquellen für die Einträge von ListView<\/b>-Steuerelementen an.<\/p>\n
Während wir in der Datenblattansicht von Formularen aber sogar den Inhalt von Nachschlagefeldern wie Anrede<\/b>, Kategorien <\/b>et cetera einfach aus der Tabelle übernehmen können, müssen wir beim ListView<\/b>-Steuerelement genau wie beim Listenfeld hier auf eine Abfrage zurückgreifen, welche nicht nur die Werte der jeweiligen Tabelle (wie zum Beispiel tblMitarbeiter<\/b>) berücksichtigt, sondern wir müssen auch noch die Lookup-Tabellen mit weiteren anzuzeigenden Feldern zur Abfrage hinzufügen.<\/p>\n
Sprich: Wir können nicht einfach den Inhalt eines Fremdschlüsselfeldes wie AnredeID <\/b>im ListView<\/b>-Steuerelement abbilden, da diese nur den enthaltenen Wert anzeigen würde, der den entsprechenden Datensatz in der Lookup-Tabelle referenziert. <\/p>\n
Auch eventuelle Format-Einstellungen, die wir in der zugrunde liegenden Tabelle oder Abfrage vorgenommen haben, um beispielsweise Inhalte von Datum\/Uhrzeit-Feldern darzustellen, müssen wir manuell nachbilden, da sonst nur die ursprünglichen Daten im ListView<\/b>-Steuerelement erscheinen würden.<\/p>\n
Mit diesen Informationen im Hinterkopf können wir gleich in das Füllen eines ListView<\/b>-Steuerelements aus einer Tabelle oder Abfrage starten.<\/p>\nIcons je nach Datensatz<\/h2>\n
Ein feiner Vorteil des ListView<\/b>-Steuerelements ist, dass wir die einzelnen Einträge mit Icons versehen können. Und dabei lassen sich sogar individuelle Icons je Datensatz realisieren. Nun stellt sich die Frage: Wenn wir beispielsweise Mitarbeiter in einem ListView<\/b>-Steuerelement anzeigen, wozu benötigen wir dann Icons? Wir können damit beispielsweise verschiedene Status markieren. So ließen sich etwa Mitarbeiter, die zum aktuellen Zeitpunkt verfügbar sind, mit einem bestimmten Icon markieren.<\/p>\nBeispiel: Mitarbeitertabelle<\/h2>\n
In diesem Beitrag wollen wir die Daten einer Tabelle namens tblMitarbeiter <\/b>samt Anreden aus der Tabelle tblAnreden<\/b>, Abteilungen aus der Tabelle tblAbteilungen <\/b>und Status <\/b>aus der Tabelle tblStatus <\/b>im ListView<\/b>-Steuerelement anzeigen. Das Datenmodell der Anwendung sieht wie in Bild 1 aus.<\/p>\n
<\/p>\n
Bild 1: Datenmodell der Beispieldatenbank<\/span><\/b><\/p>\n Der Tabelle tblStatus <\/b>haben wir gleich noch ein Feld namens Icon hinzugefügt, damit wir für die verschiedenen Status ein entsprechendes Icon im ListView<\/b>-Steuerelement hinterlegen können (siehe Bild 2).<\/p>\n Bild 2: Daten der Tabelle tblMitarbeiter<\/span><\/b><\/p>\n Wie eingangs erwähnt, können wir die Informationen wie die Anrede, den Status oder die Abteilung nicht im ListView<\/b>-Steuerelement anzeigen, wenn wir nur die Felder der Tabelle tblMitarbeiter <\/b>verwenden. Also erstellen wir eine Abfrage, die auch alle Lookup-Tabellen enthält und die wie in Bild 3 aussieht.<\/p>\n Bild 3: Entwurf der Abfrage mit allen Daten zu den Mitarbeitern<\/span><\/b><\/p>\n Nun stellen wir die Eigenschaften des ListView<\/b>-Steuerelements ein und legen die Spaltenüberschriften an. Das erledigen wir gleich beim Öffnen des Formulars im Ereignis Beim Laden<\/b>. Dafür hinterlegen wir die Ereignisprozedur aus Listing 1. Die Prozedur deklariert eine Variable für das ListView<\/b>-Objekt und füllt es anschließend. Dann stellt es verschiedene Eigenschaften für das ListView<\/b>-Steuerelement ein – Ansicht, Rahmenart, Schriftart, ganze Zeile markieren und so weiter.<\/p>\n Listing 1: Einrichten des ListView-Steuerelements<\/span><\/b><\/p>\n Anschließend leert es die Auflistung der Spaltenüberschriften, um eventuell bereits vorhandene Elemente zu löschen, und legt diese neu an. Dabei orientieren wir uns an den Bezeichnungen der Felder der zu verwendenden Abfrage qryMitarbeiter<\/b>. Anschließend ruft sie die Prozedur ListViewFuellen <\/b>auf, um die Daten aus der Tabelle einzufügen. Das erledigen wir in einer eigenen Prozedur, damit wir die Elemente auch nach dem Hinzufügen oder Löschen von Elementen aktualisieren können.<\/p>\n Die Prozedur ListViewFuellen<\/b> finden wir in Listing 2. Sie öffnet ein Recordset auf Basis der Abfrage qryMitarbeiter <\/b>im Modus dbOpenSnapshot<\/b>, weil wir nur lesenden Zugriff benötigen und dies performanter als dbOpenDynaset <\/b>ist.<\/p>\n Listing 2: Füllen des ListView-Steuerelements<\/span><\/b><\/p>\n Dann referenziert sie das ListView<\/b>-Steuerelement und löscht eventuell vorhandene Einträge mit der Clear<\/b>-Methode der ListItems<\/b>-Auflistung.<\/p>\n Dann durchläuft sie die Datensätze des Recordsets in einer Do While<\/b>-Schleife und legt zuerst das Hauptelement in der ersten Spalte an, hier gefüllt mit dem Feld MitarbeiterID<\/b>. Dieses ListItem<\/b>-Element referenzieren wir mit der Variablen objListItem<\/b>, damit wir für dieses weitere Unterelemente für die weiteren Spalten hinzufügen können.<\/p>\n Diese fügen wir mit der Add<\/b>-Methode der ListSubItems<\/b>-Auflistung hinzu. Dabei vergeben wir für jede Spalte einen Key<\/b>, der aus einem Buchstaben und dem Primärschlüsselwert besteht.<\/p>\n Wenn wir das Formular nun öffnen, finden wir die Ansicht aus Bild 4 vor. Für einen ersten Schuss nicht schlecht, aber das Erste, was uns nicht gefällt, sind die gleich breiten Spalten, die keine Rücksicht auf den Inhalt nehmen. Dem können wir jedoch Abhilfe schaffen. Dazu fügen wir einem neuen Modul namens mdlAPI<\/b> den Code aus Listing 3 hinzu.<\/p>\n Bild 4: ListView-Steuerelement mit Mitarbeitern, erster Versuch<\/span><\/b><\/p>\n Den Aufruf der dortigen Prozedur AutoSizeListViewColumns <\/b>fügen wir unten in der Prozedur ListViewFuellen <\/b>ein. Dabei übergeben wir mit dem ersten Parameter einen Verweis auf das zu optimierende ListView<\/b>-Steuerelement und geben mit dem zweiten Parameter an, dass nicht nur die Inhalte einer Spalte, sondern auch die Überschrift zur Optimierung herangezogen werden soll. Den Aufruf fassen wir die Deaktivierung und Aktivierung des Neuzeichnens ein, damit dieser Vorgang kein Flackern hervorruft:<\/p>\n Nun passen die Spaltenbreiten (siehe Bild 5).<\/p>\n Bild 5: ListView-Steuerelement mit Mitarbeitern, jetzt mit passenden Spaltenbreiten<\/span><\/b><\/p>\n Nun wollen wir ein Icon einfügen, dass den aktuellen Status des Mitarbeiters markiert. Dazu wollen wir vorn eine weitere Spalte einfügen, die ein Icon aufnimmt. Die Icons fügen wir wie im Beitrag Icons per ImageList und VBA im ListView-Control <\/b>(www.access-im-unternehmen.de\/1577<\/b>) zur Tabelle MSysResources <\/b>hinzu. Insgesamt fügen wir dieser die vier Icons sun<\/b>, doctor<\/b>, airplane <\/b>und workplace <\/b>hinzu. Diese tragen wir auch in der Tabelle tblStatus <\/b>für das Feld Icon <\/b>ein, damit wir darüber eine Beziehung zu dem zu verwendenden Eintrag der Tabelle MSysResources <\/b>herstellen können.<\/p>\n Außerdem nutzen wir die dort beschriebenen Techniken, um die Icons im ImageList<\/b>-Steuerelement zu hinterlegen. <\/p>\n Der Prozedur Form_Load <\/b>fügen wir dazu einige weitere Zeilen hinzu beziehungsweise passen diese an, die wir hier abgekürzt abbilden. All diese zusätzlichen Elemente beschreiben wir auch in dem oben genannten Beitrag (zusätzliche Zeilen markiert mit dem Kommentar “Für Icons<\/b>):<\/p>\n Wichtig ist, dass wir hier eine zusätzliche erste Spalte für das Icon hinterlegen.<\/p>\n Auch die Prozedur ListViewFuellen <\/b>passen wir an, wenn auch geringfügiger:<\/p>\n Wir ändern das Hinzufügen des Elements für die erste Spalte, indem wir hier eine leere Zeichenkette für das Element angeben und für den letzten Parameter SmallIcon <\/b>den Namen des Icons aus der Abfrage übergeben.<\/p>\n Das Hinzufügen der bisherigen ersten Spalte verschieben wir nach unten.<\/p>\n Wechseln wir nun in die Formularansicht, erhalten wir das Ergebnis aus Bild 6. Das sieht seht gut aus: Für jeden Mitarbeiter wird nun der Status durch das entsprechende Icon abgebildet.<\/p>\n Bild 6: ListView-Steuerelement mit Icons<\/span><\/b><\/p>\n Zu guter Letzt wollen wir noch eine Sortiermöglichkeit über einen Klick auf den Kopf der zu sortierenden Spalte hinzufügen. Dazu hinterlegen wir im Code einfach die folgende Prozedur:<\/p>\n Danach können wir mit einem Klick auf einen der Spaltenköpfe nach dem Inhalt der jeweiligen Spalte sortieren – im Beispiel nach dem Feld Vorname <\/b>(siehe Bild 7).<\/p>\n Bild 7: ListView-Steuerelement mit Sortierfunktion<\/span><\/b><\/p>\n Dies gelingt allerdings nicht wie gewünscht, wenn wir nach einem Zahlen- oder Datumsfeld sortieren. Auch hier wird nach dem enthaltenen Text sortiert, was dazu führt, dass zum Beispiel die Zahl 10 <\/b>vor der Zahl 2 <\/b>ausgegeben wird. Wie wir hier Abhilfe schaffen, zeigen wir in einem weiteren Teil dieser Beitragsreihe.<\/p>\n In diesem ersten Teil der Beitragsreihe haben wir gezeigt, wie wir ein Listenfeld mit den Daten aus Tabellen füllen können. Dabei haben wir alle anzuzeigenden Felder in einer Abfrage zusammengefasst.<\/p>\n Mit API-Unterstützung haben wir außerdem dafür gesorgt, dass die Spaltenbreiten sowohl an die Inhalte der Spaltenüberschriften als auch die eigentlichen Daten angepasst werden. Außerdem haben wir für das Feld Status<\/b> ein Icon hinzugefügt, das jeweils in der ersten Spalte angezeigt wird. Schließlich haben wir auch noch eine Sortierfunktion addiert, mit der man die Einträge durch einen Klick auf einen der Spaltenköpfe sortieren kann.<\/p>\n Im zweiten Teil der Beitragsreihe unter dem Titel ListView aus Tabellen oder Abfragen füllen, Teil 2 <\/b>(www.access-im-unternehmen.de\/1575<\/b>) schauen wir uns zum Beispiel die folgenden Funktionen an:<\/p>\n![\"Daten](\"..\/fileadmin\/_temp_\/2025_06\/pic_1574_002.png\")
<\/p>\nAbfrage zum Zusammenstellen der Daten für das ListView-Steuerelement<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2025_06\/pic_1574_003.png\")
<\/p>\nListView-Steuerelement einrichten<\/h2>\n
Private Sub <\/span>Form_Load()\r\n Dim <\/span>objListView As <\/span>MSComctlLib.ListView\r\n \r\n Set<\/span> objListView = Me.ctlListView.Object\r\n \r\n With<\/span> objListView\r\n .Appearance = ccFlat\r\n .BorderStyle = ccNone\r\n .Font.Name = \"Calibri\"\r\n .Font.Size = 11\r\n .View = lvwReport\r\n .FullRowSelect = True<\/span>\r\n .ColumnHeaders.Clear\r\n .ColumnHeaders.Add , \"c1\", \"ID\"\r\n .ColumnHeaders.Add , \"c2\", \"Anrede\"\r\n .ColumnHeaders.Add , \"c3\", \"Vorname\"\r\n .ColumnHeaders.Add , \"c4\", \"Nachname\"\r\n .ColumnHeaders.Add , \"c5\", \"Telefon\"\r\n .ColumnHeaders.Add , \"c6\", \"E-Mail\"\r\n .ColumnHeaders.Add , \"c7\", \"Geburtstag\"\r\n .ColumnHeaders.Add , \"c8\", \"Abteilung\"\r\n .ColumnHeaders.Add , \"c9\", \"Status\"\r\n End With<\/span>\r\n \r\n Call<\/span> ListViewFuellen\r\nEnd Sub<\/span><\/pre>\nListView-Steuerelement mit Mitarbeiterdaten füllen<\/h2>\n
Private Sub <\/span>ListViewFuellen()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>objListView As <\/span>MSComctlLib.ListView\r\n Dim <\/span>objListItem As <\/span>MSComctlLib.ListItem\r\n \r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM qryMitarbeiter\", dbOpenSnapshot)\r\n \r\n Set<\/span> objListView = Me.ctlListView.Object\r\n objListView.ListItems.Clear\r\n \r\n Do While<\/span> Not<\/span> rst.EOF\r\n Set<\/span> objListItem = objListView.ListItems.Add(, \"a\" & rst!MItarbeiterID, rst!MItarbeiterID)\r\n With<\/span> objListItem.ListSubItems\r\n .Add , \"b\" & rst!MitarbeiterID, rst!Anrede\r\n .Add , \"c\" & rst!MitarbeiterID, rst!Vorname\r\n .Add , \"d\" & rst!MitarbeiterID, rst!Nachname\r\n .Add , \"e\" & rst!MitarbeiterID, rst!Telefon\r\n .Add , \"f\" & rst!MitarbeiterID, rst!EMail\r\n .Add , \"g\" & rst!MitarbeiterID, rst!Geburtsdatum\r\n .Add , \"h\" & rst!MitarbeiterID, rst!Abteilung\r\n .Add , \"i\" & rst!MitarbeiterID, rst!Status\r\n End With<\/span>\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n rst.Close\r\n Set<\/span> rst = Nothing\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\n![\"ListView-Steuerelement](\"..\/fileadmin\/_temp_\/2025_06\/pic_1574_004.png\")
<\/p>\nMe.Painting = False<\/span>\r\nAutoSizeListViewColumns objListView, True<\/span>\r\nMe.Painting = True<\/span><\/pre>\n![\"ListView-Steuerelement](\"..\/fileadmin\/_temp_\/2025_06\/pic_1574_005.png\")
<\/p>\nIcon für den Status einfügen<\/h2>\n
Private Sub <\/span>Form_Load()\r\n Dim <\/span>objListView As <\/span>MSComctlLib.ListView\r\n Dim <\/span>objImageList As <\/span>MSComctlLib.ImageList ''Für Icons\r\n \r\n Set<\/span> objListView = Me.ctlListView.Object\r\n Set<\/span> objImageList = Me.ctlImageList.Object ''Für Icons\r\n \r\n objImageList.ImageHeight = 16 ''Für Icons\r\n objImageList.ImageWidth = 16 ''Für Icons\r\n Call<\/span> ImageListFuellen ''Für Icons\r\n \r\n With<\/span> objListView\r\n ...\r\n .SmallIcons = Me.ctlImageList.Object ''Für Icon\r\n .ColumnHeaders.Clear\r\n .ColumnHeaders.Add , \"c0\", \"\" ''Für Icon\r\n ...\r\n End With<\/span>\r\n \r\n Call<\/span> ListViewFuellen\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>ListViewFuellen()\r\n ... \r\n Do While<\/span> Not<\/span> rst.EOF\r\n Set<\/span> objListItem = objListView.ListItems.Add(, _\r\n \"z\" & rst!MitarbeiterID, \"\", , CStr(rst!Icon)) \r\n With<\/span> objListItem.ListSubItems\r\n .Add , \"a\" & rst!MitarbeiterID, rst!MitarbeiterID\r\n ...\r\n End With<\/span>\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n ...\r\nEnd Sub<\/span><\/pre>\n![\"ListView-Steuerelement](\"..\/fileadmin\/_temp_\/2025_06\/pic_1574_006.png\")
<\/p>\nSortierfunktion einfügen<\/h2>\n
Private Sub <\/span>ctlListView_ColumnClick(ByVal ColumnHeader As Object<\/span>)\r\n Static <\/span>intAktuelleSortierspalte As Integer<\/span>\r\n Static <\/span>bolAufsteigend As Boolean<\/span>\r\n Dim <\/span>objListView As <\/span>MSComctlLib.ListView\r\n Set<\/span> objListView = Me.ctlListView.Object\r\n objListView.SortKey = ColumnHeader.Index - 1\r\n If <\/span>intAktuelleSortierspalte = ColumnHeader.Index - 1 Then<\/span>\r\n bolAufsteigend = Not<\/span> bolAufsteigend\r\n objListView.SortOrder = Abs(bolAufsteigend)\r\n Else<\/span>\r\n objListView.SortOrder = lvwAscending\r\n End If<\/span>\r\n objListView.Sorted = True<\/span>\r\n intAktuelleSortierspalte = ColumnHeader.Index - 1\r\nEnd Sub<\/span><\/pre>\n![\"ListView-Steuerelement](\"..\/fileadmin\/_temp_\/2025_06\/pic_1574_007.png\")
<\/p>\nZusammenfassung und Ausblick<\/h2>\n