<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Die Möglichkeiten der Darstellung von Daten lassen sich grob in zwei Arten einteilen: Die Darstellung mehrerer Datensätze gleichzeitig in Listenform und die Anzeige der Details zu einem bestimmten Datensatz. Eine Kombination der beiden Varianten ist die Anzeige einer Liste mit mehreren Datensätzen und unterschiedlichen Feldern. Unter Access gibt es drei Möglichkeiten zur Realisierung einer solchen Anzeige: die meist in Form von Unterformularen verwendete Datenblattansicht, die Anzeige der Datensätze per Endlosformular sowie ein spezielles Steuerelement namens Listenfeld. Im vorliegenden Beitrag erfahren Sie, wie Sie letzteres zur Datenanzeige verwenden können und was sich noch alles damit bewerkstelligen lässt.<\/b><\/p>\n
Listenfelder unterscheiden sich in einem wesentlichen Punkt von den beiden anderen Möglichkeiten zur Anzeige von Daten in Listenform: Die angezeigten Daten können nicht direkt im Listenfeld geändert werden. Sie können zwar einen Eintrag auswählen und seine Detaildaten in einem separaten Formular anzeigen und dort bearbeiten, über den gleichen Weg neue Datensätze anlegen oder Datensätze über eine Ereignisprozedur löschen – aber das Listenfeld selbst dient nur der Anzeige und der Auswahl von Datensätzen.<\/p>\n
In der Auswahl von Daten liegt einer der großen Vorteile von Listenfeldern: Im Gegensatz zu Daten in der Endlos- und Datenblattansicht von Formularen bieten sie die Möglichkeit der Mehrfachauswahl.<\/p>\n
Die im vorliegenden Beitrag beschriebenen Beispiele beziehen sich sämtlich auf die Tabellen der Nordwind-Datenbank. Wenn Sie schnell mit den Beispielen loslegen möchten, erstellen Sie einfach eine neue leere Datenbank und importieren dann die Tabellen aus der Nordwind-Datenbank. <\/p>\n
Zum Kennenlernen der wichtigsten Eigenschaften von Listenfeldern legen Sie ein neues Listenfeld an.<\/p>\n
Dazu benötigen Sie zunächst ein neues Formular in der Entwurfsansicht. Das Listenfeld finden Sie in der Toolbox, die Sie auf mehreren Wegen einblenden können:<\/p>\n
In der Toolbox finden Sie die Schaltfläche Listenfeld, mit der Sie auf zwei Arten ein neues Listenfeld erstellen können:<\/p>\n
![](\"..\/fileadmin\/_temp_\/{3BBD45E3-1A87-42CD-80B3-7179B3EF432C}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Anlegen eines neuen Listenfeldes<\/span><\/b><\/p>\n Hier ist die erste Variante zu bevorzugen, da Sie direkt die Größe des Listenfeldes festlegen können.<\/p>\n Access fügt neuen Listenfeldern immer unmittelbar ein Bezeichnungsfeld hinzu. Manchmal ist das nützlich, aber in der Regel möchten Sie das Bezeichnungsfeld (wenn Sie überhaupt eines benötigen) in eine andere Position relativ zum Listenfeld bewegen.<\/p>\n Das funktioniert nur, wenn Sie das Bezeichnungsfeld markieren und es dann mit dem Mauszeiger über das schwarze Viereck oben links nehmen und verschieben.<\/p>\n Da das Nerven kostet, löschen Sie am besten das Bezeichnungsfeld und erstellen ein neues, das nicht an das Listenfeld gebunden ist und sich unabhängig platzieren lässt. Am schnellsten geht das durch Markieren des Bezeichnungsfeldes und Betätigen der Tastenkombinationen Strg + X und Strg + V (ausschneiden und einfügen).<\/p>\n Datensatzherkunft<\/b><\/p>\n Mit den beiden Eigenschaften Datensatzherkunft (engl. RowSource) und Herkunftstyp (engl. RowSourceType) legen Sie Art und Aussehen der zugrunde liegenden Daten fest.<\/p>\n Die Eigenschaft Herkunftstyp kennt dabei drei Werte:<\/p>\n Alle drei erfordern die Angabe einer Information für die Eigenschaft Datensatzherkunft.<\/p>\n Es gibt noch eine vierte Variante, für die das nicht gilt: Wenn Sie eine Funktion zum Festlegen der anzuzeigenden Daten verwenden, geben Sie den Funktionsnamen für die Eigenschaft Herkunftstyp an und lassen die Eigenschaft Datensatzherkunft leer.<\/p>\n Funktionen zum Füllen von Kombinations- und Listenfeldern müssen einem ganz bestimmten Format entsprechen. Weitere Informationen hierzu finden Sie in dem Beitrag Kombinations- und Listenfelder füllen in der Ausgabe 4\/2002 oder im PDF-Format auf der Heft-CD. <\/p>\n Wenn Sie für die Eigenschaft Herkunftsart den Wert Tabelle\/Abfrage auswählen, müssen Sie für die Eigenschaft Datensatzherkunft das gewünschte Objekt aus einer Liste auswählen (siehe Bild 2).<\/p>\n Alternativ können Sie eine eigene Abfrage erstellen, indem Sie auf die Schaltfläche mit den drei Punkten (…) klicken. Nach der Erstellung der Abfrage können Sie diese wie eine ganz normale Abfrage speichern oder einfach die resultierende SQL-Anweisung als Wert der Eigenschaft beibehalten.<\/p>\n Die beiden Eigenschaften ermöglichen die für manche Fälle wichtige Anzeige aller Felder einer Tabelle. Stellen Sie die Eigenschaft Herkunftsart auf den Wert Feldliste und die Eigenschaft Datensatzherkunft auf den Namen der gewünschten Tabelle ein.<\/p>\n <\/b><\/p>\n Bild 2: Datensatzherkunft eines Listenfeldes<\/span><\/b><\/p>\n Wertlisten enthalten einen oder mehrere Werte, die nicht an Datenobjekte wie Tabellen oder Abfragen gebunden sind. Wenn die Eigenschaft Herkunftsart auf Wertliste eingestellt ist, können Sie der Eigenschaft Datensatzherkunft die gewünschten Daten in Form einer durch Semikola getrennten Liste zuweisen.<\/p>\n Spalten des Listenfeldes<\/b><\/p>\n In der Grundeinstellung zeigen Listenfelder Daten nur in einer Spalte an. Da die Datensatzherkunft aber oft mehr als nur eine Spalte enthalten wird, können Sie die Konfiguration der Spalten mit den Eigenschaften Spaltenanzahl und Spaltenbreiten vornehmen.<\/p>\n <\/b><\/p>\n Bild 3: Listenfeld mit Artikelnummer und -name<\/span><\/b><\/p>\n Wenn Sie beispielsweise die Felder Artikel-Nr und Artikelname der Tabelle Artikel in einem Listenfeld anzeigen möchten, stellen Sie die Spaltenanzahl auf den Wert 2 und die Spaltenbreiten auf den Wert 1cm;3cm ein (siehe Bild 3).<\/p>\n Wenn Sie mehrere Spalten anzeigen, können Sie auf die Angabe der Breite für die letzte Spalte verzichten. Die Breite der letzten Spalte ergibt sich immer durch die Differenz aus der Breite des Listenfeldes und der Gesamtbreite der anderen Spalten. Das gilt nicht, wenn die Listenfeldbreite so klein ist, dass mindestens die letzte Spalte nicht mehr angezeigt wird – in diesem Fall erscheint eine Bildlaufleiste, mit der Sie zu den nicht sichtbaren Spalten scrollen können. <\/p>\n Listenfelder verwenden für die Felder immer die in der Datensatzherkunft vorgefundene Reihenfolge. Wenn Sie also beispielsweise einige Felder der Tabelle Artikel anzeigen möchten, aber in einer anderen Reihenfolge als dort angegeben, müssen Sie zunächst eine Abfrage mit den Feldern in der richtigen Reihenfolge erstellen.<\/p>\n In manchen Fällen macht es Sinn, die Feldnamen in Form von Spaltenüberschriften anzuzeigen. Dazu müssen Sie lediglich die Eigenschaft Spaltenüberschriften auf den Wert Ja setzen.<\/p>\n Spaltennamen sind allerdings oft eher zweckmäßig als schön und sollen dem Anwender sicher nicht als Spaltenüberschrift eines Listenfeldes präsentiert werden. Daher gibt es zwei Möglichkeiten:<\/p>\n Der erste Vorschlag bietet designtechnisch sicher eine Menge mehr Möglichkeiten, während der zweite sicher leichter zu realisieren ist.<\/p>\n Geben Sie einfach im Entwurf der Datensatzherkunft (also der Tabelle oder der Abfrage) den gewünschten Wert für die Eigenschaft Beschriftung des Feldes an.<\/p>\n Wenn Sie als Herkunftsart nicht Tabelle\/Abfrage gewählt haben, müssen Sie bei Aktivieren der Spaltenüberschriften beachten, dass jeweils der erste Eintrag bzw. die ersten Einträge (bei mehreren Spalten) der Datensatzherkunft als Spaltenüberschrift verwendet wird bzw. werden.<\/p>\n Wenn Sie nicht alle Felder der Datensatzherkunft im Listenfeld anzeigen möchten, können Sie einzelne Felder ausblenden. Dazu müssen Sie lediglich die Spaltenbreite für die auszublendenden Spalten auf den Wert 0cm setzen.<\/p>\n <\/p>\n Mehrfachauswahl<\/b><\/p>\n Wie Sie sicher beim Herumprobieren bemerkt haben, können Sie in einem Listenfeld auch Einträge markieren.<\/p>\n In der Standardeinstellung ist nur die Markierung jeweils eines Eintrags möglich. Sie können allerdings auch mehrere Einträge gleichzeitig markieren.<\/p>\n Dazu stellen Sie die Eigenschaft Mehrfachauswahl einfach auf einen anderen Wert als Keine ein.<\/p>\n Die Option Einzeln ermöglicht die Auswahl der gewünschten Listenfeldeinträge per Mausklick auf die einzelnen Einträge. Unerwünschte Markierungen deaktivieren Sie mit einem weiteren Mausklick auf den betroffenen Eintrag.<\/p>\n Mit der Option Erweitert erreichen Sie die gleiche Funktionalität wie z. B. im Windows Explorer. Sie können mehrere aufeinander folgende Einträge durch Anklicken des ersten sowie Anklicken des letzten Eintrages bei gedrückter Umschalttaste auswählen, weitere Einträge bei gedrückter Strg-Taste hinzufügen und auf die gleiche Weise entfernen.<\/p>\n In der Praxis dienen Listenfelder oft als Bindeglied zwischen dem Suchen von Datensätzen und deren Bearbeitung in weiteren Formularen.<\/p>\n Mittels unterschiedlicher Text- und Kombinationsfelder lassen sich leicht Such- und Filterkriterien für Abfragen festlegen, deren Ergebnisse in Listenfeldern angezeigt werden.<\/p>\n über die Ereigniseigenschaften Beim Klicken oder Beim Doppelklicken lassen sich leicht weitere Formulare mit Detailinformationen zu den gewünschten Datensätzen anzeigen.<\/p>\n Eine weitere Anwendung findet sich in der Anzeige von m:n-Beziehungen. Um die Nordwind-Datenbank weiterhin als Quelle für Beispielanwendungen zu nutzen, lernen Sie im Folgenden eine Anwendung kennen, die der Zuordnung von bestimmten Artikeln zu den entsprechenden Kunden dient.<\/p>\n Große Firmen haben unter Umständen ein so großes Angebot, dass nicht jedem Kunden alle Artikel angeboten werden. Der eine Kunde mag vielleicht eher exklusive Artikel, während der andere eher große Mengen preisgünstiger Produkte bevorzugt.<\/p>\n Von Listenfeld zu Listenfeld<\/b><\/p>\n Im folgenden Beispiel legen Sie ein Formular mit zwei Listenfeldern an, die zusammengefasst alle Artikel anzeigen. Je nach dem aktuellen Kunden werden die Artikel entweder im linken oder im rechten Listenfeld angezeigt. Der Benutzer kann die Einträge auf unterschiedliche Weise zwischen den beiden Listenfeldern hin- und herbewegen.<\/p>\n Das Beispielformular frmPreislisten finden Sie in den Datenbanken Listenfelder97.mdb und Listenfelder2000.mdb auf der Heft-CD. <\/p>\n <\/b><\/p>\n Bild 4: Aufbau der m:n-Beziehung<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 5: Datenherkunft des Listenfeldes lstPreisliste<\/span><\/b><\/p>\n Verknüpfungstabelle anlegen<\/b><\/p>\n Zum Speichern der Informationen benötigen Sie eine Verknüpfungstabelle zwischen den beiden Tabellen Artikel und Kunden. Diese Tabelle erhält den Namen tblArtikelKunden.<\/p>\n Damit erläutern Sie genau, für welche beiden Tabellen die neue Tabelle als Verknüpfungstabelle dient. Sie könnten die Tabelle auch tblPreislisten nennen – unter Umständen wird eine solche Vorgehensweise aber unübersichtlich.<\/p>\n Fügen Sie der Tabelle zwei Felder namens ArtikelID und KundenID hinzu und legen Sie einen Primärindex an, der beide Felder enthält. Auf diese Weise verhindern Sie, dass eine Kombination aus Artikel und Kunde zweimal vorkommt.<\/p>\n Anschließend definieren Sie noch die Beziehung zwischen den drei Tabellen. Damit in der Verknüpfungstabelle nur solche Daten vorkommen, die den Daten aus den beiden verknüpften Tabellen entsprechen, legen Sie referentielle Integrität gemäß Bild 4 fest.<\/p>\n Die Auswahl der Artikel je Kunde erfolgt über zwei Listenfelder – eines zur Anzeige der Artikel für die gewünschte Preisliste und eines zur Anzeige aller anderen Artikel.<\/p>\n Die beiden Listenfelder befinden sich in einem Formular namens frmPreislisten, das an die Tabelle Kunden gebunden ist. Fügen Sie der Detailansicht alle Felder hinzu, die Ihnen in diesem Zusammenhang wichtig erscheinen.<\/p>\n Anschließend erstellen Sie zwei nebeneinander liegende Listenfelder namens lstPreisliste und lstNichtPreisliste.<\/p>\n Die erste Herausforderung ist das Festlegen der Datenherkunft für die beiden Listenfelder. Dazu benötigen Sie noch etwas theoretischen Hintergrund:<\/p>\n Die Verknüpfungstabelle zur Zuordnung von Datensätzen zweier Tabellen enthält jeweils Wertepaare, die aus den Primärindizes der zu verknüpfenden Datensätze bestehen.<\/p>\n Nur diese Wertepaare geben verknüpfte Datensätze an, alle anderen möglichen Paare, die nicht in der Tabelle stehen, zeigen nicht verknüpfte Paare.<\/p>\n Das Listenfeld lstPreisliste soll also alle Artikel enthalten, die über die Tabelle tblArtikelKunden mit dem aktuell im Formular frmPreisliste angezeigten Kundendatensatz verknüpft sind.<\/p>\n Als Datenherkunft verwenden Sie daher die Abfrage aus Bild 5. Sie enthält die Felder Kunden-Code und Artikel-Nr aus der Verknüpfungstabelle sowie das Feld Artikelname aus der Tabelle Artikel.<\/p>\n Als Parameter verwendet die Abfrage den Inhalt des Formularfeldes Kunden-Code.<\/p>\n Das zweite Listenfeld soll alle Artikel anzeigen, die nicht im ersten Listenfeld erscheinen. Der Aufbau der zugrunde liegenden Abfrage ist nicht ganz trivial: Die Abfrage basiert auf der Tabelle Artikel. Um alle Datensätze dieser Tabelle zu ermitteln, die das erste Listenfeld nicht anzeigt, verwenden Sie eine abgewandelte Version der Datensatzherkunft des ersten Listenfeldes als Unterabfrage. Der Unterschied besteht in der Anzahl der zurückgegebenen Felder der Abfrage – statt der bisherigen drei verwenden Sie nur das Feld Artikel-Nr. Ein Vergleich mit Werten aus einer Unterabfrage kann sich nur auf jeweils einen Wert beziehen.<\/p>\n <\/b><\/p>\n Bild 6: Inhalt der Listenfelder<\/span><\/b><\/p>\n Quellcode 1<\/b><\/p>\n Die SQL-Abfrage hat folgendes Aussehen:<\/p>\n Wenn Sie nun noch die Eigenschaften Spaltenanzahl und Spaltenbreiten der beiden Listenfelder auf die Werte 2 und 0cm anpassen, erhalten Sie etwa die in Bild 6 gezeigte Ansicht.<\/p>\n Zum Bewegen der Listenfeldeinträge gibt es mehrere Möglichkeiten. Sowohl der Doppelklick auf einzelne Einträge als auch das Markieren von Einträgen und deren Verschieben durch spezielle Schaltflächen sind weit verbreitet.<\/p>\n Zum Kennenlernen der grundlegenden Technik fügen Sie den Listenfeldern nun eine Funktion zum Verschieben der Einträge per Doppelklick hinzu.<\/p>\n Dazu legen Sie die Prozedur aus Quellcode 1 für die Ereigniseigenschaft Beim Doppelklicken an. Die Prozedur führt eine Anfügeabfrage aus, die der Tabelle tblArtikelKunden einen neuen Datensatz mit der Kundennummer des aktuellen Kunden und der Artikelnummer des angeklickten Artikels hinzufügt. Anschließend aktualisiert sie die beiden Listenfelder.<\/p>\n Quellcode 2<\/b><\/p>\n <\/b><\/p>\n Bild 7: Schaltflächen zum Bewegen der Listenfeldeinträge<\/span><\/b><\/p>\n Wenn Sie der Preisliste nun per Doppelklick einige Artikel hinzufügen möchten, erscheint möglicherweise eine Meldung, die Sie zur Bestätigung der gewünschten Aktion auffordert.<\/p>\n Zur Deaktivierung dieser Meldung verwenden Sie die Anweisung<\/p>\n und zur Aktivierung entsprechend die folgende Anweisung:<\/p>\n Die beiden Anweisungen platzieren Sie in der Ereignisprozedur vor und nach der entsprechenden SQL-Anweisung.<\/p>\n Die Prozedur zum Entfernen von Artikeln aus der Preisliste ist genau wie die Prozedur zum Hinzufügen aufgebaut. Sie enthält allerdings eine DELETE-Anweisung zum Entfernen des angeklickten Datensatzes (s. Quellcode 2).<\/p>\n Die Beispieldatenbank enthält noch vier weitere Schaltflächen, mit denen Sie jeweils den markierten Eintrag und jeweils alle Einträge von einem Listenfeld in das andere bewegen können (siehe Bild 7). Die Prozeduren zur Durchführung dieser Operationen finden Sie im entsprechenden Modul der Beispieldatenbanken Listenfelder97.mdb bzw. Listenfelder2000.mdb.<\/p>\n Am Beispiel der Preisliste lässt sich auch die Mehrfachauswahl in Listenfeldern anschaulich beschreiben.<\/p>\n Wenn Sie die Eigenschaft Mehrfachauswahl auf einen anderen Wert als Keine einstellen, können Sie den aktuell ausgewählten Wert nicht mehr als Inhalt des Listenfeldes ausgeben lassen. Dieser hat dann immer den Wert Null. Sie müssen dann zur Ermittlung immer die Auflistung ItemsSelected verwenden. <\/p>\n Um eine oder mehrere Einträge zwischen den beiden Listenfeldern zu verschieben, verwenden Sie nun zwei entsprechende Schaltflächen namens cmdAuswahlEntfernen und cmdAuswahlHinzufuegen.<\/p>\n Sie finden das Beispielformular frmPreislistenMehrfachauswahl in den Beispieldatenbanken auf der Heft-CD. <\/p>\n Bevor Sie überhaupt mehrere Einträge aus den Listenfeldern auswählen können, müssen Sie natürlich die Eigenschaft Mehrfachauswahl der Listenfelder je nach Geschmack auf einen der beiden Werte Einzeln oder Mehrfach einstellen.<\/p>\n Anschließend füllen Sie die beiden Schaltflächen mit Leben. Das ist nicht so einfach wie im vorherigen Beispiel, bei dem Sie nur den aktuellen Datensatz aus dem Listenfeld auslesen und aus der Datenherkunft löschen bzw. hinzufügen. Da nun nicht mehr nur eines bzw. alle Elemente an der Operation beteiligt sind, benötigen Sie ein Mittel, um die ArtikelID der markierten Artikel zu ermitteln. Da es sich dabei auch um mehrere Artikel handeln kann, liegt das Vorhandensein einer entsprechenden Auflistung nahe.<\/p>\n Quellcode 3<\/b><\/p>\n Verantwortlich für das Speichern der markierten Einträge eines Listenfeldes ist die Auflistung SelectedItems. Die Einträge eines Listenfeldes sind durchnummeriert, wobei die Nummerierung bei 0 beginnt.<\/p>\n Die Prozedur aus Quellcode 3 zeigt, wie die im Listenfeld lstNichtPreisliste ausgewählten Einträge zur Tabelle tblArtikelKunden hinzugefügt werden.<\/p>\n Sie verwendet die Variable Eintrag als Index für das Durchlaufen der Einträge der Auflistung ItemsSelected des Listenfeldes. Eine kleine Hürde ist die Ermittlung der Artikelnummer anhand des Index des gewünschten Eintrags. Dazu verwendet die Prozedur den folgenden Ausdruck:<\/p>\n Der Ausdruck ermittelt den Wert des Eintrags des Listenfeldes, dessen Eigenschaft ItemData den Wert Eintrag hat. Da das Feld ArtikelID die gebundene Spalte des Listenfeldes ist, wird auch dieser Wert zurückgegeben. Die Prozedur zum Entfernen von Einträgen aus der Liste funktioniert ähnlich. Sie finden ihren Quellcode in der Beispieldatenbank.<\/p>\n In den folgenden Abschnitten finden Sie noch einige Hinweise, um die Arbeit mit Listenfeldern effektiver zu machen.<\/p>\n Anzeige von Daten aus verknüpften Tabellen<\/b><\/p>\n Unter Umständen enthält eine Tabelle nicht alle für das Listenfeld interessanten Daten, da sich diese in verknüpften Tabellen befinden. Ein gutes Beispiel sind die Tabellen Artikel und Lieferanten.<\/p>\n Die Tabelle Artikel enthält lediglich eine Verknüpfung zur Tabelle Lieferanten, aber nicht den Namen des Lieferanten selbst.<\/p>\n Um den Lieferantennamen dennoch in einem Listenfeld zusammen mit dem Artikel anzuzeigen, benötigen Sie eine Abfrage mit beiden Tabellen als Datenherkunft.<\/p>\n Wenn Sie beispielsweise die Felder Artikel-Nr und Artikelname sowie den Namen des Herstellers im Listenfeld anzeigen möchten, gehen Sie folgendermaßen vor:<\/p>\n Das Ergebnis können Sie in Bild 8 betrachten. Alternativ schauen Sie sich einfach das Formular frmVerknuepfteDaten der Beispieldatenbank an.<\/p>\n Standardwert festlegen<\/b><\/p>\n <\/b><\/p>\n Bild 8: Listenfeld mit Daten aus verknüpften Tabellen<\/span><\/b><\/p>\n Unter Umständen möchten Sie für ein Listenfeld einen Standardwert festlegen – z. B. den ersten Wert der Liste.<\/p>\n Dazu legen Sie für die Ereigniseigenschaft Beim öffnen des Formulars die folgende Prozedur an:<\/p>\n Der Ausdruck Me.lstArtikel.ItemData(1) gibt den Wert der gebundenen Spalte des ersten Eintrags des Listenfeldes zurück. Weisen Sie dem Listenfeld diesen Wert zu, zeigt das Listenfeld den entsprechenden Eintrag markiert an. Das Beispiel finden Sie im Formular frmStandardwert.<\/p>\n Zugriff auf unterschiedliche Spalten<\/b><\/p>\n Unter manchen Umständen ist der Zugriff auf eine beliebige Spalte des Listenfeldes erforderlich.<\/p>\n Wenn Sie z. B. das Listenfeld aus dem vorherigen Beispiel heranziehen und den Firmennamen des Lieferanten für irgendwelche Zwecke benötigen, können Sie diesen mit folgender Prozedur ermitteln, die Sie für die Ereigniseigenschaft Beim Doppelklicken hinterlegen. Dadurch wird der Lieferant per Doppelklick in einem Meldungsfenster ausgegeben:<\/p>\n Der Ausdruck Me.lstArtikel.Column(2) gibt den Inhalt der zweiten Spalte der aktuell ausgewählten Zeile zurück. Die Indexierung der Spalten beginnt bei 0. Das Beispiel finden Sie im Formular frmSpalteAuslesen.<\/p>\n ähnlichkeiten mitKombinationsfeldern<\/b><\/p>\n Wer bereits mit Listen- und Kombinationsfeldern gearbeitet hat, konnte vermutlich einige Gemeinsamkeiten feststellen. Das betrifft vor allem solche Eigenschaften, die sich nicht gerade auf äußerlichkeiten beziehen. Daher können Sie einige Möglichkeiten aus dem Beitrag Kombinationsfelder von A-Z ableiten, den Sie unter anderem auf der Heft-CD der aktuellen Ausgabe finden.<\/p>\n<\/p>\n Enthaltene Beispieldateien:<\/p>\n Listenfelder00.mdb<\/p>\n Listenfelder97.mdb<\/p>\nTabellen und Abfragen<\/h3>\n
Feldlisten<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{3BBD45E3-1A87-42CD-80B3-7179B3EF432C}\/pic002.png\")
<\/p>\nWertlisten<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{3BBD45E3-1A87-42CD-80B3-7179B3EF432C}\/pic003.png\")
<\/p>\nReihenfolge der angezeigten Felder<\/h3>\n
Spaltenüberschriften<\/h3>\n
Ausblenden von Spalten<\/h3>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{3BBD45E3-1A87-42CD-80B3-7179B3EF432C}\/pic004.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{3BBD45E3-1A87-42CD-80B3-7179B3EF432C}\/pic005.png\")
<\/p>\nFormular zur Verwaltung der m:n-Beziehung<\/h3>\n
Datenherkunft der Listenfelder<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{3BBD45E3-1A87-42CD-80B3-7179B3EF432C}\/pic006.png\")
<\/p>\nPrivate Sub lstNichtPreisliste_DblClick(Cancel _ As Integer)\r\n DoCmd.RunSQL \"INSERT INTO \" _ & \"tblArtikelKunden(ArtikelID, KundenID) \" _ & \"VALUES(\" & Me.lstNichtPreisliste & \", ''\" _ & Me.Kunden_Code & \"'')\"\r\n Me.lstNichtPreisliste.Requery\r\n Me.lstPreisliste.Requery\r\nEnd Sub<\/pre>\n
SELECT [Artikel-Nr], Artikelname\r\nFROM Artikel\r\nWHERE [Artikel-Nr] Not In (\r\nSELECT tblArtikelKunden.ArtikelID \r\nFROM Artikel \r\nINNER JOIN tblArtikelKunden \r\nON Artikel.[Artikel-Nr] \r\n= tblArtikelKunden.ArtikelID\r\nWHERE tblArtikelKunden.KundenID = [Forms]![frmPreislisten]![Kunden-Code])<\/pre>\n
Hin- und Herbewegen der Einträge<\/h3>\n
Private Sub lstPreisliste_DblClick(Cancel As Integer)\r\n DoCmd.SetWarnings False'\r\n DoCmd.RunSQL \"DELETE FROM tblArtikelKunden \" _ & \"WHERE ArtikelID = \" & Me.lstPreisliste _ & \" AND KundenID = ''\" & Me.Kunden_Code & \"''\"\r\n Me.lstNichtPreisliste.Requery\r\n Me.lstPreisliste.Requery\r\n DoCmd.SetWarnings True\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{3BBD45E3-1A87-42CD-80B3-7179B3EF432C}\/pic007.png\")
<\/p>\nDoCmd.SetWarnings False<\/pre>\n
DoCmd.SetWarnings True<\/pre>\n
Mehrfachauswahl in Aktion<\/h3>\n
Hinweis<\/h3>\n
Hinweis<\/h3>\n
Private Sub cmdAuswahlHinzufuegen_Click()\r\n Dim Eintrag As Variant\r\n DoCmd.SetWarnings False\r\n For Each Eintrag In Me.lstNichtPreisliste.ItemsSelected\r\n DoCmd.RunSQL \"INSERT INTO tblArtikelKunden(ArtikelID, KundenID) VALUES(\" _ & Me.lstNichtPreisliste.ItemData(Eintrag) & \", ''\" _ & Me![Kunden-Code] & \"'')\"\r\n Next Eintrag\r\n DoCmd.SetWarnings True\r\n Me.lstNichtPreisliste.Requery\r\n Me.lstPreisliste.Requery\r\nEnd Sub<\/pre>\n
Me.lstNichtPreisliste.ItemData(Eintrag)<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{3BBD45E3-1A87-42CD-80B3-7179B3EF432C}\/pic008.png\")
<\/p>\nPrivate Sub Form_Current()\r\n Me.lstArtikel = _ Me.lstArtikel.ItemData(1)\r\nEnd Sub<\/pre>\n
Private Sub lstArtikel_DblClick(Cancel _ As Integer)\r\n MsgBox Me.lstArtikel.Column(2)\r\nEnd Sub<\/pre>\n
Downloads zu diesem Beitrag<\/h2>\n