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

Genau wie beim Listenfeld oder auch in einem Datenblatt gibt es Möglichkeiten, Einträge anzuklicken, den markierten Eintrag auszuwerten oder auch per Code bestimmte Einträge zu markieren. Wie dies gelingt, zeigt dieser Artikel.<\/p>\n

Beispieldatenbank<\/h2>\n

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

Eigenschaften zur Markierung <\/h2>\n

Zunächst schauen wir uns die Eigenschaft FullRowSelect <\/b>an. Mit dieser legen Sie fest, auf welchen Bereich der Benutzer klicken muss, um einen Eintrag zu markieren und wie der markierte Eintrag hervorgehoben wird.<\/p>\n

Im Beispiel im Formular frmListViewMarkieren <\/b>können Sie diese Eigenschaft mit der Umschaltfläche tglKompletteZeile <\/b>ein- und ausschalten. Das Formular basiert auf dem Formular frmListViewMitDatenAusTabelle<\/b>, das Listenfeld wird wie im Artikel ListView-Steuerelement mit Daten füllen <\/b>mit den Daten der Tabelle tblPersonal <\/b>gefüllt.<\/p>\n

über dem List-View<\/b>-Steuerelement haben wir eine Umschaltfläche platziert, welche die Eigenschaft FullRowSelect <\/b>des ListView<\/b>-Steuerelements abwechselnd auf die Werte True <\/b>und False <\/b>einstellt.<\/p>\n

Damit dies geschieht, legen Sie für die Umschaltfläche mit dem Namen tblKompletteZeile <\/b>eine Ereignisprozedur an, die durch das Ereignis Nach Aktualisierung <\/b>ausgelöst wird (Markieren der Eigenschaft, Auswahl von [Ereignisprozedur]<\/b>, Klick auf die Schaltfläche mit den drei Punkten). Diese Prozedur füllen Sie wie folgt:<\/p>\n

Private Sub <\/span>tglKompletteZeile_AfterUpdate()\r\n     Select Case Me!tglKompletteZeile\r\n         Case <\/span>-1\r\n             objLvwPersonal.FullRowSelect = True<\/span>\r\n         Case <\/span>0\r\n             objLvwPersonal.FullRowSelect = False<\/span>\r\n     End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n
Beim Laden des Formulars wird die Eigenschaft FullRowSelect <\/b>auf den Wert False<\/b> eingestellt, was die folgende Zeile in der Prozedur Form_Load <\/b>bewirkt:<\/p>\n
Private Sub <\/span>Form_Load()\r\n     Set<\/span> objLvwPersonal = Me!lvwPersonal.Object\r\n     With<\/span> objLvwPersonal\r\n              ...\r\n         .FullRowSelect = False<\/span>\r\n         ...\r\nEnd Sub<\/span><\/pre>\n
Dies sorgt außerdem dafür, dass nur ein Klick auf den Text in der ersten Spalte des ListView<\/b>-Steuerelements den gewünschten Eintrag markiert – und hier auch nur den Inhalt der ersten Spalte (siehe Bild 1).<\/p>\n
\"Einstellen<\/a><\/p>\n
Bild 1: Einstellen der Spalten im ListView-Steuerelement<\/p>\n
Die übrigen hier nicht abgebildeten Anweisungen finden Sie im Klassenmodul Form_frmListViewMarkieren <\/b>der Beispieldatenbank, die Erläuterung dazu im Artikel ListView-Steuerelement mit Daten füllen<\/b>.<\/p>\n
Da die Umschaltfläche beim öffnen des Formulars standardmäßig den Wert Null <\/b>enthält, ändert ein erster Klick den Wert auf -1<\/b>, also True<\/b>. Dies löst die Ereignisprozedur tblKompletteZeile_AfterUpdate <\/b>aus und stellt die Eigenschaft FullRowSelect <\/b>ebenfalls auf True <\/b>ein. Ein weiterer Klick stellt die Eigenschaft wieder auf False <\/b>ein. Wenn FullRowSelect <\/b>den Wert True <\/b>enthält, kann der Benutzer den Eintrag an einer beliebigen Stelle anklicken. Dies markiert dann auch die komplette Zeile (siehe Bild 2).<\/p>\n
\"Markieren<\/a><\/p>\n
Bild 2: Markieren der kompletten Zeile im ListView<\/p>\n
Den markierten Datensatz ermitteln<\/h2>\n
Wenn der Benutzer einen Datensatz markiert, dann zum Durchführen einer bestimmten Aktion: Vielleicht möchte er die Detailansicht aufrufen, den Datensatz löschen oder etwas anderes damit erledigen. In jedem Fall benötigen wir dann einen eindeutigen Hinweis auf diesen Datensatz – in der Regel den Wert des Primärschlüsselfeldes für diesen Eintrag.<\/p>\n
Diesen haben wir beispielsweise in der ersten Spalte des ListView<\/b>-Steuerelements abgebildet, aber er befindet sich auch in der Key<\/b>-Eigenschaft eines jeden Eintrags. Wir schauen uns erst an, wie Sie den Wert der ersten Spalte ermitteln und kümmern uns dann um die Key<\/b>-Eigenschaft. Letztere wird vermutlich öfter eingesetzt, da es nicht immer gewünscht ist, die Werte der Primärschlüsselfelder anzuzeigen.<\/p>\n
Führen wir die ersten Versuche über das Direktfenster aus (Tastenkombination Strg + G<\/b>) – bei in der Formularansicht geöffnetem Formular frmListViewMarkieren <\/b>und markiertem Datensatz. Dann referenzieren Sie das ListView<\/b>-Steuerelement wie folgt – hier zur Ausgabe des Namens zur Prüfung, ob der Bezug stimmt:<\/p>\n
  Forms!frmListViewMarkieren!lvwPersonal.Name\r\n    lvwPersonal<\/pre>\n
Dies gelingt bereits. übrigens ist es eine gute Idee, sich zum Ermitteln von Bezügen auf Steuerelemente oder Eigenschaften in einem Formular Schritt für Schritt vorzuarbeiten. Auf diese Weise können Sie potenzielle Fehlerquellen nacheinander eliminieren. <\/p>\n
Wenn wir uns dann weiter vorarbeiten, verwenden wir die Eigenschaft SelectedItem<\/b>, um auf den gewünschten Eintrag zuzugreifen. Dies liefert in folgendem Beispiel den Wert 3<\/b>:<\/p>\n
  Forms!frmListViewMarkieren!lvwPersonal.SelectedItem\r\n    3<\/pre>\n
Nun stellt sich nur noch die Frage: Liefert dies den Wert der ersten Spalte oder den Index der markierten Spalte Leider sind beide Werte gleich, sodass wir dies aktuell nicht ermitteln können.<\/p>\n
Wie finden wir also heraus, ob die Eigenschaft den Index oder den Wert der ersten Spalte liefert Ganz einfach: Wir fügen die Daten der Datenherkunft so hinzu, dass diese in der umgekehrten Reihenfolge angezeigt werden. Dazu brauchen Sie nur den ersten Parameter der Add<\/b>-Anweisung in der Prozedur ListViewFuellen <\/b>im Klassenmodul Form_frmListViewMarkieren <\/b>auf 1 <\/b>einstellen:<\/p>\n
Set<\/span> objListitem = objLvwPersonal.ListItems.Add(1, \"p\" & rst!PersonalID, rst!PersonalID)<\/pre>\n
Der neueste Eintrag wird dann jeweils an der ersten Position eingefügt, sodass die Datensätze wie in Bild 3 hinzugefügt werden. Eine erneute Abfrage liefert dann Gewissheit, dass SelectedItem <\/b>den Wert des ersten Feldes zurückgibt. Aber ist das die ganze Wahrheit Nein. Dies finden Sie heraus, wenn Sie einmal mit SelectedItem <\/b>den aktuellen Wert abfragen möchten, wenn gar kein Eintrag markiert ist. Dies liefert die Fehlermeldung aus Bild 4.<\/p>\n
\"Datensätze<\/a><\/p>\n
Bild 3: Datensätze in umgekehrter Reihenfolge<\/p>\n
\"Fehler<\/a><\/p>\n
Bild 4: Fehler beim Zugriff auf SelectedItem, wenn kein Datensatz markiert ist<\/p>\n
Wenn SelectedItem <\/b>den Typ Variant<\/b>, String <\/b>oder einen Zahlendatentyp hätte, würde dies nicht passieren. Zum Glück können wir den Typ des von Selected-Item <\/b>gelieferten Wertes mit der Funktion TypeName <\/b>ermitteln – zumindest, wenn ein Eintrag markiert ist:<\/p>\n
  Typename(Forms!frmListViewMarkieren!                           lvwPersonal.SelectedItem)\r\n    IListItem<\/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