Mehrfachauswahl im Datenblatt mit temporärem Recordset<\/li>\n<\/ul>\nZiel aller Beispiele ist es, über eine Schaltfläche namens cmdStart<\/b> eine Liste der Primärschlüsselfelder der ausgewählten Datensätze im Direktfenster auszugeben. Wenn dies möglich ist, können Sie auch alle weiteren geplanten Aktionen mit den ausgewählten Daten durchführen.<\/p>\n
Mehrfachauswahl im Listenfeld<\/b><\/p>\n
Die Mehrfachauswahl im Listenfeld bietet sich eher für solche Fälle an, in denen Sie die Daten ad hoc verarbeiten und nicht speichern wollen. Dazu füllen Sie das Listenfeld namens lstMehrfachauswahl <\/b>mit der gewünschten Datenherkunft tblPersonen<\/b>.<\/p>\n
Stellen Sie die beiden Eigenschaften Spaltenanzahl <\/b>und Spaltenbreiten <\/b>auf 3 <\/b>und 1cm;4cm;4cm <\/b>ein, damit alle drei Spalten angezeigt werden. Außerdem legen Sie für die Eigenschaft Mehrfachauswahl <\/b>den Wert Erweitert <\/b>fest.<\/p>\n
Dies bedeutet, dass der Benutzer bei gedrückter Strg<\/b>-Taste einzelne Einträge aus- und abwählen und durch zweimaliges Betätigen der Maustaste bei gedrückter Umschalttaste alle Elemente vom ersten bis zum zweiten angeklickten Element auswählen kann. Ein einfacher Klick ohne Umschalt- oder Strg<\/b>-Taste hebt die Auswahl wieder auf.<\/p>\n
Die Start<\/b>-Schaltfläche des Formulars aus Bild 1 löst die folgende Ereignisprozedur aus Listing 1 aus.<\/p>\n
Private Sub cmdStart_Click()\r\n Dim varIndex As Variant\r\n Dim lngPersonID As Long\r\n For Each varIndex In Me!lstMehrfachauswahl.ItemsSelected\r\n lngPersonID = _\r\n Me!lstMehrfachauswahl.ItemData(varIndex)\r\n ''Hier etwas mit lngPersonID erledigen\r\n Debug.Print lngPersonID\r\n Next varIndex\r\nEnd Sub<\/pre>\n![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2010_02\/IndividuelleDatenauswahl-web-images\/pic001.png\")
<\/p>\n
Bild 1: Individuelle Mehrfachauswahl im Listenfeld<\/span><\/b><\/p>\nDie For Each<\/b>-Schleife durchläuft alle markierten Datensätze, auf die sie über die Auflistungs-Eigenschaft ItemsSelected <\/b>des Listenfelds zugreift. Die Laufvariable varIndex <\/b>liefert jeweils den Index der aktuell durchlaufenen Zeile zurück.<\/p>\n
Um darüber auf den Wert der gebundenen Spalte, in diesem Falle mit dem Feld ID <\/b>der Datenherkunft ausgestattet, zuzugreifen, verwenden Sie die ItemData<\/b>-Eigenschaft unter Angabe von varIndex<\/b>.<\/p>\n
Einfache Mehrfachauswahl<\/b><\/p>\n
Für weniger gewandte Benutzer mag die Einstellung Einfach <\/b>für die Eigenschaft Mehrfachauswahl <\/b>eine sinnvolle Alternative sein. Mit dieser Einstellung braucht man einen Eintrag einfach nur anzuklicken, um ihn auszuwählen, und wenn man ihn nicht mehr will, klickt man einfach erneut darauf.<\/p>\n
Die Funktion zur Ermittlung der markierten Einträge funktioniert genau so wie bei der Einstellung Erweitert<\/b>.<\/p>\n
Mehrfachauswahl im Datenblatt mit Ja\/Nein-Feld in der Datenherkunft<\/b><\/p>\n
Die einfachste Möglichkeit, die Datensätze unserer Tabelle tblPersonen <\/b>in der Datenblattansicht eines Unterformulars zu markieren, ist ein Ja\/Nein<\/b>-Feld in der betroffenen Tabelle (siehe Bild 2).<\/p>\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2010_02\/IndividuelleDatenauswahl-web-images\/pic002.png\")
<\/p>\n
Bild 2: Kopie der Beispieltabelle mit einem Ja\/Nein-Feld zum Speichern des Markiert-Status<\/span><\/b><\/p>\nErstellen Sie ein Formular namens sfmPersonenJaNein <\/b>und weisen Sie die Tabelle tblMehrfachauswahlJaNein <\/b>der Eigenschaft Datenherkunft <\/b>zu.<\/p>\n
Ziehen Sie alle Felder aus der Feldliste in den Detailbereich der Entwurfsansicht und stellen Sie die Eigenschaft Standardansicht <\/b>auf Datenblatt <\/b>ein. Schließen Sie das Formular.<\/p>\n
Erstellen Sie ein weiteres Formular, ziehen Sie das Unterformular aus dem Datenbankfenster beziehungsweise dem Navigationsbereich in den Detailbereich des Formularentwurfs und fügen Sie eine Schaltfläche namens cmdStart <\/b>hinzu.<\/p>\n
Speichern Sie das Formular, das in der Formularansicht nun wie in Bild 3 aussehen sollte, unter dem Namen frmMehrfachauswahlJaNein<\/b>.<\/p>\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2010_02\/IndividuelleDatenauswahl-web-images\/pic003.png\")
<\/p>\n
Bild 3: Mehrfachauswahl per Ja\/Nein-Feld im Datenblatt<\/span><\/b><\/p>\nDie Ereignisprozedur, die durch die Schaltfläche ausgelöst wird, hat leichtes Spiel:<\/p>\n
Sie braucht einfach nur ein Recordset auf Basis der Tabelle tblPersonen <\/b>zu erzeugen, wobei eine WHERE<\/b>-Bedingung die Datensätze auf diejenigen beschränkt, deren Feld Markiert <\/b>den Wert True <\/b>aufweist.<\/p>\n
Diese durchläuft man einfach über die gängige Do While<\/b>-Schleife und stellt mit dem Datensatz an, was auch immer man möchte (s. Listing 2).<\/p>\n
Private Sub cmdStart_Click()\r\n Dim db As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Dim lngPersonID As Long\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset("SELECT * FROM\r\n tblPersonenJaNein WHERE Markiert = True", _\r\n dbOpenDynaset)\r\n Do While Not rst.EOF\r\n lngPersonID = rst!ID\r\n ''Etwas mit lngPerson erledigen\r\n Debug.Print lngPersonID\r\n rst.MoveNext\r\n Loop\r\n Set db = Nothing\r\nEnd Sub<\/pre>\n<\/p>\n
Der Vorteil dieser Variante ist, dass Sie damit auch leicht die Serienbrieferstellung aus Word heraus mit einer Datenherkunft versehen können. Sie brauchen einfach nur eine Abfrage zu erstellen, die alle markierten Datensätze zurückliefert und wie in Bild 4 aussieht.<\/p>\n
![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2010_02\/IndividuelleDatenauswahl-web-images\/pic004.png\")
<\/p>\n
Bild 4: Diese Abfrage liefert alle markierten Datensätze der Tabelle tblPersonenJaNein.<\/span><\/b><\/p>\nWenn Sie die Markierung der Datensätze aufheben möchten, können Sie dies leicht durch eine kleine Ereignisprozedur erledigen, die beispielsweise durch eine Schaltfläche namens cmdAuswahlLoeschen <\/b>im gleichen Hauptformular ausgelöst wird (s. Listing 3).<\/p>\n
Private Sub cmdAuswahlLoeschen_Click()\r\n Dim db As DAO.Database\r\n Set db = CurrentDb\r\n db.Execute "UPDATE tblPersonenJaNein SET\r\n Markiert = FALSE", dbFailOnError\r\n Me!sfmMehrfachauswahlJaNein.Form.Requery\r\n Set db = Nothing\r\nEnd Sub<\/pre>\nMehrfachauswahl im Datenblatt mit 1:1-Beziehung<\/b><\/p>\n
Möglicherweise können oder dürfen Sie die Tabelle mit den auszuwählenden Daten nicht ändern, um beispielsweise ein Ja\/Nein<\/b>-Feld zum Speichern des Markiert<\/b>-Status hinzuzufügen. Auch dies ist kein Problem: Wir legen einfach eine zusätzliche Tabelle an, die per 1:1-Beziehung mit der ursprünglichen Tabelle verknüpft ist.<\/p>\n
Diese Tabelle heißt tblPersonenMarkiert <\/b>und sieht im Entwurf wie in Bild 5 aus. Das Feld PositionID <\/b>ist ein Fremdschlüsselfeld zum Eintragen der ID <\/b>des Datensatzes der Tabelle tblPersonen<\/b>, auf den sich der Inhalt des Ja\/Nein<\/b>-Feldes Markiert <\/b>bezieht.<\/p>\n
![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2010_02\/IndividuelleDatenauswahl-web-images\/pic005.png\")
<\/p>\n
Bild 5: Diese Tabelle speichert, ob ein Datensatz der Tabelle tblPersonen markiert ist oder nicht.<\/span><\/b><\/p>\nDamit das Feld PersonID <\/b>der Tabelle tblPersonenMarkiert <\/b>nur Werte enthält, die auch im Feld ID <\/b>der Tabelle tblPersonen <\/b>vorliegen, erstellen Sie eine Beziehung wie in Bild 6. Legen Sie die Beziehung an, indem Sie das Feld ID <\/b>der Tabelle tblPersonen <\/b>auf das Feld PersonID <\/b>der Tabelle tblPersonenMarkiert <\/b>ziehen – andersherum funktioniert es nicht, weil Access dann davon ausginge, dass das Feld ID <\/b>der Tabelle tblPersonen <\/b>das Fremdschlüsselfeld der Beziehung ist und nicht umgekehrt.<\/p>\n
![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2010_02\/IndividuelleDatenauswahl-web-images\/pic006.png\")
<\/p>\n
Bild 6: Diese Beziehung stellt sicher, dass der Markiert-Status nur für vorhandene Datensätze der Tabelle tblPersonen angelegt werden kann.<\/span><\/b><\/p>\nLegen Sie in den Beziehungseigenschaften referenzielle Integrität fest und aktivieren Sie die Löschweitergabe, damit beim Löschen von Daten aus tblPersonen <\/b>auch direkt die damit verknüpften Datensätze der Tabelle tblPersonenMarkiert <\/b>gelöscht werden.<\/p>\n
Bauen Sie das Formular frmMehrfachauswahl1zu1<\/b> und das Unterformular sfmMehrfachauswahl1zu1 <\/b>genau so auf wie die beiden Formulare aus dem vorherigen Beispiel.<\/p>\n
Allein die Datenherkunft des Unterformulars sieht anders aus. Hier kommt eine Abfrage zum Einsatz, welche die beiden Tabellen tblPersonen <\/b>und tblPersonenMarkiert <\/b>enthält. Sie müssen allerdings die Verknüpfungseigenschaften ein wenig anpassen: Stellen Sie diese so ein, dass alle Datensätze der Tabelle tblPersonen <\/b>angezeigt werden und nur diejenigen der Tabelle tblPersonenMarkiert<\/b>, bei denen die Inhalte der verknüpften Felder gleich sind (siehe Bild 7).<\/p>\n
![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2010_02\/IndividuelleDatenauswahl-web-images\/pic007.png\")
<\/p>\n
Bild 7: Die Tabellen tblPersonen und tblPersonenMarkiert müssen auf spezielle Art verknüpft werden.<\/span><\/b><\/p>\nDas bedeutet, dass die Abfrage auf jeden Fall alle Datensätze der Tabelle tblPersonen <\/b>liefert. Selbst wenn die Tabelle tblPersonenMarkiert <\/b>gar keine Datensätze enthält, werden die darin enthaltenen Felder im Abfrageergebnis angezeigt – wenn auch als leere Felder.<\/p>\n
Wenn Sie dort Werte eintragen, also etwa das Ja\/Nein<\/b>-Feld Markiert <\/b>mit einem Haken füllen, legt Access automatisch den verknüpften Datensatz an. Der einzige Schönheitsfehler ist, dass das Kombinationsfeld vor dem Anhaken gar keinen Wert anzeigt, also weder einen Haken noch ein leeres Kästchen (siehe Bild 8).<\/p>\n
![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2010_02\/IndividuelleDatenauswahl-web-images\/pic008.png\")
<\/p>\n
Bild 8: Das Ja\/Nein-Feld einer 1:1-Beziehung kann drei Zustände aufweisen.<\/span><\/b><\/p>\nDie Auswertung der markierten Daten erfolgt fast genau so wie im vorherigen Beispiel. Der einzige Unterschied ist, dass als Datenherkunft die gleiche Abfrage dient, die Sie auch als Datenherkunft des Unterformulars angegeben haben:<\/p>\n
Private Sub cmdStart_Click()\r\n ...\r\n Set rst = db.OpenRecordset("SELECT * FROM\r\n qryMehrfachauswahl1zu1 WHERE\r\n Markiert = True", dbOpenDynaset)\r\n ...\r\nEnd Sub<\/pre>\nUm den kleinen Schönheitsfehler zu beheben, können Sie beim Öffnen des Formulars die Ereignisprozedur aus Listing 4 auslösen.<\/p>\n
Private Sub Form_Open(Cancel As Integer)\r\n Dim db As DAO.Database\r\n Set db = CurrentDb\r\n db.Execute "DELETE FROM tblPersonenMarkiert", _\r\n dbFailOnError\r\n db.Execute "INSERT INTO tblPersonenMarkiert(PersonID,\r\n Markiert) SELECT ID, False AS Markiert\r\n FROM tblPersonen", dbFailOnError\r\n Me.Requery\r\n Set db = Nothing\r\nEnd Sub<\/pre>\nDie Routine löscht alle Einträge der Tabelle tblPersonenMarkiert <\/b>und fügt dann für jeden Datensatz der Tabelle tblPersonen <\/b>je einen Datensatz in die Tabelle tblPersonenMarkiert <\/b>ein. Gleichzeitig stellt sie den Wert des Feldes Markiert <\/b>der neuen Datensätze auf False <\/b>ein.<\/p>\n
Auch das Zurücksetzen der Markierung funktioniert ähnlich wie beim vorherigen Beispiel. Sie müssen lediglich die SQL-Anweisung wie in der folgenden Zeile austauschen und das Unterformular mit der Requery<\/b>-Methode zu aktualisieren:<\/p>\ndb.Execute "UPDATE tblPersonenMarkiert SET Markiert = FALSE", dbFailOnError<\/pre>\nMehrfachauswahl im Datenblatt mit Markierung<\/b><\/p>\n
Die bisherigen Vorschläge sind zwar nicht schlecht, aber eigentlich wäre eine Kombination sinnvoll:<\/p>\n
Die Vorzüge der Datenblattansicht mit ihrer Möglichkeit, Daten gleich noch zu bearbeiten gepaart mit der Markierung der kompletten Zeile, wenn ein Datensatz zur Auswahl hinzugefügt wurde – immerhin kann es vorkommen, dass ein Datensatz mehr Felder als in unserem Beispiel enthält, und dann muss das Auge schon einige Meter wandern, um jeweils anhand der links liegenden Felder zu prüfen, ob das rechts befindliche Ja\/Nein<\/b>-Feld zum Markieren des Datensatzes auch zu Recht angehakt ist.<\/p>\n
Wie wäre es also, wenn wir eine Ansicht wie in Bild 9 realisieren könnten Dazu bedarf es gar nicht viel: Wir setzen einfach die bedingte Formatierung ein, indem wir für jedes Feld des Entwurfs mit Ausnahme des Feldes Markiert <\/b>die bedingte Formatierung aus Bild 10 definieren.<\/p>\n
![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2010_02\/IndividuelleDatenauswahl-web-images\/pic009.png\")
<\/p>\n
Bild 9: Mehrfachauswahl im Datenblatt ohne Kontrollkästchen<\/span><\/b><\/p>\n![\"pic010.png\"](\"..\/fileadmin\/_temp_\/2010_02\/IndividuelleDatenauswahl-web-images\/pic010.png\")
<\/p>\n
Bild 10: Die bedingte Formatierung sorgt für die Hervorhebung markierter Datensätze.<\/span><\/b><\/p>\nAußerdem müssen wir dafür sorgen, dass das Feld Markiert<\/b> aus der Datenblattansicht verschwindet, ohne es aus dem Entwurf zu entfernen, denn die in der bedingten Formatierung definierte Bedingung bezieht sich genau auf dieses Feld.<\/p>\n
Doch das ist kein Problem. Wir erledigen dies in der Ereignisprozedur, die beim Öffnen des Unterformulars ausgelöst wird und in der wir zugleich die Markierung der Datensätze zurücksetzen (s. Listing 5).<\/p>\n
Private Sub Form_Open(Cancel As Integer)\r\n Dim db As DAO.Database\r\n Set db = CurrentDb\r\n db.Execute "UPDATE tblPersonenJaNein\r\n SET Markiert = FALSE", dbFailOnError\r\n Me.Requery\r\n Me!Markiert.ColumnHidden = True\r\n Set db = Nothing\r\nEnd Sub<\/pre>\nGleichzeitig sei erwähnt, dass wir uns auf die gleiche Datenherkunft beziehen wir im Formular frmMehrfachauswahlJaNein<\/b>.<\/p>\n
Danach sorgen wir dafür, dass wir die Datensätze auch ohne sichtbares Kontrollkästchen markieren und abwählen können.<\/p>\n
Da die Daten mitunter noch bearbeitbar sein sollen, geht dies nicht durch einfaches Anklicken eines Elements der Zeile.<\/p>\n
Stattdessen verwenden wir das Ereignis der enthaltenen Steuerelemente, das durch einen Doppelklick ausgelöst wird. Legen Sie also die entsprechenden Ereignisprozeduren an und füllen Sie diese wie folgt:<\/p>\n
Private Sub ID_DblClick(Cancel As Integer)\r\n Me!Markiert = Not Me!Markiert\r\nEnd Sub\r\nPrivate Sub Nachname_DblClick(Cancel As Integer)\r\n Me!Markiert = Not Me!Markiert\r\nEnd Sub\r\nPrivate Sub Vorname_DblClick(Cancel As Integer)\r\n Me!Markiert = Not Me!Markiert\r\nEnd Sub<\/pre>\nDie Anweisung ist in allen drei Prozeduren gleich und sorgt dafür, dass der aktuelle Datensatz markiert wird, wenn er dies zuvor nicht war, und umgekehrt.<\/p>\n
Durch die damit verbundene änderung des Wertes im Feld Markiert <\/b>reagiert auch die bedingte Formatierung und färbt die Felder des Datensatzes entsprechend ein.<\/p>\n
Die Prozeduren zum Ausgeben der markierten Datensätze und zum Abwählen der ausgewählten Datensätze funktionieren genau so wie im Formular frmMehrfachauswahlJaNein<\/b>.<\/p>\n
Mehrfachauswahl im Datenblatt mit temporärem Recordset<\/b><\/p>\n
Vielleicht ist es auch gar nicht möglich oder auch nicht erwünscht, eine weitere Tabelle anzulegen. Dann müssen Sie mit einem kleinen Trick vorlieb nehmen, zu dem Sie im Beitrag Temporäre Datensatzgruppen <\/b>mehr erfahren (www.access-im-unternehmen.de\/711<\/b>).<\/p>\n
Die Konfiguration basiert wieder auf dem Formular frmMehrfachauswahlJaNein<\/b>. Diesmal heißen die Formulare jedoch frmMehrfachauswahlTemporaer <\/b>und sfmMehrfachauswahlTemporaer<\/b>.<\/p>\n
Das Unterformular erhält diesmal nicht gleich zu Beginn eine Datenherkunft. Diese weisen wir erst später über die Recordset<\/b>-Eigenschaft per VBA zu.<\/p>\n
Als Datenherkunft dient diesmal grundsätzlich wieder die zu Beginn eingeführte Tabelle tblPersonen<\/b>, denn wir wollen ja ohne ein spezielles Feld zum Speichern des Markiert<\/b>-Zustandes arbeiten.<\/p>\n
Grundsätzlich deshalb, weil die Daten zwar aus dieser Tabelle stammen, aber nicht direkt an das Unterformular gebunden werden.<\/p>\n
In der Routine, die durch das Ereignis Beim Öffnen <\/b>des Unterformulars ausgelöst wird, geschieht Folgendes (s. Listing 6):<\/p>\n\n- Die Prozedur erzeugt zwei Datensatzgruppen: Eine für die tatsächlichen Daten der Tabelle tblPersonen<\/b> und eine für die als Recordset des Unterformulars verwendete Datenherkunft.<\/li>\n
- rstTemp <\/b>wird als temporäre Datensatzgruppe ausgeführt und mit den entsprechenden Feldern ausgestattet – und einem zusätzlichen Ja\/Nein<\/b>-Feld namens Markiert<\/b>.<\/li>\n
- Dann wird rstPersonen <\/b>auf Basis der Tabelle tblPersonen <\/b>geöffnet. Diese Datensatzgruppe enthält somit die Datensätze der zugrunde liegenden Tabelle.<\/li>\n
- Danach durchläuft die Prozedur alle Datensätze des Recordsets rstPersonen <\/b>und schreibt alle darin enthaltenen Daten in jeweils neue Datensätze im Recordset rstTemp<\/b>.<\/li>\n
- Schließlich weist die Prozedur rstTemp <\/b>der Eigenschaft Recordset <\/b>des Unterformulars zu und füllt dieses somit auf Umwegen mit den Daten der Tabelle tblPersonen<\/b>.<\/li>\n<\/ul>\n
Private Sub Form_Open(Cancel As Integer)\r\n Dim cnn As ADODB.Connection\r\n Dim rstPersonen As ADODB.Recordset\r\n Dim rstTemp As ADODB.Recordset\r\n Dim fld As ADODB.Field\r\n Set cnn = CurrentProject.Connection\r\n Set rstTemp = New ADODB.Recordset\r\n Set rstPersonen = New ADODB.Recordset\r\n rstTemp.CursorLocation = adUseClient\r\n rstTemp.LockType = adLockOptimistic\r\n rstTemp.Fields.Append "ID", adInteger\r\n rstTemp.Fields.Append "Vorname", adVarWChar, 255\r\n rstTemp.Fields.Append "Nachname", adVarWChar, 255\r\n rstTemp.Fields.Append "Markiert", adBoolean, False\r\n rstTemp.Open\r\n rstPersonen.Open "tblPersonen", cnn\r\n Do While Not rstPersonen.EOF\r\n rstTemp.AddNew\r\n For Each fld In rstPersonen.Fields\r\n rstTemp(fld.Name) = rstPersonen(fld.Name)\r\n Next fld\r\n rstTemp.Update\r\n rstPersonen.MoveNext\r\n Loop\r\n Set Me.Recordset = rstTemp\r\n Set rstPersonen = Nothing\r\n Set cnn = Nothing\r\nEnd Sub<\/pre>\nNatürlich müssen wir uns auch wieder um das Zurücksetzen der Markierungen kümmern. Dies geschieht in der Prozedur, die durch die bereits bekannte Schaltfläche cmdAuswahlLoeschen<\/b> ausgelöst wird.<\/p>\n
Diese Prozedur speichert zunächst die aktuelle Position des Datensatzzeigers in der Variablen lngPos<\/b>, damit der betroffene Datensatz nach dem Zurücksetzen der Daten wieder markiert werden kann.<\/p>\n
Das Zurücksetzen geschieht dann durch Durchlaufen eines Recordsets mit den betroffenen Daten. Dazu benötigten wir keine eigene Objektvariable, wir können gleich auf die Recordset<\/b>-Eigenschaft des Unterformulars zugreifen, um die darin enthaltenen Daten anzupassen.<\/p>\n
Zuerst setzt die Prozedur den Datensatzzeiger auf den ersten Datensatz. Dann durchläuft sie alle im Recordset des Unterformulars enthaltenen Datensätze und setzt jeweils den Wert des Feldes Markiert <\/b>auf False<\/b>.<\/p>\n
Schließlich wird die Eigenschaft AbsolutePosition <\/b>wieder auf den zu Beginn gespeicherten Datensatz eingestellt (s. Listing 7).<\/p>\n
Private Sub cmdAuswahlLoeschen_Click()\r\n Dim lngPos As Long\r\n lngPos = Me.sfmMehrfachauswahlTemporaer.Form.ID\r\n With Me.sfmMehrfachauswahlTemporaer.Form.Recordset\r\n .MoveFirst\r\n Do While Not .EOF\r\n !Markiert = False\r\n .Update\r\n .MoveNext\r\n Loop\r\n .AbsolutePosition = lngPos\r\n End With\r\nEnd Sub<\/pre>\nDas Auslesen der markierten Datensätze erfolgt auch etwas anders als in den vorherigen Beispielen – immerhin können wir nicht auf die in einer Tabelle gespeicherten Daten zugreifen (s. Listing 8).<\/p>\n
Private Sub cmdStart_Click()\r\n Dim rst As New ADODB.Recordset\r\n Dim lngPersonID As Long\r\n Set rst = Me.sfmMehrfachauswahlTemporaer.Form.Recordset\r\n rst.Filter = "Markiert = True"\r\n Do While Not rst.EOF\r\n lngPersonID = rst!ID\r\n ''Etwas mit lngPerson erledigen\r\n Debug.Print lngPersonID\r\n rst.MoveNext\r\n Loop\r\nEnd Sub<\/pre>\nAlso definieren wir zunächst ein Recordset<\/b>-Objekt auf Basis des Recordsets des Unterformulars und weisen dieses der neu erstellten Objektvariablen zu.<\/p>\n
Die folgende Zeile weist der Filter<\/b>-Eigenschaft des Recordset<\/b>-Objekts den Ausdruck Markiert = True <\/b>zu, denn nur diese Datensätze interessieren uns.<\/p>\n
Das Recordset wird dadurch direkt gefiltert und wir können im Anschluss ganz einfach per Do While<\/b>-Schleife durch die gefilterten Datensätze streifen, um deren ID zu ermitten und zu verwerten.<\/p>\nDownloads zu diesem Beitrag<\/h3>\n
Enthaltene Beispieldateien:<\/p>\n
IndividuelleDatenauswahl.mdb<\/p>\n
Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"In Foren und Newsgroups wird immer wieder nach Möglichkeiten gefragt, einen oder mehrere Datensätze individuell auszuwählen, um anschließend irgendetwas mit diesen Datensätzen zu erledigen – beispielsweise um einen Bericht auf Basis der ausgewählten Daten zu füllen oder die Empfänger eines Serienbriefs zu bestimmen. Dieser Beitrag stellt verschiedene Möglichkeiten vor, um dies zu realisieren.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[66022010,662010,44000023],"tags":[],"class_list":["post-55000708","post","type-post","status-publish","format-standard","hentry","category-66022010","category-662010","category-Mit_Formularen_arbeiten"],"yoast_head":"\n
Individuelle Datenauswahl - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/Individuelle_Datenauswahl\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Individuelle Datenauswahl\" \/>\n<meta property=\"og:description\" content=\"In Foren und Newsgroups wird immer wieder nach Möglichkeiten gefragt, einen oder mehrere Datensätze individuell auszuwählen, um anschließend irgendetwas mit diesen Datensätzen zu erledigen - beispielsweise um einen Bericht auf Basis der ausgewählten Daten zu füllen oder die Empfänger eines Serienbriefs zu bestimmen. Dieser Beitrag stellt verschiedene Möglichkeiten vor, um dies zu realisieren.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Individuelle_Datenauswahl\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-22T22:11:26+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg05.met.vgwort.de\/na\/b52246a8385b4f999eed1fcd709b7584\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"17\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Individuelle_Datenauswahl\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Individuelle_Datenauswahl\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Individuelle Datenauswahl\",\"datePublished\":\"2020-05-22T22:11:26+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Individuelle_Datenauswahl\\\/\"},\"wordCount\":2961,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Individuelle_Datenauswahl\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/b52246a8385b4f999eed1fcd709b7584\",\"articleSection\":[\"2\\\/2010\",\"2010\",\"Mit Formularen arbeiten\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Individuelle_Datenauswahl\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Individuelle_Datenauswahl\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Individuelle_Datenauswahl\\\/\",\"name\":\"Individuelle Datenauswahl - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Individuelle_Datenauswahl\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Individuelle_Datenauswahl\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/b52246a8385b4f999eed1fcd709b7584\",\"datePublished\":\"2020-05-22T22:11:26+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Individuelle_Datenauswahl\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Individuelle_Datenauswahl\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Individuelle_Datenauswahl\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/b52246a8385b4f999eed1fcd709b7584\",\"contentUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/b52246a8385b4f999eed1fcd709b7584\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Individuelle_Datenauswahl\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Individuelle Datenauswahl\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"Individuelle Datenauswahl - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/Individuelle_Datenauswahl\/","og_locale":"de_DE","og_type":"article","og_title":"Individuelle Datenauswahl","og_description":"In Foren und Newsgroups wird immer wieder nach Möglichkeiten gefragt, einen oder mehrere Datensätze individuell auszuwählen, um anschließend irgendetwas mit diesen Datensätzen zu erledigen - beispielsweise um einen Bericht auf Basis der ausgewählten Daten zu füllen oder die Empfänger eines Serienbriefs zu bestimmen. Dieser Beitrag stellt verschiedene Möglichkeiten vor, um dies zu realisieren.","og_url":"https:\/\/access-im-unternehmen.de\/Individuelle_Datenauswahl\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-22T22:11:26+00:00","og_image":[{"url":"http:\/\/vg05.met.vgwort.de\/na\/b52246a8385b4f999eed1fcd709b7584","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"17\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Individuelle_Datenauswahl\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Individuelle_Datenauswahl\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Individuelle Datenauswahl","datePublished":"2020-05-22T22:11:26+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Individuelle_Datenauswahl\/"},"wordCount":2961,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Individuelle_Datenauswahl\/#primaryimage"},"thumbnailUrl":"http:\/\/vg05.met.vgwort.de\/na\/b52246a8385b4f999eed1fcd709b7584","articleSection":["2\/2010","2010","Mit Formularen arbeiten"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Individuelle_Datenauswahl\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Individuelle_Datenauswahl\/","url":"https:\/\/access-im-unternehmen.de\/Individuelle_Datenauswahl\/","name":"Individuelle Datenauswahl - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Individuelle_Datenauswahl\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Individuelle_Datenauswahl\/#primaryimage"},"thumbnailUrl":"http:\/\/vg05.met.vgwort.de\/na\/b52246a8385b4f999eed1fcd709b7584","datePublished":"2020-05-22T22:11:26+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Individuelle_Datenauswahl\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Individuelle_Datenauswahl\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Individuelle_Datenauswahl\/#primaryimage","url":"http:\/\/vg05.met.vgwort.de\/na\/b52246a8385b4f999eed1fcd709b7584","contentUrl":"http:\/\/vg05.met.vgwort.de\/na\/b52246a8385b4f999eed1fcd709b7584"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Individuelle_Datenauswahl\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Individuelle Datenauswahl"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000708","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000708"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000708\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000708"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000708"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000708"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}