<\/p>\n
Bei einem Newsletter-Dienstleister habe ich neulich eine tolle Möglichkeit gesehen, um Daten zusammenzuführen. Dabei konnte man aus unterschiedlichen Verteilerlisten eine neue Verteilerliste zusammenstellen. Es war nicht nur möglich, Verteilerlisten hinzuzufügen, sondern auch das Ausschließen war eine Option. Man konnte also alle Adressen auswählen, die in Verteiler A und Verteiler B waren, aber nicht in Verteiler C. Das wollen wir mit Access auch nachbilden! Als Voraussetzung haben wir im Beitrag „Selektionen speichern“ bereits die Möglichkeit zum Definieren verschiedener Filter und Sortierungen für die gleiche Tabelle geschaffen. Diese wollen wir nun als Basis zum Zusammenstellen darauf aufbauender Listen verwenden.<\/b><\/p>\n
Das A und O der Lösung dieses Beitrags ist, Sie ahnen es bereits, eine geeignete Benutzeroberfläche. Wir können natürlich Einträge in einem Listenfeld als markiert darstellen. Die nicht markierten Einträge sollen dann nicht berücksichtigt werden. Aber wie selektieren wir dann noch diejenigen Listen, die ausgeschlossen werden sollen<\/p>\n
Um zu veranschaulichen, was das Ziel ist, schauen wir uns die Darstellung an, die der Newsletter-Provider uns zum Auswählen und Abwählen von Listen anbietet (siehe Bild 1). Das Auswählen ist allein über das Kästchen möglich, das Abwählen nur über den Link Die Liste ausschließen <\/b>ganz rechts in den Einträgen.<\/p>\n
![\"Aus-](\"..\/fileadmin\/_temp_\/2021_04\/pic_1311_001.png\")
<\/p>\n
Bild 1: Aus- und Abwählen von Listen im Newslettertool<\/span><\/b><\/p>\n Am praktischsten wäre ein Kontrollkästchen mit den hier verwendeten Icons, dessen drei Status man durch wiederholtes Anklicken einstellen kann – also erster Klick zum Einschließen, zweiter Klick zum Ausschließen und dritter Klick, um die Liste nicht zu berücksichtigen.<\/p>\n Da die meisten Nutzer das so nicht kennen, ist das Anzeigen eines Links wie hier rechts in der Auflistung wohl hilfreich.<\/p>\n Wenn wir allerdings in der Datenblattansicht bleiben wollen, damit der Benutzer auch die Möglichkeit hat, die Listen zu sortieren oder zu filtern, gelingt das nicht. Hier können wir nur die drei Steuerelemente Textfeld<\/b>, Kontrollkästchen<\/b> und Kombinationsfeld<\/b> nutzen.<\/p>\n Wie können wir dennoch einzuschließende und auszuschließende Listen berücksichtigen Dazu gibt es verschiedene Möglichkeiten. Die beste ist wohl eine, die optisch genau anzeigt, ob die Einträge der Liste eingeschlossen oder ausgeschlossen werden sollen (oder ob wir sie ignorieren). Warum also nicht beispielsweise die bedingte Formatierung nutzen Allerdings benötigen wir dann noch ein weiteres Feld in der Tabelle tblSelektionskonfigurationen<\/b>, mit dem wir den Zustand definieren. Dieses nennen wir schlicht und einfach Selektion<\/b> und legen den Datentyp Zahl <\/b>fest. Die Tabelle sieht im Entwurf danach wie in Bild 2 aus. Den Standardwert legen wir auf 1 <\/b>fest. Dies soll der neutrale Zustand sein. -1 <\/b>soll die Liste einschließen, 0 <\/b>die Liste ausschließen. Für bereits vorhandene Datensätze ohne einen Wert im Feld Selektion <\/b>fügen Sie den Wert 1 <\/b>hinzu.<\/p>\n Bild 2: Erweitern der Tabelle tblSelektionskonfigurationen<\/span><\/b><\/p>\n Das Formular frmSelektionenKombinieren <\/b>enthält ein Unterformular namens sfmSelektionenKombinieren<\/b>, das die zu auszuwählenden Selektionen anzeigt (siehe Bild 3).<\/p>\n Bild 3: Entwurf des Formulars zur Anzeige der zu wählenden Selektionen<\/span><\/b><\/p>\n Als Datensatzquelle des Unterformulars dient die Abfrage aus Bild 4. Sie enthält alle Felder der Tabelle tblSelektionskonfigurationen <\/b>und sortiert diese nach dem Wert des Feldes Selektion<\/b>.<\/p>\n <\/p>\n Bild 4: Abfrage für das Unterformular<\/span><\/b><\/p>\n Damit die Datensätze je nach dem Wert des Feldes Selektion entweder grün, rot oder gar nicht markiert werden, fügen wir für jedes der Steuerelemente zwei bedingte Formatierungen hinzu. Die Erste soll den Hintergrund des Feldes grün färben, wenn das Feld Selektion<\/b> den Wert -1 <\/b>hat, die Zweite färbt rot, wenn der Wert 0 <\/b>ist. Die bedingten Formatierungen fügen wir der Einfachheit halber schnell mit VBA hinzu (siehe Listing 1).<\/p>\n Listing 1: Anlegen von bedingten Formatierungen<\/span><\/b><\/p>\n Wenn der Benutzer auf eines der Felder KonfigurationID <\/b>oder Bezeichnung klickt, soll der Wert des Feldes Selektion <\/b>den Wert wechseln – und zwar von 0 <\/b>zu -1<\/b>, von -1 <\/b>zu 1 <\/b>und 1 <\/b>wieder zu 0<\/b>. Da wir dazu die gleichen Anweisungen für die beiden Ereignisprozeduren aufrufen, legen wir dazu eine Prozedur an, die wir Click <\/b>nennen und deren Aufruf wir in den beiden folgenden Prozeduren platzieren:<\/p>\n Die hier aufgerufene Prozedur sieht wie folgt aus:<\/p>\n Sie fragt schlicht den aktuellen Wert des Feldes Selektion <\/b>ab und ändert diesen in den nächsten Wert der Reihenfolge.<\/p>\n Im Unterformular stellen wir nun noch die Eigenschaft Anfügen zulassen <\/b>auf Nein <\/b>ein. Außerdem entfernen wir die alternierende Hintergrundfarbe – wir haben nun bereits genug verschiedene Farben im Formular. Schließlich entfernen wir die Gitternetzlinien und erhalten ein Ergebnis wie in Bild 5.<\/p>\n Bild 5: Anzeige der Selektionen, die eingeschlossen (grün) oder ausgeschlossen werden sollen (rot)<\/span><\/b><\/p>\n Damit haben wir die Grundlage geschaffen, um Selektionen der Tabelle tblArtikel <\/b>nach der Auswahl wie im Formular frmSelektionenKombinieren <\/b>vorzunehmen.<\/p>\n Die Prozedur, die durch die Schaltfläche cmdSelektion-Anzeigen<\/b> ausgelöst wird (siehe Listing 2), verknüpft alle einzuschließenden Filter mit OR<\/b> und alle auszuschließenden Filter mit AND NOT<\/b> und verbindet diese dann anschließend mit AND<\/b>.<\/p>\n![\"Erweitern](\"..\/fileadmin\/_temp_\/2021_04\/pic_1311_002.png\")
<\/p>\nFormular zur Auswahl der Listen<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2021_04\/pic_1311_003.png\")
<\/p>\n![\"Abfrage](\"..\/fileadmin\/_temp_\/2021_04\/pic_1311_004.png\")
<\/p>\nBedingte Formatierung für farbige Markierung<\/h2>\n
Public Sub <\/span>BedingteFormatierung()\r\n Dim <\/span>frm As <\/span>Form\r\n Dim <\/span>ctl As <\/span>Control\r\n Dim <\/span>objFormatCondition As <\/span>FormatCondition\r\n DoCmd.OpenForm \"sfmSelektionenKombinieren\", acDesign\r\n Set<\/span> frm = Forms!sfmSelektionenKombinieren\r\n For Each ctl In frm.Controls\r\n Select Case ctl.ControlType\r\n Case <\/span>acTextBox, acComboBox\r\n Set<\/span> objFormatCondition = ctl.FormatConditions.Add(acExpression, acEqual, \"[Selektion]=-1\")\r\n With<\/span> objFormatCondition\r\n .BackColor = RGB<\/span>(231, 250, 239)\r\n .FontBold = True<\/span>\r\n End With<\/span>\r\n Set<\/span> objFormatCondition = ctl.FormatConditions.Add(acExpression, acEqual, \"[Selektion]=0\")\r\n With<\/span> objFormatCondition\r\n .BackColor = RGB<\/span>(250, 232, 233)\r\n .FontBold = True<\/span>\r\n End With<\/span>\r\n End Select<\/span>\r\n Next<\/span> ctl\r\n DoCmd.Close acForm, \"frmSelektionenKombinieren\", acSaveYes\r\nEnd Sub<\/span><\/pre>\nAktualisieren des Felds Selektion beim Anklicken<\/h2>\n
Private Sub <\/span>Bezeichnung_Click()\r\n Call<\/span> Click\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>KonfigurationID_Click()\r\n Call<\/span> Click\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Click()\r\n If <\/span>Me!Selektion = 0 Then<\/span>\r\n Me!Selektion = 1\r\n Else<\/span>\r\n If <\/span>Me!Selektion = 1 Then<\/span>\r\n Me!Selektion = -1\r\n Else<\/span>\r\n If <\/span>Me!Selektion = -1 Then<\/span>\r\n Me!Selektion = 0\r\n End If<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n Me.Requery\r\nEnd Sub<\/span><\/pre>\n![\"Anzeige](\"..\/fileadmin\/_temp_\/2021_04\/pic_1311_005.png\")
<\/p>\nSelektionen kombinieren<\/h2>\n
Private Sub <\/span>cmdSelektionAnzeigen_Click()\r\n Dim <\/span>db As <\/span>DAO.Database, rst As <\/span>DAO.Recordset\r\n Dim <\/span>strFilter As String<\/span>, strFilterPlus As String<\/span>, strFilterMinus As String<\/span>\r\n If <\/span>Not<\/span> DCount(\"Selektion\", \"tblSelektionskonfigurationen\", \"Selektion = -1\") = 0 Then<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblSelektionskonfigurationen ORDER BY Selektion\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n If <\/span>rst!Selektion = -1 Then<\/span>\r\n strFilterPlus = strFilterPlus & \" OR (\" & rst!Filter & \")\"\r\n Else<\/span>\r\n If <\/span>rst!Selektion = 0 Then<\/span>\r\n strFilterMinus = strFilterMinus & \" AND NOT (\" & rst!Filter & \")\"\r\n End If<\/span>\r\n End If<\/span>\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n If <\/span>Len<\/span>(strFilterPlus) > 0 Then<\/span>\r\n strFilterPlus = \"(\" & Mid<\/span>(strFilterPlus, 4) & \")\"\r\n End If<\/span>\r\n If <\/span>Len<\/span>(strFilterMinus) > 0 Then<\/span>\r\n strFilterMinus = \" AND (\" & Mid<\/span>(strFilterMinus, 5) & \")\"\r\n End If<\/span>\r\n strFilter = strFilterPlus & strFilterMinus\r\n DoCmd.OpenForm \"frmKombinierteSelektion\", WhereCondition:=strFilter, View:=acFormDS\r\n Else<\/span>\r\n MsgBox<\/span> \"Bitte wählen Sie mindestens eine hinzuzufügende Liste aus.\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n