{"id":55000170,"date":"2013-06-01T00:00:00","date_gmt":"2020-01-24T15:58:39","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=170"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"ListViewSteuerelement_Daten_bearbeiten","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/ListViewSteuerelement_Daten_bearbeiten.html","title":{"rendered":"ListView-Steuerelement: Daten bearbeiten"},"content":{"rendered":"

In einem gewissen Rahmen bietet das ListView-Steuerelement auch die Möglichkeit, Daten zu bearbeiten. Dazu können Sie beispielsweise den Inhalt der ersten Spalte anklicken, den Eintrag ändern und die änderung übernehmen. Außerdem können Sie mit dem ListView-Steuerelement ein Kontrollkästchen vor jedem Eintrag anzeigen, um die Einträge auszuwählen oder damit ein Ja\/Nein-Feld abzubilden. Wie dies gelingt, zeigt der vorliegende Artikel.<\/p>\n

Beispieldatenbank<\/h2>\n

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

Erste Spalte ändern<\/h2>\n

Im folgenden Beispiel soll der Benutzer direkt im ListView-Steuerelement die in der ersten Spalte angezeigten Daten ändern können. Das setzt voraus, das die erste Spalte auch Daten anzeigt, die man am ehesten schnell mal ändern möchte. Die Folgerung ist, dass die erste Spalte nun nicht mehr den Primärschlüsselwert der zugrunde liegenden Tabelle anzeigen kann. Dieser soll aber in den meisten Fällen ohnehin nicht erscheinen.<\/p>\n

Um den Wert des in der ersten Spalte angezeigten Wertes zu ändern, soll der Benutzer diesen einfachen anklicken, damit er wie etwa ein Dateiname im Windows Explorer zur manuellen Bearbeitung vorbereitet wird (siehe Bild 1). Der Benutzer ersetzt dann den vorhandenen Text durch den gewünschten Text und bestätigt die Eingabe durch das Betätigen der Eingabetaste oder anderweitigem Verschieben des Fokus auf ein anderes Element des Formulars.<\/p>\n

\"ändern<\/a><\/p>\n

Bild 1: ändern der in der ersten Spalte angezeigten Daten<\/p>\n

Damit das Formular frmListViewDatenAendern <\/b>mit den angezeigten Daten der Tabelle tblKunden <\/b>gefüllt wird, deklarieren wir zunächst eine Objektvariable, mit der wir auf die Eigenschaften und Methoden des ListView<\/b>-Steuerelements zugreifen, im Klassenmodul Form_frmListViewDatenAendern<\/b>:<\/p>\n

Dim <\/span>objLvwKunden As <\/span>MSComctlLib.ListView<\/pre>\n
Dieses wird im Ereignis Form_Load <\/b>mit den benötigten Eigenschaften versehen (weitere Informationen hierzu in den Artikeln Das ListView-Steuerelement – Grundlagen <\/b>und ListView-Steuerelement mit Daten füllen<\/b>). Die Prozedur Form_Load <\/b>legen Sie an, indem Sie die Formulareigenschaft Beim Laden <\/b>auf [Ereignisprozedur] <\/b>einstellen und dann auf die Schaltfläche mit den drei Punkten klicken. Füllen Sie die nun erscheinende Prozedur im VBA-Editor wie folgt auf, um die Basiseinstellungen und Spalteneigenschaften vorzunehmen:<\/p>\n
Private Sub <\/span>Form_Load()\r\n     Set<\/span> objLvwKunden = Me!lvwKunden.Object\r\n     With<\/span> objLvwKunden\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         .ColumnHeaders.Add , , \"Firma\", 4500\r\n         .ColumnHeaders.Add , , \"Kundencode\", 1500\r\n         .ListItems.Clear\r\n     End With<\/span>\r\n     ListViewFuellen objLvwKunden\r\nEnd Sub<\/span><\/pre>\n
Das Füllen des ListView<\/b>-Steuerelements mit den Daten übernimmt die folgende Prozedur. Diese wird von der Prozedur Form_Load <\/b>aufgerufen und liest alle Datensätze der Tabelle tblKunden <\/b>in das Listenfeld ein. Fügen Sie diese Prozedur ebenfalls in das Klassenmodul Form_frmListViewDatenAendern <\/b>ein (siehe Listing 1).<\/p>\n
Private Sub <\/span>ListViewFuellen(objLvwKunden As <\/span>ListView)\r\n     Dim <\/span>db As <\/span>DAO.Database\r\n     Dim <\/span>rst As <\/span>DAO.Recordset\r\n     Dim <\/span>objListitem As <\/span>MSComctlLib.ListItem\r\n     Set<\/span> db = CurrentDb\r\n     Set<\/span> rst = db.OpenRecordset(\"SELECT KundeID, Firma, Kundencode FROM tblKunden\", dbOpenDynaset)\r\n     Do While<\/span> Not<\/span> rst.EOF\r\n         Set<\/span> objListitem = objLvwKunden.ListItems.Add(, \"k\" & rst!KundeID, rst!Firma)\r\n         With<\/span> objListitem\r\n             .ListSubItems.Add , \"p1\" & rst!KundeID, rst!Kundencode\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
Listing 1: Füllen des ListView-Steuerelements mit den Daten der Tabelle tblKunden<\/p>\n
Inhalt der ersten Spalte ändern<\/h2>\n
Wenn Sie den Inhalt der ersten Spalte des Listenfeldes ändern möchten, ist dies kein Problem – es muss lediglich die Eigenschaft LabelEdit <\/b>entweder im Eigenschaften-Dialog des ListView<\/b>-Steuerelements im Entwurf auf 0-lvwAutomatic <\/b>einzustellen (siehe Bild 2) oder dies mit der folgenden Zeile in der Prozedur Form_Load <\/b>durchzuführen:<\/p>\n
\"Eigenschaft<\/a><\/p>\n
Bild 2: Eigenschaft für das Verhalten beim ändern der ersten Spalte<\/p>\n
.LabelEdit = lvwAutomatic<\/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