![\"Selektieren](\"..\/fileadmin\/_temp_\/2025_03\/pic_1548_002.png\")
<\/p>\n<\/p>\n
Bild 1: Selektieren eines einzelnen Feldes<\/span><\/b><\/p>\n Die Datenblattansicht ist sehr hilfreich, wenn man die Daten aus Tabellen oder Abfragen in tabellarischer Form darstellen möchte. Sie bietet außerdem Funktionen zum Anpassen der Spalten, der Sortierung und auch der Filter. Zusätzlich können wir damit nicht nur einen Datensatz markieren, sondern gleich mehrere. Wir erhalten zwar nicht den Komfort wie im Listenfeld, wo wir nicht nur zusammenhängende, sondern auch einzelne Einträge selektieren können, aber immerhin ist es grundsätzlich möglich, bei gedrückter Maustaste mehr als einen Eintrag auszuwählen. Die Frage ist nur: Was machen wir mit diesem selektierten Bereich? Das Listenfeld bietet eigene Eigenschaften, mit denen wir auf die markierten Elemente zugreifen können. Das ist in der Datenblattansicht nicht der Fall. Das soll uns jedoch nicht davon abhalten, die gewünschten Daten weiterzuverarbeiten.<\/b><\/p>\n Wenn wir uns eine Datenblattansicht wie in Bild 1 ansehen, können wir verschiedene Arten von Selektionen durchführen. Die einfachste Selektion ist, in ein Feld zu klicken. Dies fügt an der Stelle des Klicks die Einfügemarke ein. Den Wert dieses Feldes können wir beispielsweise vom Direktbereich des VBA-Editors aus mit dem folgenden Ausdruck ermitteln:<\/p>\n Bild 1: Selektieren eines einzelnen Feldes<\/span><\/b><\/p>\n Wir können auch den Namen des aktuellen Steuerelements abrufen:<\/p>\n Auch wenn sich die Einfügemarke nur in einem Feld befindet, so wird doch der vollständige Datensatz markiert.<\/p>\n Aus dem Direktbereich heraus können wir wie folgt auf einen Wert eines anderen Steuerelements dieses Datensatzes zugreifen und diesen beispielsweise dort ausgeben:<\/p>\n Direkt vom Klassenmodul des Unterformulars sfmMitarbeiterUebersicht <\/b>greifen wir noch einfacher auf diesen Wert zu:<\/p>\n Auf die gleiche Weise können wir auch auf die Inhalte der übrigen Felder per Feldname oder Steuerelementname zugreifen.<\/p>\n Auch wenn das Anklicken eines einzigen Feldes bereits die gesamte Zeile markiert hat, gibt es noch eine weitere Abstufung. Wenn wir auf den grauen Bereich links vom Datensatz klicken, den sogenannten Datensatzmarkierer, markieren wir den vollständigen Datensatz (siehe Bild 2).<\/p>\n Bild 2: Markieren eines vollständigen Datensatzes<\/span><\/b><\/p>\n Der Unterschied ist, dass nun kein einzelnes Steuerelement mehr die Einfügemarke anzeigt, sondern alle Felder markiert und von einem Rahmen umgeben werden.<\/p>\n Screen.ActiveControl.Name <\/b>liefert nun den Namen des ersten sichtbaren Steuerelements der Zeile.<\/p>\n Wenn wir auf die Daten des aktuell markierten Datensatzes zugreifen wollen, können wir einfach die einzelnen Steuerelemente auslesen- diese liefern die Werte für den aktuellen Datensatz.<\/p>\n Damit kommen wir zum Kern des Beitrags, dem Markieren zweier oder mehrerer zusammenhängender Datensätze gleichzeitig. Das gelingt beispielsweise auf die folgenden Arten:<\/p>\n Wir klicken mit der Maus auf den Datensatzmarkierer des obersten oder untersten zu markierenden Datensatzes und ziehen die Maus bei gedrückter Maustaste nach oben oder unten, je nachdem in welche Richtung wir die Markierung erweitern wollen.<\/p>\n Ein Datenblatt mit mehreren markierten Datensätzen sehen wir in Bild 3.<\/p>\n Bild 3: Markieren mehrerer Datensätze in der Datenblattansicht<\/span><\/b><\/p>\n Der folgende Ausdruck liefert nun den Wert des linken, oberen Feldes des Datensatzes, der als Erstes markiert wurde:<\/p>\n Sollten wir also einen Datensatz markieren und die Markierung nach unten erweitern, werden die Daten des obersten Datensatzes geliefert. Wenn wir die Markierung nach oben ziehen, erhalten wir die Daten des untersten Datensatzes der Markierung.<\/p>\n Wenn wir wie folgt gezielt auf ein Steuerelement zugreifen wollen, erhalten wir ebenfalls die Werte der Steuerelemente der Zeile der Markierung, die als erste selektiert wurde:<\/p>\n Die eingebauten Werkzeuge zum Auslesen der Markierung sind zwar gegeben, allerdings kommen wir nicht ohne Weiteres an die in den markierten Zeilen enthaltenen Daten heran.<\/p>\n Die Markierung jedoch können wir mit den folgenden Eigenschaften auslesen:<\/p>\n Diese Daten lassen wir uns mit der folgenden Prozedur für das im Formular frmMitarbeiterUebersicht <\/b>enthaltene Unterformular sfmMitarbeiterUebersicht <\/b>ausgeben:<\/p>\n In Bild 4 sehen wir die beispielhafte Ausgabe dieser Werte für die angezeigte Markierung. SelLeft<\/b> liefert unerwarteterweise den Wert 2, obwohl bereits die erste Spalte markiert ist. Die Werte für die anderen Eigenschaften sind nachvollziehbar.<\/p>\n Bild 4: Ausgabe der Selektion in Zahlen<\/span><\/b><\/p>\n Wir wollen nun die Primärschlüsselwerte der selektierten Zeilen ermitteln.<\/p>\n Wie oben erwähnt, gelingt uns das durch Referenzieren des Feldes MitarbeiterID <\/b>nur für den ersten Datensatz der Selektion – und hier erscheint auch noch der Wert des Datensatzes, mit dem die Markierung gestartet wurde.<\/p>\n Im Beispiel wäre das, wenn wir die Markierung ausgehend von der oberen Zeile aus angelegt hätten, der Wert 6<\/b>. Wenn wir die Markierung jedoch unten begonnen hätten, würde sfm!MitarbeiterID <\/b>den Wert 9 <\/b>liefern.<\/p>\n Wie kommen wir nun an die MitarbeiterID<\/b>-Werte der markierten Datensätze heran? Hier nutzen wir eine Kombination aus den zuvor ermittelten Koordinaten für die Markierung und dem RecordsetClone<\/b>-Objekt.<\/p>\n Mit dem RecordsetClone<\/b>-Objekt eines Recordsets, in diesem Fall des zu untersuchenden Formulars, erstellen wir einen Klon des Recordsets. Es ist kein Verweis auf das bestehende Recordset, sondern eine eigene Kopie.<\/p>\n In dieser können wir verschiedene Dinge tun, zum Beispiel darin navigieren. Die Idee ist, dass wir das RecordsetClone<\/b>-Objekt nutzen, um darin zunächst die Position der ersten Zeile der Markierung einzunehmen und dann durch die Anzahl der markierten Zeilen zu navigieren und die jeweiligen Primärschlüsselwerte zu ermitteln.<\/p>\n Der Code sieht wie in Listing 1 aus.<\/p>\n Listing 1: Anpassung der Prozedur für das Vergrößern und Verkleinern<\/span><\/b><\/p>\n In der Prozedur deklarieren wir neben dem Formular-Objekt sfm <\/b>(für das Unterformular) ein Recordset<\/b>-Objekt für das RecordsetClone<\/b>-Objekt sowie eine Laufvariable namens i <\/b>und zwei Variablen zum Speichern der relevanten Markierungskoordinaten.<\/p>\n Schließlich benötigen wir noch ein Variant<\/b>-Array namens arrBookmarks<\/b>, in dem wir Bookmarks der betroffenen Datensätze des RecordsetClone<\/b>-Methode speichern.<\/p>\n Die Prozedur referenziert das zu untersuchende Formular in der Datenblattansicht mit der Variablen sfm<\/b>. Dann weist sie rstClone <\/b>das RecordsetClone<\/b>-Objekt des Formulars zu.<\/p>\n Die folgenden Anweisungen speichern den Index der ersten Zeile und die Höhe des selektierten Bereichs in den Variablen lngSelTop <\/b>und lngSelHeight<\/b>.<\/p>\n Wenn lngSelHeight <\/b>größer ist als 0<\/b>, was Voraussetzung für das Auslesen von Markierungen ist, dimensionieren wir das Array für die Bookmarks von 1 <\/b>bis zur Anzahl der Zeilen aus lngSelHeight<\/b>.<\/p>\n Im RecordsetClone <\/b>springen wir auf den ersten Datensatz und bewegen uns in einer ersten Schleife solange weiter, bis wir zum ersten markierten Datensatz gelangen.<\/p>\n In einer zweiten Schleife springen wir mit MoveNext <\/b>solange jeweils einen Datensatz weiter, bis wir die Anzahl aus lngSelHeight<\/b>, also die Höhe der Markierung, erreicht haben.<\/p>\n Dies geschieht normalerweise erfolgreich in einer einfachen For…Next<\/b>-Schleife von 1 <\/b>bis zum Wert lngSelHeight<\/b>. Wenn wir jedoch beispielsweise mit Strg + A <\/b>alle Datensätze markieren, liefert SelHeight<\/b> einen falschen Wert, der um 1 größer ist als der tatsächliche Wert.<\/p>\n Woran liegt das? Das sehen wir in Bild 5, wo wir einmal alle Datensätze markiert und dann ganz nach unten gescrollt haben.<\/p>\n Bild 5: Auch der neue, leere Datensatz ist Teil der Selektion.<\/span><\/b><\/p>\n Hier sehen wir, dass auch der neue, leere Datensatz markiert wird, was zum überzähligen Eintrag führt.<\/p>\n Es kann auch sein, dass wir nicht alle Datensätze markierten, sondern nur die letzten in der Datenblattansicht, und hier auch zufällig den neuen, leeren Datensatz mit markieren.<\/p>\n Wir müssen also auf irgendeine Art prüfen, ob der neue, leere Datensatz erstens angezeigt wird und zweitens, ob dieser Teil der aktuellen Markierung ist.<\/p>\n Dies umgehen wir, indem wir in der zweiten For…Next<\/b>-Schleife, mit der wir die Bookmarks einlesen, zu Beginn prüfen, ob die Eigenschaft AbsolutePosition <\/b>den Wert -1 <\/b>aufweist. Ist das der Fall, sind wir beim neuen, leeren Datensatz gelandet.<\/p>\n In diesem Fall verlassen wir die Schleife und stellen die Anzahl der zu durchlaufenden Objekte für die folgende Schleife in der Variablen lngCount <\/b>auf den aktuellen Wert von lngSelHeight – 1 <\/b>ein.<\/p>\n Den Wert von lngCount <\/b>haben wir zuvor auf lngSelHeight <\/b>eingestellt, dieser Wert wird beibehalten, wenn die neue, leere Zeile nicht von der Markierung berührt wird.<\/p>\n Für alle markierten Zeilen außer der neuen, leeren Zeile wird nun das Bookmark des aktuell durchlaufenen Datensatzes in arrBookmarks(i) <\/b>gespeichert.<\/p>\n Schließlich durchlaufen wir in einer dritten For…Next<\/b>-Schleife alle Werte von 1 <\/b>bis lngCount<\/b>.<\/p>\n Hier stellen wir das Recordset wieder auf das aktuelle Bookmark des Arrays ein und können dann beispielsweise über rstClone!MitarbeiterID <\/b>auf die Werte der einzelnen Felder der markierten Datensätze zugreifen.<\/p>\n Damit geben wir im Beispiel alle Primärschlüsselwerte im Direktbereich des VBA-Editors aus.<\/p>\n Ein Problem dieser Lösung tritt auf, wenn wir den Aufruf der Prozedur DatenDerMarkierungErmitteln <\/b>beispielsweise wie folgt für die Ereignisprozedur einer Schaltfläche hinterlegen:<\/p>\n Dann verliert die Datenblattansicht den Fokus und die Markierung geht verloren. Hier gibt es allerdings ein paar Workarounds. Das Ziel dabei ist: Wie kann ich eine Prozedur auslösen, ohne dass die Datenblattansicht den Fokus verliert und so die Markierung aufgehoben wird?<\/p>\n Hier gibt es die folgenden Möglichkeiten:<\/p>\n Eine letzte Möglichkeit wäre, dennoch einen Button zu verwenden. Dies würde allerdings voraussetzen, dass die aktuelle Markierung schon ausgelesen und zwischengespeichert würde, bevor das Datenblatt den Fokus verliert und somit die Markierung aufgehoben wird.<\/p>\n Auch das kann funktionieren: Bevor das Unterformular mit der Datenblattansicht nämlich den Fokus verliert, löst dieses immer noch das Ereignis Beim Verlassen <\/b>aus. Für dieses können wir eine Ereignisprozedur hinterlegen, die sich für uns die gewählte Markierung merkt und die wir dann im Ereignis, das durch das Anklicken des Buttons ausgelöst wird, weiterverarbeiten. Das würde hier allerdings den Rahmen sprengen und wir schauen uns stattdessen lieber die Version an, die wir über das Kontextmenü steuern.<\/p>\n Im Datenblatt gibt es verschiedene Kontextmenüs:<\/p>\n Allerdings können wir davon auch wieder nur ein Kontextmenü nutzen: Form Datasheet Cell <\/b>ist nur aktiviert, wenn wir mit der rechten Maustaste auf eine einzelne Zelle klicken, die nicht als ganze Zelle markiert ist, und fällt somit schon mal weg.<\/p>\n Das Kontextmenü Form Datasheet Subcolumn <\/b>erscheint beim Rechtsklick auf die Spaltenköpfe und markiert direkt die vollständige Spalte, was wiederum die Zeilenmarkierung aufhebt.<\/p>\n Bleibt noch das Kontextmenü Form Datasheet Row<\/b>. Hier gibt es wiederum zwei Möglichkeiten, dieses aufzurufen:<\/p>\n Bild 6: Aufruf eines Kontextmenüs für markierte Zeilen der Datenblattansicht<\/span><\/b><\/p>\n<\/ul>\n Das Kontextmenü Form Datasheet Row <\/b>können wir beispielsweise beim Laden des Formulars um den gewünschten Eintrag erweitern. Dazu hinterlegen wir für das Ereignis Beim Laden <\/b>die folgende Prozedur:<\/p>\n Für den Menüeintrag hinterlegen wir noch eine Objektvariable, die wir mit dem Schlüsselwort WithEvents <\/b>deklarieren, damit wir Ereignisse für dieses Element implementieren können:<\/p>\n Die entsprechende Prozedur sieht nun wie folgt aus:<\/p>\n Damit wird beim Anklicken des Kontextmenübefehls die aktuelle Auswahl im Datenblatt analysiert und im Direktbereich ausgegeben.<\/p>\n Wenn Sie nun eine andere Aktion für die markierten Einträge ausführen wollen als nur die Ausgabe der Primärschlüsselwerte im Direktbereich, ersetzen Sie einfach die entsprechende Anweisung durch die gewünschten Funktionen. Dort können wir beispielsweise Änderungen an den Datensätzen durchführen, an jeden Eintrag eine E-Mail versenden et cetera.<\/p>\n Mit dieser Lösung können wir den Benutzer einladen, beliebige, zusammenhängende Datensätze zu selektieren und damit die gewünschten Aktionen durchzuführen – beispielsweise, um die Kunden einem Verteiler hinzuzufügen, Rechnungen zu schreiben et cetera.<\/p>\n Um die gewünschten Kunden in einem Block darstellbar zu machen, können wir uns der üblichen Methoden bedienen – wir können die Daten nach verschiedenen Kriterien filtern oder auch sortieren.<\/p>\n Die Prozedur wirkt sich jeweils nur auf die aktuelle Auswahl und Sortierung aus und liefert die Daten auch in der entsprechenden Reihenfolge.<\/p>\n Enthaltene Beispieldateien:<\/p>\n DatensaetzeAusDatenblattAuslesen.accdb<\/p>\n<\/p>\nDebug.Print<\/span> Screen.ActiveControl.Value\r\n Knuth<\/pre>\nDebug.Print<\/span> Screen.ActiveControl.Name\r\n txtVorname<\/pre>\nWerte der anderen Felder des markierten Datensatzes auslesen<\/h2>\n
Debug.Print<\/span> Screen.ActiveForm!sfmMitarbeiterUebersicht!MitarbeiterID\r\n 8 <\/pre>\nDebug.Print<\/span> Me!MitarbeiterID<\/pre>\nMarkieren eines kompletten Datensatzes<\/h2>\n
![\"Markieren](\"..\/fileadmin\/_temp_\/2025_03\/pic_1548_003.png\")
<\/p>\nMarkieren mehrerer Datensätze<\/h2>\n
\n
![\"Markieren](\"..\/fileadmin\/_temp_\/2025_03\/pic_1548_001.png\")
<\/p>\nDebug.Print<\/span> Screen.ActiveControl.Value<\/pre>\nDebug.Print<\/span> Forms!frmMitarbeiterUebersicht!sfmMitarbeiterUebersicht!Vorname<\/pre>\nAuslesen aller Zeilen der Markierung<\/h2>\n
\n
Public Sub <\/span>MarkierungErfassen()\r\n Dim <\/span>sfm As <\/span>Form\r\n Set<\/span> sfm = Forms!frmMitarbeiterUebersicht! sfmMitarbeiterUebersicht.Form\r\n With<\/span> sfm\r\n Debug.Print<\/span> \"SelLeft: \" & .SelLeft\r\n Debug.Print<\/span> \"SelTop: \" & .SelTop\r\n Debug.Print<\/span> \"SelWidth: \" & .SelWidth\r\n Debug.Print<\/span> \"SelHeight: \" & .SelHeight\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Ausgabe](\"..\/fileadmin\/_temp_\/2025_03\/pic_1548_004.png\")
<\/p>\nAuslesen der Daten der Selektion<\/h2>\n
Public Sub <\/span>DatenDerMarkierungErmitteln()\r\n Dim <\/span>sfm As <\/span>Form\r\n Dim <\/span>rstClone As <\/span>DAO.Recordset\r\n Dim <\/span>i As Long<\/span>\r\n Dim <\/span>lngSelTop As Long<\/span>\r\n Dim <\/span>lngSelHeight As Long<\/span>\r\n Dim <\/span>lngCount As Long<\/span>\r\n Dim <\/span>arrBookmarks() As Variant<\/span>\r\n Set<\/span> sfm = Forms!frmMitarbeiterUebersicht!sfmMitarbeiterUebersicht.Form\r\n Set<\/span> rstClone = sfm.RecordsetClone\r\n lngSelTop = sfm.SelTop\r\n lngSelHeight = sfm.SelHeight\r\n If <\/span>lngSelHeight > 0 Then<\/span>\r\n ReDim arrBookmarks(1 To lngSelHeight)\r\n rstClone.MoveFirst\r\n For i = 1 To lngSelTop - 1\r\n rstClone.MoveNext<\/span>\r\n Next<\/span> i\r\n lngCount = lngSelHeight\r\n \r\n For i = 1 To lngSelHeight\r\n If <\/span>rstClone.AbsolutePosition = -1 Then<\/span>\r\n lngCount = lngSelHeight - 1\r\n Exit For<\/span>\r\n End If<\/span>\r\n arrBookmarks(i) = rstClone.Bookmark\r\n rstClone.MoveNext<\/span>\r\n Next<\/span> i\r\n For i = 1 To lngCount\r\n rstClone.Bookmark = arrBookmarks(i)\r\n Debug.Print<\/span> \"ID: \" & rstClone!MitarbeiterID\r\n Next<\/span> i\r\n Else<\/span>\r\n MsgBox<\/span> \"Bitte mindestens einen Datensatz markieren.\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Auch](\"..\/fileadmin\/_temp_\/2025_03\/pic_1548_005.png\")
<\/p>\nProblem: Datenblatt verliert den Fokus bei Mausklick<\/h2>\n
Private Sub <\/span>cmdPKWerteAuslesen_Click()\r\n Call<\/span> DatenDerMarkierungErmitteln\r\nEnd Sub<\/span><\/pre>\n\n
Richtiges Kontextmenü finden<\/h2>\n
\n
\n
![\"Aufruf](\"..\/fileadmin\/_temp_\/2025_03\/pic_1548_006.png\")
<\/p>\nPrivate Sub <\/span>Form_Load()\r\n Dim <\/span>cbr As <\/span>CommandBar\r\n Set<\/span> cbr = CommandBars(\"Form Datasheet Row\")\r\n On Error Resume Next<\/span>\r\n cbr.Controls(\"Auswahl verarbeiten\").Delete\r\n On Error GoTo<\/span> 0\r\n Set<\/span> cbbFormDatasheetRow = _\r\n cbr.Controls.Add(msoControlButton, , , , True<\/span>)\r\n With<\/span> cbbFormDatasheetRow\r\n .Caption = \"Auswahl verarbeiten\"\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nDim <\/span>WithEvents cbbFormDatasheetRow As <\/span>CommandBarButton<\/pre>\nPrivate Sub <\/span>cbbFormDatasheetRow_Click(ByVal Ctrl As <\/span>_\r\n Office.CommandBarButton, CancelDefault As Boolean<\/span>)\r\n Call<\/span> DatenDerMarkierungErmitteln\r\nEnd Sub<\/span><\/pre>\nAktionen für die markierten Einträge ausführen<\/h2>\n
Zusammenfassung und Ausblick<\/h2>\n
Downloads zu diesem Beitrag<\/h2>\n