<\/p>\n
Wenn Sie Daten in einer Tabelle haben, die nach einem bestimmten Kriterium in zwei Kategorien eingeteilt werden, benötigen Sie eine praktische Lösung, um die Einteilung vorzunehmen. In diesem Beitrag zeigen wir, wie Sie die Daten einer Tabelle, die beispielsweise über ein Ja\/Nein-Feld in zwei Kategorien landen, nach diesem Feld verwalten können. Dazu nutzen wir einfach zwei Listenfelder, von denen eines die Ja-Einträge und eines die Nein-Einträge anzeigt. Das Ändern des relevanten Ja\/Nein-Feldes und somit das Verschieben von der einen in die andere Gruppe und umgekehrt erledigen wir dabei per Doppelklick auf das betroffene Element.<\/b><\/p>\n
Normalerweise erscheinen zwei Listenfelder, welche die Daten der gleichen Tabelle anzeigen, im Kontext von m:n-Beziehungen. Beispielsweise bei Fahrzeugen und Ausstattungsmerkmalen findet sich dann ein Auswahlfeld, mit dem man das Fahrzeug auswählen kann und zwei Listenfelder, von denen das eine die enthaltenen Ausstattungsmerkmale anzeigt und das andere die nicht enthaltenen Ausstattungsmerkmale.<\/p>\n
Per Doppelklick oder auch mit entsprechenden Schaltflächen kann der Benutzer dann die Ausstattungsmerkmale hinzufügen oder entfernen.<\/p>\n
Das hier zur Unterscheidung zweier Kategorien verwendete Ja\/Nein<\/b>-Feld macht es noch einfacher – es gibt keine m:n-Beziehung, sondern nur die Daten einer einzigen Tabelle, von denen die einen mit dem Wert Ja <\/b>und die anderen mit dem Wert Nein <\/b>gekennzeichnet sind.<\/p>\n
In unserem Beispiel wollen wir eine Tabelle namens tblArtikel <\/b>verwenden, die ein Feld namens Auslaufartikel <\/b>enthält.<\/p>\n
In der Datenblattansicht hat der Benutzer die Gelegenheit, einen Artikel durch das Ändern des Wertes eines Kontrollkästchens als Auslaufartikel zu markieren oder diesen wieder ins Sortiment aufzunehmen.<\/p>\n
In der hier vorgestellten Lösung soll es einfacher sein: Wir wollen in einem Listenfeld alle Artikel anzeigen, die nicht auslaufen und in einem zweiten Listenfeld alle Auslaufartikel.<\/p>\n
Beispieltabelle tblArtikel<\/b><\/p>\n
In diesem Beitrag wollen wie die Tabelle tblArtikel<\/b> der Südsturm-Beispieldatenbank als Beispiel verwenden. Diese stellt mit Auslaufartikel <\/b>ein passendes Feld bereit (siehe Bild 1). Im Bild wird auch gleich ersichtlich, dass die Darstellung in der Datenblattansicht nicht optimal ist: Hier muss man alle Datensätze durchsehen, um die Auslaufartikel zu erkennen. Man könnte auch nach dem Feld Auslaufartikel sortieren <\/b>oder nach dem Wert Ja <\/b>oder Nein <\/b>filtern, aber die Übersicht könnte doch besser sein. Daher erstellen wir nun ein Formular, dass die Auslaufartikel und die Nicht-Auslaufartikel in zwei Listenfeldern gegenüberstellt.<\/p>\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2020_05\/pic_1253_001.png\")
<\/p>\n
Bild 1: Tabelle mit Auslaufartikeln<\/span><\/b><\/p>\n Abfragen zur Auswahl von Auslaufartikel und Nicht-Auslaufartikeln<\/b><\/p>\n Bevor wir das Formular programmieren, wollen wir noch die beiden Abfragen erstellen, die als Datensatzherkunft für die beiden Listenfelder dienen. Die erste heißt qry-KeinAuslaufartikel <\/b>und verwendet die Tabelle tblArtikel<\/b> als Datenquelle. Sie liefert die drei Felder ArtikelID<\/b>, Artikelname <\/b>und Auslaufartikel<\/b>, wobei das Feld Auslaufartikel <\/b>als Kriterium verwendet wird – die Abfrage soll nur solche Datensätze liefern, deren Artikel keine Auslaufartikel sind (siehe Bild 2). Außerdem sortiert die Abfrage die Artikel aufsteigend nach dem Feld Artikelname<\/b>.<\/p>\n Bild 2: Abfrage mit Artikeln, die nicht ausgelaufen sind<\/span><\/b><\/p>\n Die zweite Abfrage qryAuslaufartikel<\/b> ist identisch aufgebaut, verwendet aber den Wert Wahr <\/b>als Vergleichswert für das Kriterium mit dem Feld Auslaufartikel <\/b>(siehe Bild 3).<\/p>\n Bild 3: Abfrage mit Artikeln, die ausgelaufen sind<\/span><\/b><\/p>\n Damit können wir in die Programmierung des Formulars mit den Listenfeldern einsteigen.<\/p>\n Listenfelder zum Selektieren von Auslaufartikeln<\/b><\/p>\n Das neue Formular frmAuslaufartikelVerwalten <\/b>statten wir mit den beiden Listenfeldern lstKeineAuslaufartikel <\/b>und lstAuslaufartikel <\/b>aus.<\/p>\n Für das Formular selbst stellen wir die Eigenschaften Datensatzmarkierer<\/b>, Navigationsschaltflächen<\/b>, Bildlaufleisten <\/b>und Trennlinien <\/b>auf den Wert Nein <\/b>und Automatisch zentrieren <\/b>auf Ja <\/b>ein.<\/p>\n Das Listenfeld lstKeineAuslaufartikel <\/b>verwendet die Abfrage qryKeinAuslaufartikel <\/b>als Datensatzquelle. Damit nur der Artikelname angezeigt wird, nicht jedoch der Primärschlüsselwert und der Inhalt des Feldes Auslaufartikel<\/b>, stellen wir die Eigenschaft Spaltenanzahl <\/b>des Listenfeldes auf 2 <\/b>und die Eigenschaft Spaltenbreiten <\/b>auf 0cm <\/b>ein.<\/p>\n Damit werden nur die ersten beiden Spalten in die Darstellung aufgenommen und die erste Spalte durch die Spaltenbreite 0cm <\/b>praktisch ausgeblendet.<\/p>\n Für das zweite Listenfeld lstAuslaufartikel <\/b>stellen wir die gleichen Eigenschaften ein – mit Ausnahme der Eigenschaft Datensatzherkunft<\/b>, der wir die Abfrage qryAuslaufartikel <\/b>zuweisen.<\/p>\n Der Entwurf des Formulars erscheint danach wie in Bild 4.<\/p>\n Bild 4: Entwurfsansicht des Formulars frmAuslaufartikelVerwalten<\/span><\/b><\/p>\n Doppelklick-Ereignisse mit Funktion füllen<\/b><\/p>\n Damit der Benutzer die Einträge des linken Listenfeldes in das rechte Listenfeld verschieben kann und umgekehrt, sind folgende Schritte nötig:<\/p>\n Für das Ereignis Beim Doppelklicken <\/b>des linken Listenfeldes lstKeineAuslaufartikel <\/b>legen wir die Ereignisprozedur aus Listing 1 an. Die Prozedur prüft im ersten Schritt, ob der Benutzer einen Eintrag im Listenfeld angeklickt hat oder ob er in den leeren Bereich des Listenfeldes geklickt hat. Nur im ersten Fall werden die innerhalb der If…Then<\/b>-Bedingung befindlichen Anweisungen ausgeführt.<\/p>\n Listing 1: Prozedur, die beim Doppelklick auf das Listenfeld lstKeineAuslaufartikel ausgelöst wird<\/span><\/b><\/p>\n In diesem Fall liest die Prozedur mit der Eigenschaft ItemsSelected <\/b>den Index des angeklickten Eintrags in die Variable lngIndex <\/b>ein. Mit diesem Wert holt sie mit der Eigenschaft ItemData <\/b>den Wert der gebundenen Spalte des angeklickten Eintrags und schreibt diesen in die Variable lngArtikelID<\/b>.<\/p>\n <\/p>\n Damit können wir nun eine SQL-Anweisung zusammenstellen, die für den Eintrag der Tabelle tblArtikel<\/b>, dessen Feld ArtikelID <\/b>den Wert aus lngArtikelID <\/b>aufweist, den Wert des Feldes Auslaufartikel <\/b>auf False <\/b>einstellt.<\/p>\n Danach braucht die Prozedur nur noch die beiden Listenfelder mit der Requery<\/b>-Methode zu aktualisieren.<\/p>\n Die Prozedur für das rechte Listenfeld lstAuslaufartikel<\/b> ist ähnlich aufgebaut wie die für das linke Listenfeld (siehe Listing 2). In diesem Fall ermittelt sie den zu bearbeitenden Datensatz allerdings aus dem Listenfeld lstAuslaufartikel <\/b>und ändert den Wert des Feldes Auslaufartikel <\/b>nicht in False<\/b>, sondern in True<\/b>.<\/p>\n Listing 2: Prozedur, die beim Doppelklick auf das Listenfeld lstAuslaufartikel ausgelöst wird<\/span><\/b><\/p>\n Auslaufartikel verwalten<\/b><\/p>\n Damit erhalten wir das Formular aus Bild 5. Wenn Sie auf einen der Einträge im linken Listenfeld klicken, wird dieses in das rechte Listenfeld verschoben und umgekehrt.<\/p>\n Bild 5: Einen Artikel zum Auslaufartikel machen<\/span><\/b><\/p>\n Je mehr Datensätze die Tabelle enthält, umso unübersichtlicher wird die Liste. Also lassen wir uns noch etwas einfallen, um die Liste übersichtlicher zu gestalten.<\/p>\n Listenfelder schnell filtern<\/b><\/p>\n Wie können wir im Listenfeld schnell einen Artikel finden, um diesen als Auslaufartikel zu markieren Die einfachste Möglichkeit ist, einfach den Anfangsbuchstaben des gewünschten Artikels einzugeben.<\/p>\n Das Listenfeld springt dann automatisch zum ersten Eintrag mit diesem Anfangsbuchstaben.<\/p>\n Manche Listen enthalten aber so viele Einträge, dass auch diese Lösung nicht besonders hilfreich ist. In diesem Fall fügen wir dem Formular ein einfaches Textfeld hinzu, mit dem der Benutzer einen Suchbegriff für den gewünschten Artikelnamen eingeben kann.<\/p>\n Das Textfeld namens txtFilter <\/b>platzieren wir oben über den beiden Listenfeldern. Sobald der Benutzer dort ein Zeichen eingibt, sollen die Einträge der Listenfelder nach diesem Wert gefiltert werden.<\/p>\n Dazu hinterlegen wir für die Ereigniseigenschaft Bei Änderung <\/b>des Textfeldes die Prozedur aus Listing 3.<\/p>\n Listing 3: Prozedur, die nach Eingabe eines Zeichens im Textfeld txtFilter ausgelöst wird<\/span><\/b><\/p>\n Das Ergebnis sieht nach der Eingabe beispielsweise der beiden Buchstaben ch <\/b>wie in Bild 6 aus. Damit lässt sich bereits viel leichter der gewünschte Artikel auswählen und zu den Auslaufartikeln übertragen.<\/p>\n Bild 6: Filtern der Listeneinträge<\/span><\/b><\/p>\n Flexibler Einsatz der Lösung<\/b><\/p>\n Wenn Sie diese Lösung nun nicht für die Tabelle tblArtikel<\/b>, sondern für eine ganz andere Tabelle mit anderen Feldern einsetzen wollen, müssen Sie einige Elemente ändern – unter anderem am Quellcode. Deshalb wollen wir die Lösung noch etwas flexibler gestalten. Dazu sind die folgenden Schritte nötig:<\/p>\n Bild 7: Neue Abfrage für die Datensätze, deren Ja\/Nein-Feld den Wert True enthält.<\/span><\/b><\/p>\n Die beiden durch einen Doppelklick ausgelösten Ereignisprozeduren rufen beide die gleiche Prozedur namens lst_DoubleClick <\/b>auf und übergeben dieser als Parameter einen Verweis auf das betroffene Listenfeld sowie den Wert, auf den das Ja\/Nein<\/b>-Feld des angeklickten Eintrags eingestellt werden soll. Außerdem aktualisieren beide Prozeduren nach dem Aufruf von lst_DoubleClick <\/b>die beiden Listenfelder.<\/p>\n Die Prozedur lstFalse_DblClick<\/b>, die beim Doppelklick auf das Listenfeld mit den Einträgen, deren Ja\/Nein<\/b>-Feld den Wert False <\/b>aufweist, übergibt also beispielsweise das Listenfeld lstFalse <\/b>und als einzustellenden Wert True<\/b>:<\/p>\n Die Prozedur lstTrue_DblClick <\/b>übergibt das Listenfeld lstTrue <\/b>und den einzustellenden Wert False<\/b>:<\/p>\n Die durch diese beiden Prozeduren aufgerufene Prozedur lst_DoubleClick<\/b> ermittelt zunächst die Quelltabelle des Feldes ID<\/b> (siehe Listing 4). Diese Tabelle können wir nicht direkt ermitteln, da das Listenfeld ja eine Abfrage als Datensatzherkunft verwendet. Also stellen wir zunächst eine Field<\/b>-Variable auf das Feld ID <\/b>ein (ID <\/b>wird in unserem Beispiel als Alias für das Feld ArtikelID <\/b>verwendet).<\/p>\n Listing 4: Prozedur, die nach einem Doppelklick auf einen der Listeneinträge ausgelöst wird <\/span><\/b><\/p>\n Danach lesen wir mit der Eigenschaft SourceTable <\/b>die Tabelle aus, aus welcher das Feld ID <\/b>stammt:<\/p>\n Außerdem wollen wir wissen, wie das Primärschlüsselfeld selbst heißt, was wir über die Eigenschaft SourceField <\/b>des Field<\/b>-Objekts ermitteln und in der Variablen strID <\/b>speichern:<\/p>\n Auf die gleiche Weise ermitteln wir noch den Namen des Feldes, für das wir in der Abfrage den Alias JaNein <\/b>festgelegt haben, und schreiben diesen in die Variable strTrueFalse<\/b>:<\/p>\n Damit können wir anschließend eine SQL-Abfrage zusammenstellen, die für den angeklickten Datensatz den Wert des Ja\/Nein<\/b>-Feldes auf den mit dem zweiten Parameter übergebenen Wert einstellt. Hier ist noch zu beachten, dass wir den Wert des Parameters bol <\/b>in einen Integer<\/b>-Wert umwandeln. Anderenfalls verwendet die Abfrage in der deutschen Version von Access den Wert Wahr <\/b>oder Falsch<\/b>, was zu einem Fehler führt. Die Abfrage wird mit diesem Ausdruck zusammengestellt:<\/p>\n Filter auf die parametrisierte Version anpassen<\/b><\/p>\n Damit auch der Filter an die geänderten Datensatzherkünfte der beiden Listenfelder angepasst wird, ändern wir die durch die Eingabe von Zeichen in das Textfeld txtFilter<\/b> ausgelöste Prozedur wie in Listing 5. Hier ändern wir lediglich den Namen der beiden Abfragen (qryTrue <\/b>und qryFalse<\/b>) und stellen das zu vergleichende Feld auf Bezeichnung <\/b>ein, also den Alias für das anzuzeigende Feld.<\/p>\n Listing 5: Parametrisierte Version der Prozedur zum Filtern der Listenfelder<\/span><\/b><\/p>\n Beschriftungen der Listenfelder aus Abfrage lesen<\/b><\/p>\n Wir haben nun eine Lösung, die wir fast nur über Änderungen der benötigen Abfragen anpassen können. Fast deshalb, weil wir immer noch die Bezeichnungen der beiden Listenfelder im Formular einstellen müssen – alle anderen Informationen stecken komplett in den beiden Abfragen namens qryTrue <\/b>und qryFalse<\/b>.<\/p>\n Können wir die Lösung noch so optimieren, dass wir ausschließlich die Abfragen neu erstellen beziehungsweise anpassen müssen Ja, auch das funktioniert. Dazu sind die folgenden Schritte nötig:<\/p>\n Der erste Schritt ist, dass wir die Bezeichnungsfelder des Formulars benennen. Dazu wollen wir die Bezeichnungen lblFalse <\/b>und lblTrue <\/b>verwenden.<\/p>\n Dann öffnen wir die beiden Abfragen qryFalse <\/b>und qryTrue <\/b>und tragen für die Eigenschaft Beschreibung<\/b> den passenden Wert ein – bei der Abfrage qryFalse <\/b>also beispielsweise Kein Auslaufartikel<\/b> (siehe Bild 8).<\/p>\n Bild 8: Einstellen der Beschreibung einer Abfrage<\/span><\/b><\/p>\n Danach fügen wir noch die folgende Beim Laden<\/b>-Ereignisprozedur zum Formular frmTrueFalseVerwalten <\/b>hinzu. Sie referenziert die beiden Abfragen über QueryDef<\/b>-Objekte und liest die Werte der Eigenschaft Description <\/b>aus. Diese schreibt sie in die Eigenschaft Caption <\/b>des jeweiligen Listenfeldes:<\/p>\n Lösung in anderer Datenbank einsetzen<\/b><\/p>\n Wenn Sie diese Lösung nun in einer anderen Datenbank einsetzen möchten, sind folgende Schritte nötig:<\/p>\n![\"Abfrage](\"..\/fileadmin\/_temp_\/2020_05\/pic_1253_002.png\")
<\/p>\n![\"Abfrage](\"..\/fileadmin\/_temp_\/2020_05\/pic_1253_003.png\")
<\/p>\n![\"Entwurfsansicht](\"..\/fileadmin\/_temp_\/2020_05\/pic_1253_004.png\")
<\/p>\n\n
Private Sub <\/span>lstKeineAuslaufartikel_DblClick(Cancel As Integer<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngIndex As Long<\/span>\r\n Dim <\/span>lngArtikelID As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n If <\/span>Not<\/span> Me!lstKeinAuslaufartikel.ItemsSelected.Count = 0 Then<\/span>\r\n lngIndex = Me!lstKeineAuslaufartikel.ItemsSelected(0)\r\n lngArtikelID = Me!lstKeineAuslaufartikel.ItemData(lngIndex)\r\n db.Execute \"UPDATE tblArtikel SET Auslaufartikel = True<\/span> WHERE ArtikelID = \" & lngArtikelID, dbFailOnError\r\n Me!lstAuslaufartikel.Requery\r\n Me!lstKeineAuslaufartikel.Requery\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>lstAuslaufartikel_DblClick(Cancel As Integer<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngIndex As Long<\/span>\r\n Dim <\/span>lngArtikelID As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n If <\/span>Not<\/span> Me!lstAuslaufartikel.ItemsSelected.Count = 0 Then<\/span>\r\n lngIndex = Me!lstAuslaufartikel.ItemsSelected(0)\r\n lngArtikelID = Me!lstAuslaufartikel.ItemData(lngIndex)\r\n db.Execute \"UPDATE tblArtikel SET Auslaufartikel = False<\/span> WHERE ArtikelID = \" & lngArtikelID, dbFailOnError\r\n Me!lstAuslaufartikel.Requery\r\n Me!lstKeineAuslaufartikel.Requery\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Einen](\"..\/fileadmin\/_temp_\/2020_05\/pic_1253_005.png\")
<\/p>\nPrivate Sub <\/span>txtFilter_Change()\r\n Dim <\/span>strFilter As String<\/span>\r\n strFilter = Me!txtFilter.Text\r\n Me!lstAuslaufartikel.RowSource = \"SELECT * FROM qryAuslaufartikel WHERE Artikelname LIKE '*\" & strFilter & \"*'\"\r\n Me!lstKeineAuslaufartikel.RowSource = \"SELECT * FROM qryKeinAuslaufartikel WHERE Artikelname \" _\r\n & \"LIKE '*\" & strFilter & \"*'\"\r\nEnd Sub<\/span><\/pre>\n![\"Filtern](\"..\/fileadmin\/_temp_\/2020_05\/pic_1253_006.png\")
<\/p>\n\n
![\"Neue](\"..\/fileadmin\/_temp_\/2020_05\/pic_1253_007.png\")
<\/p>\nPrivate Sub <\/span>lstFalse_DblClick(Cancel As Integer<\/span>)\r\n lst_DoubleClick Me!lstFalse, -1\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>lstTrue_DblClick(Cancel As Integer<\/span>)\r\n lst_DoubleClick Me!lstTrue, 0\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>lst_DoubleClick(lst As <\/span>ListBox, bol As Boolean<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngID As Long<\/span>\r\n Dim <\/span>strTabelle As String<\/span>\r\n Dim <\/span>strTrueFalse As String<\/span>\r\n Dim <\/span>strID As String<\/span>\r\n Dim <\/span>fld As <\/span>DAO.Field\r\n If <\/span>Not<\/span> lst.ItemsSelected.Count = 0 Then<\/span>\r\n lngID = lst.ItemData(lst.ItemsSelected(0))\r\n Set<\/span> fld = lst.Recordset.Fields(\"ID\")\r\n strTabelle = fld.SourceTable\r\n strID = fld.SourceField\r\n Set<\/span> fld = lst.Recordset.Fields(\"JaNein\")\r\n strTrueFalse<\/span> = fld.SourceField\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"UPDATE \" & strTabelle & \" SET \" & strTrueFalse<\/span> & \" = \" & CInt(bol) & \" WHERE \" & strID & \" = \" _\r\n & lngID, dbFailOnError\r\n Me!lstTrue.Requery\r\n Me!lstFalse.Requery\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nSet<\/span> fld = lst.Recordset.Fields(\"ID\")\r\nstrTabelle = fld.SourceTable<\/pre>\nstrID = fld.SourceField<\/pre>\n
Set<\/span> fld = lst.Recordset.Fields(\"JaNein\")\r\nstrTrueFalse<\/span> = fld.SourceField<\/pre>\ndb.Execute \"UPDATE \" & strTabelle & \" SET \" & strTrueFalse<\/span> & \" = \" & CInt(bol) & \" WHERE \" & strID & \" = \" & lngID, dbFailOnError<\/pre>\nPrivate Sub <\/span>txtFilter_Change()\r\n Dim <\/span>strFilter As String<\/span>\r\n strFilter = Me!txtFilter.Text\r\n Me!lstTrue.RowSource = \"SELECT * FROM qryTrue<\/span> WHERE Bezeichnung LIKE '*\" & strFilter & \"*'\"\r\n Me!lstFalse.RowSource = \"SELECT * FROM qryFalse<\/span> WHERE Bezeichnung LIKE '*\" & strFilter & \"*'\"\r\nEnd Sub<\/span><\/pre>\n\n
![\"Einstellen](\"..\/fileadmin\/_temp_\/2020_05\/pic_1253_008.png\")
<\/p>\nPrivate Sub <\/span>Form_Load()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>qryTrue As <\/span>DAO.QueryDef\r\n Dim <\/span>qryFalse As <\/span>DAO.QueryDef\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> qryTrue<\/span> = db.QueryDefs(\"qryTrue\")\r\n Set<\/span> qryFalse<\/span> = db.QueryDefs(\"qryFalse\")\r\n Me!lblFalse.Caption = _\r\n qryFalse.Properties(\"Description\")\r\n Me!lblTrue.Caption = _\r\n qryTrue.Properties(\"Description\")\r\nEnd Sub<\/span><\/pre>\n