{"id":55000173,"date":"2013-10-01T00:00:00","date_gmt":"2020-01-24T15:58:41","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=173"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"ListViewSteuerelement_Kontrollkaestchen_nutzen","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/ListViewSteuerelement_Kontrollkaestchen_nutzen.html","title":{"rendered":"ListView-Steuerelement: Kontrollkästchen nutzen"},"content":{"rendered":"

Im Gegensatz zum in Access eingebauten Listenfeld-Steuerelement kann das ListView-Steuerelement auch ein Kontrollkästchen vor jeder Zeile anzeigen. Das ist eine wirklich praktische Funktion, wenn Sie Datensätze für verschiedene Aktionen auswählen möchten oder einfach einen bestimmten Status darstellen wollen. Dieser Artikel zeigt, welche Varianten es zur Darstellung des Kontrollkästchens gibt und wie Sie dieses aktivieren oder deaktivieren und es an Daten eines Feldes binden.<\/p>\n

Beispieldatenbank<\/h2>\n

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

Kontrollkästchen anzeigen<\/h2>\n

Für das erste Beispiel fügen Sie einfach einem Formular ein ListView<\/b>-Steuerelement hinzu und stellen seine Eigenschaft Name <\/b>auf den Wert lvwKontrollkaestchen<\/b> ein (siehe Formular frmKontrollkaestchenEinfach <\/b>in der Beispieldatenbank).<\/p>\n

Die Eigenschaften stellen wir, da sich das ListView-Steuerelement ohnehin nur per VBA-Code füllen lässt, direkt komplett per VBA ein – das Eigenschaftsfenster dieses Steuerelements lassen wir damit außen vor. Wenn Sie das Formular in der Entwurfsansicht öffnen, wählen Sie im Eigenschaftsfenster den Eintrag Formular <\/b>aus, stellen für die Eigenschaft Beim Laden <\/b>den Wert [Ereignisprozedur] <\/b>ein und klicken auf die Schaltfläche mit den drei Punkten.<\/p>\n

Die nun im VBA-Editor erscheinende leere Prozedur ergänzen Sie wie folgt und tragen außerdem die Deklarationszeile für das Objekt zum Referenzieren des ListView-Steuerelements oben im Modul ein:<\/p>\n

Dim <\/span>objLvwKontrollkaestchen As <\/span>MSComctlLib.ListView\r\nPrivate Sub <\/span>Form_Load()\r\n     Set<\/span> objLvwKontrollkaestchen = _\r\n         Me!lvwKontrollkaestchen.Object\r\n     With<\/span> objLvwKontrollkaestchen\r\n         .View = lvwReport\r\n         .Appearance = ccFlat\r\n         .BorderStyle = ccNone\r\n         .FlatScrollBar = False<\/span>\r\n         .GridLines = True<\/span>\r\n         .ColumnHeaders.Clear\r\n         .Checkboxes = True<\/span>\r\n         .ColumnHeaders.Add , , \"Listeneinträge\", 5000\r\n         .ListItems.Clear\r\n         .ListItems.Add , , \"Eintrag 1\"\r\n         .ListItems.Add , , \"Eintrag 2\"\r\n         .ListItems.Add , , \"Eintrag 3\"\r\n     End With<\/span>\r\nEnd Sub<\/span><\/pre>\n
Ein Wechseln in die Formularansicht liefert nun das ListView<\/b>-Steuerelement aus Bild 1. Die Prozedur stellt dazu beim Laden des Formulars zunächst einige Eigenschaften zur Definition des Aussehens ein und legt die Anzahl der Spalten sowie die Spaltenüberschrift und -breite fest.<\/p>\n
\"Kontrollkästchen<\/a><\/p>\n
Bild 1: Kontrollkästchen und erstes Feld in einer Spalte <\/p>\n
Danach folgt bereits die entscheidende Eigenschaft: Mit .Checkboxes = True <\/b>aktivieren Sie die Anzeige der Kontrollkästchen in der linken Spalte. Danach fügt die Prozedur noch drei Beispieleinträge zum ListView<\/b>-Steuerelement hinzu.<\/p>\n
Kontrollkästchen per Code aktivieren<\/h2>\n
Wenn Sie gleich beim öffnen des Formulars einen Eintrag ankreuzen möchten, müssen Sie den betroffenen Eintrag mit einer wie folgt deklarierten Objektvariablen referenzieren:<\/p>\n
Dim <\/span>objListItem As <\/span>MSComctlLib.ListItem<\/pre>\n
Dieser Variablen weisen Sie den Eintrag dann gleich beim Anlegen zu:<\/p>\n
Set<\/span> objListItem = .ListItems.Add(, , \"Eintrag 1\")<\/pre>\n
Damit können Sie dann schließlich die Checked<\/b>-Eigenschaft auf den Wert True <\/b>einstellen, um den Eintrag anzuhaken:<\/p>\n
objListItem.Checked = True<\/span><\/pre>\n
Um den Eintrag wieder zu deaktivieren, stellen Sie die gleiche Eigenschaft auf False <\/b>ein:<\/p>\n
objListItem.Checked = False<\/span><\/pre>\n
Checkbox-Zustand ermitteln<\/h2>\n
Wie finden Sie nun heraus, ob die Checkbox eines Eintrags angehakt ist oder nicht Im Direktfenster gelingt dies beispielsweise wie folgt, wenn Sie nur den Index des betroffenen Eintrags kennen (der Index beginnt mit der Zahl 1<\/b>):<\/p>\n
 Forms!frmKontrollkaestchenEigeneSpalte!lvwKontrollkaestchen.ListItems(2).Checked<\/pre>\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