<\/p>\n
Autor: André Minhorst, Duisburg<\/p>\n
<\/b><\/p>\n
Kombinationsfelder sind ein sehr wichtiges Instrument zur Auswahl von Daten. Mit Kombinationsfeldern können Sie Daten aus bestehenden Tabellen und Abfragen auswählen. Sie können aber auch neue Datensatzherkünfte festlegen sowie statische Wertlisten oder Feldlisten als Inhalt des Kombinationsfeldes verwenden. Im vorliegenden Beitrag erfahren Sie, welche Möglichkeiten Kombinationsfelder bieten und wie Sie diese an Ihre Bedürfnisse anpassen.<\/b><\/p>\n
Die Beispiele des folgenden Beitrags verwenden verschiedene Tabellen der Datenbank Nordwind als Grundlage. Sie finden alle Beispiele in der Beispieldatenbank Kombinationsfelder97.mdb bzw. Kombinationsfelder2000.mdb auf der Heft-CD. <\/p>\n
Oftmals dienen Kombinationsfelder der Auswahl von Datensätzen einer Tabelle, die in einer 1:n-Beziehung zu der angezeigten Tabelle stehen. Ein gutes Beispiel ist die Tabelle Artikel, die gleich zwei solcher Verknüpfungen zu anderen Tabellen aufweist: erstens zu der Tabelle Lieferanten und zweitens zu der Tabelle Kategorien (siehe Bild 1).<\/p>\n
![](\"..\/fileadmin\/_temp_\/{56C2D966-F4BC-4001-98B2-753F9F6E007B}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Ein typischer Einsatzfall für Kombinationsfelder zur Auswahl von Datensätzen verknüpfter Tabellen<\/span><\/b><\/p>\n Um die Beziehung zu den verknüpften Tabellen im Formular anzuzeigen und dem Benutzer die komfortable Auswahl der gewünschten Datensätze zu ermöglichen, legen Sie zunächst ein neues Formular an und speichern es unter dem Namen frmArtikel.<\/p>\n Beim Erstellen können Sie direkt die Tabelle Artikel als Datenherkunft des Formulars auswählen.<\/p>\n Im Entwurf ziehen Sie dann einfach alle Felder aus der Feldliste in den Detailbereich des Formulars. Anschließend wechseln Sie in die Formularansicht und finden direkt zwei fertige Kombinationsfelder zur Auswahl von Lieferanten und Kategorien vor (siehe Bild 2).<\/p>\n Berechtigterweise werden Sie nun die Frage in den Raum stellen, warum Sie eigentlich den vorliegenden Beitrag lesen sollen. Allem Anschein nach scheint Access die Kombinationsfelder ja wohl intuitiv richtig zu erstellen.<\/p>\n Das ist aber leider nur Wunschdenken, denn sämtliche Einstellungen, die zum automatischen Anlegen der Kombinationsfelder führten, sind bereits im Tabellenentwurf enthalten.<\/p>\n <\/b><\/p>\n Bild 2: Das neue Formular nach dem Anlegen der Felder<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 3: Die Grundlage für das Anlegen eines Kombinationsfeldes findet sich im Tabellenentwurf.<\/span><\/b><\/p>\n öffnen Sie einmal die Tabelle Artikel in der Entwurfsansicht, aktivieren Sie eines der Felder Lieferanten-Nr oder Kategorie-Nr und wechseln Sie unter Feldeigenschaften in das Register Nachschlagen (siehe Bild 3).<\/p>\n Hier sind einige Eigenschaften aufgeführt, die sowohl das Aussehen eines Nachschlagefeldes einer Tabelle als auch das Aussehen des entsprechenden Kombinationsfeldes im Formular festlegen.<\/p>\n Wenn Sie in die Entwurfsansicht des neuen Formulars wechseln und die Eigenschaften eines der beiden Kombinationsfelder anzeigen, finden Sie die entsprechenden Eigenschaften in den beiden Registern Format und Daten.<\/p>\n Um die Bedeutung aller benötigten Eigenschaften zu vermitteln, löschen Sie nun das Kombinationsfeld mit dem Namen Kategorie-Nr und legen es von Hand neu an.<\/p>\n <\/b><\/p>\n Bild 4: Anlegen eines neuen Kombinationsfeldes<\/span><\/b><\/p>\n Dazu klicken Sie in der Toolbox auf die entsprechende Schaltfläche (siehe Bild 4) und klicken anschließend im Formular auf die Stelle, an der sich der linke, obere Punkt des Kombinationsfeldes befinden soll. Sie können auch einen Rahmen in der gewünschten Größe des Kombinationsfeldes aufziehen.<\/p>\n Bitte schalten Sie vorher den Assistenten zur Erstellung von Kombinationsfeldern ab, indem Sie die Schaltfläche mit dem Zauberstab deaktivieren.<\/p>\n ändern Sie den Namen des Kombinationsfeldes auf cmbKategorien ab und passen Sie das Bezeichnungsfeld an.<\/p>\n Anschließend widmen Sie sich den wichtigsten Eigenschaften des Kombinationsfeldes. Beginnen Sie damit im Register Daten des Eigenschaftsfensters.<\/p>\n Die Eigenschaft Steuerelementeninhalt bleibt allerdings leer, wenn es sich um ein ungebundenes Steuerelement handelt. Im hier nun vorliegenden Fall soll es aber angeben, mit welchem Eintrag der Tabelle Kategorien der aktuell im Formular angezeigte Datensatz der Tabelle Artikel verknüpft ist.<\/p>\n Bei verknüpften Tabellen ist das in der Regel ein Zahlenwert, der dem Primärindex der Tabelle entspricht, aus der die Daten ausgewählt werden. Konkret handelt es sich hier um das Feld Kategorie-Nr der Datenherkunft des Formulars. Wenn das Formular eine Datenherkunft hat, können Sie das gewünschte Feld aus einer Liste auswählen.<\/p>\n Diese beiden Eigenschaften stehen in engem Zusammenhang und sollen daher in einem Schritt erläutert werden.<\/p>\n Die Eigenschaft Herkunftstyp gibt an, ob es sich bei den Daten, die mit dem Kombinationsfeld ausgewählt werden können, um eine Tabelle bzw. Abfrage, eine Feldliste oder eine Wertliste handelt.<\/p>\n Im vorliegenden Fall handelt es sich um den voreingestellten Eintrag Tabelle\/Abfrage, da die Werte aus der Tabelle Kategorien ausgewählt werden sollen.<\/p>\n Die anderen Werte, Wertliste und Feldliste, sowie ein weitere Alternative werden später erläutert. Die Eigenschaft Datensatzherkunft gibt an, aus welcher Tabelle oder Abfrage die angezeigten Daten stammen sollen. Sie können hier eine bestehende Tabelle oder Abfrage auswählen oder eine neue Abfrage speziell für das Kombinationsfeld erstellen. Wählen Sie hier die Tabelle Kategorien als Wert der Eigenschaft Datensatzherkunft aus.<\/p>\n Wenn Sie einen Wert aus einer verknüpften Tabelle auswählen, wird selbstverständlich nicht der gesamte ausgewählte Datensatz in dem an das Kombinationsfeld gebundene Feld der Tabelle gespeichert, sondern nur ein Verweis auf den entsprechenden Datensatz. In der Regel ist das der Primärindex der Datensatzherkunft des Kombinationsfeldes.<\/p>\n Die Eigenschaft Gebundene Spalte gibt dabei an, aus welcher Spalte der Datensatzherkunft der einzutragende Wert stammt. Voreingestellt und in den meisten Fällen sinnvoll ist der Wert 1.<\/p>\n Die Eigenschaft Nur Listeneinträge legt fest, ob als Inhalt des Kombinationsfeldes nur Einträge der zugrunde liegenden Datensatzherkunft verwendet werden können oder auch andere Einträge. <\/p>\n Im Falle gebundener Kombinationsfelder müssen Sie eine entsprechende Ereignisprozedur anlegen, falls ein Kombinationsfeld das Neuanlegen von Datensätzen in der Datensatzherkunft erlauben soll. Weiter hinten (Kapitel 3) finden Sie ein Beispiel für eine solche Ereignisprozedur.<\/p>\n Wenn Sie nun in das Register Format des Eigenschaftsfensters wechseln, finden Sie weitere für die Verwendung von Kombinationsfeldern wichtige Eigenschaften.<\/p>\n Diese Eigenschaften kommen dann zur Geltung, wenn die Datensatzherkunft mehr als ein Feld enthält und Sie genau festlegen möchten, welche Felder beim öffnen des Kombinationsfeldes wie angezeigt werden sollen.<\/p>\n Wenn Sie wie im Beispiel eine Tabelle als Datensatzherkunft verwenden, von der Sie nur ein Feld anzeigen möchten, können Sie das ganz einfach mit den beiden Eigenschaften Spaltenanzahl und Spaltenbreiten einstellen.<\/p>\n Hier setzen Sie beispielsweise Spaltenanzahl auf den Wert 2 und Spaltenbreite auf den Wert 0cm;4cm.<\/p>\n Damit zeigen Sie die ersten zwei Felder der Datensatzherkunft an. Die erste Spalte blenden Sie aus, indem Sie die erste Spaltenbreite auf den Wert 0cm setzen.<\/p>\n Im vorliegenden Fall können Sie den zweiten Wert auch weglassen. Da keine weiteren Spalten folgen, wird die letzte Spaltenbreite automatisch so eingestellt, dass sie die Summe der Spaltenbreiten auf die Listenbreite ergänzt.<\/p>\n Wenn Sie mehrere Felder der Datensatzherkunft beim öffnen des Kombinationsfeldes anzeigen, empfiehlt sich das Einblenden der Spaltenüberschriften.<\/p>\n Ein Kombinationsfeld kann bei der Auswahl mehr als ein Feld der Datensatzherkunft anzeigen. Nach der Auswahl ist jedoch nur die gleichzeitige Anzeige eines einzigen Feldes möglich.<\/p>\n Daher kann es vorkommen, dass die auszuwählenden Einträge mehr Platz benötigen, als es die eigentliche Breite des Kombinationsfeldes zulässt. Unter diesen Umständen können Sie die Eigenschaft Listenbreite auf einen größeren Wert als den der Eigenschaft Breite einstellen. <\/p>\n Auf diese Weise können Sie bei der Auswahl beispielsweise weitere Detailinformationen zu der jeweiligen Kategorie anzeigen. Das Beispiel aus Bild 5 beinhaltet außerdem aktivierte Zeilenüberschriften.<\/p>\n <\/b><\/p>\n Bild 5: Kombinationsfeld mit Zeilenüberschriften und großer Listenbreite<\/span><\/b><\/p>\n Die Eigenschaft Zeilenanzahl bestimmt, wie viele Zeilen bei aufgeklapptem Kombinationsfeld gleichzeitig angezeigt werden. Oft ist hier eine feste Anzahl gefragt – z. B. wenn das Kombinationsfeld zur Auswahl von Monaten oder anderen Werten mit fest definierter und begrenzter Anzahl dient. Dabei wird die Anzahl durch den verfügbaren Platz zum Ausklappen eingeschränkt.<\/p>\n Das Eigenschaftsfenster beinhaltet noch einige weitere Eigenschaften, die sich jedoch auf die grundlegende Funktionalität des Kombinationsfeldes nicht auswirken. Einzige Ausnahme sind die Ereigniseigenschaften. Einige von ihnen werden Sie im Verlauf des Beitrags aber noch kennen lernen.<\/p>\n Mit Hilfe geeigneter VBA-Prozeduren können Sie die Möglichkeiten von Kombinationsfeldern noch erweitern und sie optimal auf die Bedürfnisse der Anwender anpassen. In den folgenden Abschnitten finden Sie einige Tricks und Kniffe, um die Kombinationsfelder Ihres Formulars zu optimieren.<\/p>\n <\/p>\n Zu Beispielzwecken erstellen Sie ein Formular namens frmArtikelSuche, mit dem Sie anhand einiger Kombinationsfelder nach bestimmten Artikeln suchen können.<\/p>\n Sie benötigen zwei Kombinationsfelder namens cmbLieferanten und cmbKategorien sowie ein Unterformular namens sfmArtikelSuche. Die beiden Kombinationsfelder dienen der Einschränkung der im Unterformular angezeigten Einträge.<\/p>\n Das Kombinationsfeld cmbLieferanten soll zur Auswahl aller verfügbaren Lieferanten dienen und erhält dementsprechend als Datenherkunft die Tabelle Lieferanten. Es soll nur den Lieferantennamen anzeigen – setzen Sie daher die Eigenschaft Spaltenanzahl auf den Wert 2 und die Eigenschaft Spaltenbreiten auf den Wert 0cm;4cm ein.<\/p>\n Das Unterformular sfmArtikelSuche importieren Sie aus der Beispieldatenbank. Es hat als Datenherkunft die Tabelle Artikel und als Standardansicht die Datenblatt-Ansicht.<\/p>\n Anschließend fügen Sie es als Unterformular in das Formular frmArtikelSuche ein. Es soll keine Verknüpfung zwischen Haupt- und Unterformular erstellt werden.<\/p>\n Weitere Informationen zum Einfügen eines Unterformulars in ein Hauptformular finden Sie im Beitrat Einbinden von Unterformularen in Hauptformulare des vorliegenden Heftes.<\/p>\n Erstellen Sie außerdem ein weiteres Kombinationsfeld namens cmbKategorien. Informationen über die weiteren Eigenschaften des Kombinationsfeldes erhalten Sie in den folgenden Kapiteln. Das Formular sollte nun etwa wie in Bild 6 aussehen.<\/p>\n In den folgenden Beispielen werden nicht alle Schritte detailliert beschrieben, sondern nur diejenigen, die sich direkt auf die Kombinationsfelder beziehen. Um weitere Informationen zu erhalten, schauen Sie sich das Formular frmArtikelSuche der Beispieldatenbanken genauer an. <\/p>\n <\/b><\/p>\n Bild 6: Das Beispielformular frmArtikelSuche in der Entwurfsansicht<\/span><\/b><\/p>\n Oftmals kann es praktisch sein, wenn ein Kombinationsfeld direkt beim Anzeigen des Formulars oder nach der Eingabe eines Wertes in ein anderes Steuerelement geöffnet wird. Eine weitere Möglichkeit ist das automatische öffnen des Kombinationsfeldes, sobald es den Fokus erhält.<\/p>\n Wenn Sie ein Kombinationsfeld direkt beim Anzeigen des Formulars öffnen möchten, verwenden Sie die Methode Dropdown des Kombinationsfeldes. <\/p>\n Dazu legen Sie für die Ereigniseigenschaft Beim Anzeigen des Formulars frmArtikelSuche die Prozedur aus Quellcode 1 an (Informationen zum Anlegen einer Ereignisprozedur finden Sie im Beitrag Anlegen von Ereignisprozeduren des vorliegenden Heftes.<\/p>\n Manchmal muss der Anwender zunächst den Inhalt mehrerer Kombinationsfelder auswählen, um das gewünschte Ergebnis zu erhalten. In dem Fall ist es sinnvoll, dass sich nach der Auswahl eines Wertes mit dem ersten Kombinationsfeld direkt das zweite Kombinationsfeld öffnet. <\/p>\n Die Vorgehensweise ist identisch mit der soeben beschriebenen – Sie müssen die beiden Befehle der Prozedur aus Quellcode 1 lediglich für die Ereigniseigenschaft Nach Aktualisierung des ersten Kombinationsfeldes anlegen und den Namen des betroffenen Kombinationsfeldes anpassen.<\/p>\n Damit das Unterformular auch die gewünschten Datensätze anzeigt, also beispielsweise alle Datensätze mit der im ersten Kombinationsfeld ausgewählten Kategorie, können Sie zwei Methoden anwenden:<\/p>\n Die zweite Variante funktioniert nur einwandfrei, wenn alle mit dem Kombinationsfeld auswählbaren Einträge auch in der Datenherkunft des Unterformulars vorhanden sind.<\/p>\n Das Kombinationsfeld soll aber weiter unten eine Funktionalität erhalten, mit der Sie einen Eintrag namens Alle Lieferanten auswählen können, um alle Lieferanten im Unterformular anzuzeigen.<\/p>\n Quellcode 1<\/b><\/p>\n Daher verwenden Sie die erste Möglichkeit. Damit das Unterformular nach der Auswahl eines Eintrags des Kombinationsfeldes cmbLieferanten aktualisiert wird und nur noch Artikel des ausgewählten Lieferanten anzeigt, legen Sie zwei Ereignisprozeduren an:<\/p>\n Quellcode 2<\/b><\/p>\n Quellcode 3<\/b><\/p>\n Die Prozedur aus Quellcode 2 aktualisiert nach der Auswahl eines Eintrags mit dem Kombinationsfeld das Unterformular. Der zweite Befehl der Prozedur dient der Aktualisierung des zweiten Kombinationsfeldes – dazu später mehr.<\/p>\n Die Prozedur aus Quellcode 3 setzt den Filter des Unterformulars so, dass nur Datensätze angezeigt werden, die den ausgewählten Einträgen der Kombinationsfelder entsprechen.<\/p>\n Möglicherweise wundern Sie sich, dass hier als Vergleichsoperator LIKE gewählt wurde, obwohl eigentlich durch die Auswahl der Kombinationsfeldeinträge die genauen Werte zum Vergleich zur Verfügung stehen. Den Grund hierfür erfahren Sie im nächsten Abschnitt.<\/p>\n Kombinationsfelder berücksichtigen in ihrer herkömmlichen Art nicht, dass der Benutzer möglicherweise alle und nicht nur bestimmte Datensätze im Unterformular sehen möchte.<\/p>\n Sie sollen nun mit einer Anpassung der Datenherkunft der Abfrage einen Eintrag namens <Alle Lieferanten> im Kombinationsfeld anzeigen. Dazu geben Sie als Datenherkunft des Kombinationsfeld den folgenden Ausdruck ein:<\/p>\n Die UNION-Abfrage führt die Ergebnisse zweier Abfragen zu einer Abfrage zusammen: erstens alle Einträge der Tabelle Lieferanten und zweitens einen einzelnen Eintrag, der als Lieferanten-Nr den Wert * und als Firma den Wert <Alle Lieferanten> hat.<\/p>\n Bild 7 zeigt, wie das Kombinationsfeld nun aussieht. Wenn Sie den Eintrag <Alle Lieferanten> auswählen, wird der Wert der gebundenen Spalte des Kombinationsfeldes auf den Wert * gesetzt.<\/p>\n Hier liegt auch der Grund, warum der Filter des Unterformulars den Vergleichsoperator LIKE statt = enthält: Es würde sich sonst kein Datensatz im Unterformular finden, der dem Wert * entspricht. Durch einen Vergleich mit dem Operator LIKE hingegen werden alle Datensätze angezeigt, da das Sternchen hier als Joker ausgewertet wird.<\/p>\n <\/b><\/p>\n Bild 7: Das Kombinationsfeld mit zusätzlichem Eintrag zur Auswahl aller Einträge<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 8: Datensatzherkunft des Kombinationsfeldes cmbKategorien<\/span><\/b><\/p>\n Das Beispielformular enthält zwei Kombinationsfelder, die zur Auswahl von Lieferanten und Kategorien dienen. Das Unterformular soll lediglich die Datensätze anzeigen, die den ausgewählten Einträgen der Kombinationsfelder entsprechen.<\/p>\n Dabei ist zu beachten, dass nicht jeder Lieferant Artikel aller Kategorien liefert. Um zu verhindern, dass mit dem zweiten Kombinationsfeld Kategorien ausgewählt werden können, die der gewählte Lieferant gar nicht bietet, soll das zweite Kombinationsfeld eine Datensatzherkunft erhalten, die vom Inhalt des ersten Kombinationsfeldes abhängt.<\/p>\n Die Datensatzherkunft ist eine Abfrage, die aus drei miteinander verknüpften Tabellen besteht. Das Aussehen der Abfrage entnehmen Sie Bild 8 (Hinweise zum Anlegen einer solchen Abfrage finden Sie im Beitrag Erstellen von Abfragen als Datenherkunft oder Datensatzherkunft im vorliegenden Heft.)<\/p>\n Als Abfrageergebnis erhalten Sie die Felder Kategorie-Nr und Kategoriename der Datensätze, die der im ersten Kombinationsfeld ausgewählte Lieferant im Programm hat. Dazu sind die Tabellen Kategorien und Lieferanten über die Tabelle Artikel miteinander verknüpft.<\/p>\n Damit auch dieses Kombinationsfeld einen Eintrag zur Anzeige aller Datensätze des Unterformulars bietet, ergänzen Sie die Datenherkunft wie in Quellcode 4 (der neue Teil ist in fetter Schrift dargestellt).<\/p>\n Damit der Benutzer auch für beide Kategorien einen Wert auswählt, soll nach der Auswahl des ersten Wertes direkt das zweite Kombinationsfeld geöffnet werden.<\/p>\n Dazu ändern Sie die Prozedur, die durch die Ereigniseigenschaft Nach Aktualisierung des ersten Kombinationsfeldes ausgelöst wird, auf die Prozedur aus Quellcode 5 ab.<\/p>\n Auch das zweite Kombinationsfeld müssen Sie mit einer Ereignisprozedur für das Ereignis Nach Aktualisierung versehen. Dazu verwenden Sie die Prozedur aus Quellcode 6, deren einziger Befehl den Inhalt des Unterformulars aktualisiert.<\/p>\n Quellcode 5<\/b><\/p>\n Quellcode 6<\/b><\/p>\n Wenn Sie das Formular nun in der Formularansicht öffnen, zeigt das Unterformular zunächst keine Daten an. Das liegt daran, dass die Kombinationsfelder beide den Wert Null haben.<\/p>\n Um direkt beim öffnen des Formulars alle Datensätze im Unterformular anzuzeigen, können Sie beispielsweise für beide Kombinationsfelder den Wert „*“ für die Eigenschaft Standardwert einsetzen. Das ist hier praktikabel, weil Sie ja den gewünschten Wert schon kennen.<\/p>\n Es gibt allerdings auch Anwendungen, in denen der Standardwert nicht bekannt ist. Um in dem Fall direkt beim öffnen des Formulars einen Wert anzuzeigen – beispielsweise den ersten Wert der Datenherkunft können Sie auch die folgende Variante verwenden: <\/p>\n Geben Sie einfach den folgenden Ausdruck als Wert der Eigenschaft Standardwert an:<\/p>\n Das ist allerdings nicht immer zweckmäßig – im vorliegenden Fall beispielsweise sollen ja direkt im Unterformular die entsprechend gefilterten Daten angezeigt werden.<\/p>\n Daher erweitern Sie die Prozedur aus Quellcode 1 entsprechend Quellcode 7. Die Prozedur weist zunächst dem ersten Kombinationsfeld den ersten Wert der Datensatzherkunft zu.<\/p>\n Nun würde man normalerweise genauso mit dem zweiten Kombinationsfeld vorgehen – allerdings ist dieses vom Inhalt des ersten Kombinationsfeldes abhängig. Daher soll zunächst die Datensatzherkunft des zweiten Kombinationsfeldes aktualisiert werden, bevor der entsprechende Standardwert zugewiesen wird.<\/p>\n Sie haben bisher einige Methoden kennen gelernt, um Kombinationsfelder mit Daten zu füllen. In den folgenden Abschnitten finden Sie noch einige tiefer gehende Informationen. Sie erfahren, wie Sie der Datensatzherkunft während der Laufzeit einen neuen Datensatz hinzufügen und wie Sie eine Wertliste und eine Feldliste einsetzen können.<\/p>\n Quellcode 7<\/b><\/p>\n Quellcode 8<\/b><\/p>\n Die Arbeit mit Kombinationsfeldern erfordert manchmal die Anpassung der angezeigten Inhalte während der Laufzeit. Dabei kann es sich lediglich um eine Aktualisierung der Datensatzherkunft handeln, wie weiter oben bereits beschrieben wurde.<\/p>\n Es kann aber auch sein, dass Sie der zugrunde liegenden Tabelle einen neuen Eintrag hinzufügen möchten – beispielsweise beim Anlegen eines neuen Artikels, für den es noch keinen Lieferanten gibt.<\/p>\n Für die folgenden Beispiele greifen Sie noch einmal auf das zuerst verwendete Formular frmArtikel zurück. <\/p>\n In dem Fall ist eine kleine Prozedur gefragt, die in der entsprechenden Tabelle der Datensatzherkunft – in diesem Fall der Tabelle Lieferanten – einen neuen Datensatz anlegt.<\/p>\n Die Prozedur soll durch die Ereigniseigenschaft Bei nicht in Liste des Kombinationsfeldes Lieferanten-Nr ausgelöst werden.<\/p>\n Die Prozedur aus Quellcode 8 verwendet das ADO-Objektmodell. Unter Access 97 ist aber DAO als Objektbibliothek voreingestellt. Falls Sie also Access 97 verwenden und die DAO-Variante der Prozedur benötigen, finden Sie weitere Informationen im Beitrag Eingabe von neuen Daten in gebundene Kombinationsfelder, Gruppe 2.19 des Praxishandbuchs Access 97. <\/p>\n <\/b><\/p>\n Bild 9: Eine Wertliste und ihre Datensatzherkunft<\/span><\/b><\/p>\n Die Prozedur erhält als übergabeparameter den neuen Eintrag des Kombinationsfeldes. Nach der Deklaration eines auf die aktuelle Datenbank bezogenen Connection-Objektes und einer Datensatzgruppe wird der Tabelle Lieferanten ein neuer Datensatz hinzugefügt, der den Inhalt des Kombinationsfeldes als Firma enthält. <\/p>\n Durch die Rückgabe des Wertes acDataErrAdded für den Rückgabeparameter Response wird der neue Wert dem Kombinationsfeld hinzugefügt.<\/p>\n Neben Tabellen, Abfragen oder SQL-Ausdrücken können Kombinationsfelder auch Wertlisten als Datensatzherkunft haben.<\/p>\n Wertlisten sind durch Aufzählungszeichen getrennte Listen von Werten. Dabei verwendet man das in den Ländereinstellungen der Systemsteuerung angegebene Listentrennzeichen – in Deutschland z. B. das Semikolon (;).<\/p>\n Eine Feldliste können Sie immer dann verwenden, wenn die Anzahl der anzuzeigenden Einträge klein und konstant ist – also beispielsweise zur Auswahl eines Monats.<\/p>\n Wenn Sie eine Wertliste als Datensatzherkunft verwenden möchten, stellen Sie zunächst die Eigenschaft Herkunftstyp auf den Wert Wertliste ein. Anschließend können Sie den Inhalt der Wertliste für die Eigenschaft Datensatzherkunft eingeben. Zu Beispielzwecken können Sie einmal eine Liste der Monate inklusive Monatsnummer eingeben:<\/p>\n Legen Sie außerdem die Eigenschaft Spaltenanzahl auf den Wert 2 und die Eigenschaft Spaltenbreiten auf den Wert 0cm;4cm fest. Dadurch werden nur die Monatsnamen angezeigt (siehe Bild 9).<\/p>\n Sie können dann über die gebundene Spalte des Feldes auf die Monatsnummer zugreifen, z. B. mit der folgenden Anweisung:<\/p>\n Die dritte Möglichkeit einer Datensatzherkunft ist eine Feldliste. Wenn Sie für die Eigenschaft Herkunftstyp den Eintrag Feldliste wählen, können Sie mit der Eigenschaft Datensatzherkunft die Tabelle festlegen, deren Felder angezeigt werden sollen (siehe Bild 10).<\/p>\n Dazu erstellen Sie schnell ein weiteres Beispielformular namens frmBeispielFeldliste. Das Formular hat zwei Kombinationsfelder namens cmbTabellen und cmbFelder.<\/p>\n Das erste dient der Auswahl der gewünschten Tabelle und hat als Datensatzherkunft den folgenden SQL-Ausdruck:<\/p>\n <\/b><\/p>\n Bild 10: Anwendung für eine Feldliste<\/span><\/b><\/p>\n Der SQL-Ausdruck fragt mit Hilfe der Systemtabelle MSysObjects alle vorhandenen Tabellen der Datenbank ab und trägt sie als Datensatzherkunft des Kombinationsfeldes ein.<\/p>\n Hinterlegen Sie für die Ereigniseigenschaft Nach Aktualisierung dieses Kombinationsfeldes die Prozedur aus Quellcode 9.<\/p>\n Quellcode 9<\/b><\/p>\n Die Prozedur setzt die Eigenschaft Datensatzherkunft des Kombinationsfeldes cmbFelder auf die im Kombinationsfeld cmbTabellen ausgewählte Tabelle und aktualisiert das Kombinationsfeld cmbFelder.<\/p>\n Für das Kombinationsfeld cmbFelder müssen Sie lediglich die Eigenschaft Herkunftstyp auf den Wert Feldliste einstellen.<\/p>\n Nun können Sie mit dem zweiten Kombinationsfeld eines der Felder auswählen, das zu der mit dem ersten Kombinationsfeld selektierten Tabelle gehört.<\/p>\n Die letzte Möglichkeit für eine Datenherkunft ist die Verwendung einer Funktion. Da dieses Verfahren etwas komplizierter ist, soll es in einer der nächsten Ausgaben separat beschrieben werden.<\/p>\n Zu guter Letzt noch eine kleine Auflistung von Unterschieden zwischen Kombinationsfeldern und Listenfeldern. Eine genaue Beschreibung von Listenfeldern finden Sie ebenfalls in einer der nächsten Ausgaben.<\/p>\n Kombinationsfelder sind ein sehr wichtiges Instrument zur Auswahl von Daten. Mit Kombinationsfeldern können Sie Daten aus bestehenden Tabellen und Abfragen auswählen. Sie können aber auch neue Datensatzherkünfte festlegen sowie statische Wertlisten oder Feldlisten als Inhalt des Kombinationsfeldes verwenden. Im vorliegenden Beitrag erfahren Sie, welche Möglichkeiten Kombinationsfelder bieten und wie Sie diese an Ihre Bedürfnisse anpassen.<\/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":[66012002,662002,44000023],"tags":[],"class_list":["post-55000049","post","type-post","status-publish","format-standard","hentry","category-66012002","category-662002","category-Mit_Formularen_arbeiten"],"yoast_head":"\nAnlegen eines Beispielformulars<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{56C2D966-F4BC-4001-98B2-753F9F6E007B}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{56C2D966-F4BC-4001-98B2-753F9F6E007B}\/pic003.png\")
<\/p>\nGebundenes Kombinationsfeldvon Hand erstellen<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{56C2D966-F4BC-4001-98B2-753F9F6E007B}\/pic004.png\")
<\/p>\nEinstellen der wichtigstenEigenschaften desKombinationsfeldes<\/h2>\n
Steuerelementeninhalt<\/h3>\n
Herkunftstyp und Datensatzherkunft<\/h3>\n
Gebundene Spalte<\/h3>\n
Nur Listeneinträge<\/h3>\n
Spaltenanzahl und Spaltenbreiten<\/h3>\n
Spaltenüberschriften<\/h3>\n
Listenbreite<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{56C2D966-F4BC-4001-98B2-753F9F6E007B}\/pic005.png\")
<\/p>\nZeilenanzahl<\/h3>\n
Weitere Eigenschaften<\/h3>\n
Beispielformular vorbereiten<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{56C2D966-F4BC-4001-98B2-753F9F6E007B}\/pic006.png\")
<\/p>\nKombinationsfeld automatischöffnen<\/h2>\n
Kombinationsfeld beim öffnen des Formulars aufklappen<\/h3>\n
Eins nach dem anderen …<\/h3>\n
Auswahl von Datensätzen im Unterformular per Kombinationsfeld<\/h2>\n
Private Sub Form_Current()\r\n Me.cmbLieferant.SetFocus\r\n Me.cmbLieferant.Dropdown\r\nEnd Sub<\/pre>\n
Private Sub cmbLieferanten_AfterUpdate()\r\n Me.sfmArtikelSuche.Requery\r\n Me.cmbKategorien.Requery\r\nEnd Sub<\/pre>\n
Private Sub Form_Current()\r\n Me.Filter = \"[Kategorie-Nr] LIKE ''\" & Forms!frmArtikelsuche!cmbKategorien _ & \"'' AND [Lieferanten-Nr] LIKE ''\" & Forms!frmArtikelsuche!cmbLieferanten & \"''\"\r\n Me.FilterOn = True\r\nEnd Sub<\/pre>\n
Auswahl aller Datensätze perKombinationsfeld<\/h2>\n
SELECT [Lieferanten-Nr], Firma FROM Lieferanten UNION SELECT ''*'' as [Lieferanten-Nr], ''<Alle Lieferanten>'' As Firma FROM Lieferanten;<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{56C2D966-F4BC-4001-98B2-753F9F6E007B}\/pic007.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{56C2D966-F4BC-4001-98B2-753F9F6E007B}\/pic008.png\")
<\/p>\nAbhängige Kombinationsfelder realisieren<\/h2>\n
Private Sub cmbLieferanten_AfterUpdate()\r\n Me.sfmArtikelSuche.Requery\r\n Me.cmbKategorien.Requery\r\n Me.cmbKategorien.SetFocus\r\n Me.cmbKategorien.Dropdown\r\nEnd Sub<\/pre>\n
Private Sub cmbKategorien_AfterUpdate()\r\n Me.sfmArtikelSuche.Requery\r\nEnd Sub<\/pre>\n
Standardwert fürKombinationsfelder einstellen<\/h2>\n
SELECT DISTINCT Kategorien.[Kategorie-Nr], Kategoriename FROM Lieferanten \r\nINNER JOIN (Kategorien INNER JOIN Artikel \r\nON Kategorien.[Kategorie-Nr] = Artikel.[Kategorie-Nr]) \r\nON Lieferanten.[Lieferanten-Nr] = Artikel.[Lieferanten-Nr]\r\nWHERE (((Lieferanten.[Lieferanten-Nr]) LIKE \r\n[forms]![frmArtikelSuche]![cmbLieferanten]))\r\nUNION SELECT ''*'' as [Kategorie-Nr], ''<Alle Kategorien>'' As Kategorie FROM Kategorien;\r\nQuellcode 4<\/pre>\n
cmbLieferanten.ItemData(0)<\/pre>\n
Private Sub Form_Current()\r\n Me.cmbLieferanten = Me.cmbLieferanten.ItemData(0)\r\n Me.cmbKategorien.Requery\r\n Me.cmbKategorien = Me.cmbKategorien.ItemData(0)\r\n Me.sfmArtikelSuche.Requery\r\n Me.cmbLieferanten.SetFocus\r\n Me.cmbLieferanten.Dropdown\r\nEnd Sub<\/pre>\n
Private Sub Lieferanten_Nr_NotInList(NewData As String, Response As Integer)\r\n Dim cnn As ADODB.Connection\r\n Dim rst As New ADODB.Recordset\r\n Set cnn = CurrentProject.Connection\r\n rst.Open \"Lieferanten\", cnn, adOpenDynamic, adLockOptimistic\r\n rst.AddNew\r\n rst!Firma = NewData\r\n rst.Update\r\n Response = acDataErrAdded\r\n rst.Close\r\n Set rst = Nothing\r\n Set cnn = Nothing\r\nEnd Sub<\/pre>\n
Datensatzherkunft zur Laufzeitändern<\/h2>\n
Hinweis<\/h3>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{56C2D966-F4BC-4001-98B2-753F9F6E007B}\/pic009.png\")
<\/p>\nKombinationsfelder mitWertliste als Datenherkunft<\/h2>\n
\"1\";\"Januar\";\"2\";\"Februar\";\"3\";\"März\";\"4\";\"April\";\"5\";\"Mai\";\"6\";\"Juni\";\"7\";\"Juli\";\"8\";\"August\";\"9\";\"September\";\"10\";\"Oktober\";\"11\";\"November\";\"12\";\"Dezember\"<\/pre>\n
Debug.Print Forms!frmBeispielWertliste!cmbMonate <\/pre>\n
Kombinationsfelder mit Feldliste als Datensatzherkunft<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{56C2D966-F4BC-4001-98B2-753F9F6E007B}\/pic010.png\")
<\/p>\nSELECT Name, Type\r\nFROM MsysObjects\r\nWHERE Type=1<\/pre>\n
Private Sub cmbTabellen_AfterUpdate()\r\n Me.cmbFelder.RowSource = _ Me.cmbTabellen\r\n Me.cmbFelder.Requery\r\nEnd Sub<\/pre>\n
Funktion als Datenherkunft<\/h2>\n