<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Lookupdaten sind solche Daten, die zur näheren Beschreibung von in Tabellen gespeicherten Objekten dienen. Gute Beispiele sind die Anrede oder das Geschlecht von Personen. Im vorliegenden Beitrag erfahren Sie, warum Lookupdaten verwendet werden, in welchen Formen das möglich ist und wie sie am einfachsten verwaltet werden können.<\/b><\/p>\n
Viele Daten haben Eigenschaften, für die es immer wieder die gleichen Werte gibt. Betrachten Sie das Beispiel aus der Einleitung: Eine Tabelle mit den Daten von Personen enthält in der Regel Informationen wie Vorname, Nachname, Anrede, Geschlecht, Adressdaten und so weiter.<\/p>\n
Im Folgenden ist von Objekttabellen und Eigenschaftstabellen die Rede. Objekttabellen enthalten je Datensatz ein Objekt wie beispielsweise eine Person, eine Adresse, ein Produkt oder eine Rechnung. Eigenschaftstabellen enthalten lediglich Werte, die zur näheren Beschreibung der jeweiligen Objekte dienen. <\/p>\n
Während Vorname, Nachname und Adressdaten sich meist von Person zu Person unterscheiden, kann das Geschlecht beispielsweise nur zwei Werte annehmen und auch die Werte für die Anrede sind auf Herr, Frau und einige mit diversen Titeln verzierte Varianten beschränkt.<\/p>\n
Sie können diese Informationen natürlich mit den anderen Informationen in einer einzigen Tabelle, der Objekttabelle, speichern. Das kann aber erstens zu Inkonsistenzen führen und zweitens ist das Ausklammern von oft wiederkehrenden Daten Platz sparend.<\/p>\n
Inkonsistenzen treten vor allem dadurch auf, dass gleichbedeutende Einträge in unterschiedlicher Schreibweise vorkommen, was beispielsweise durch Schreibfehler oder durch die Verwendung von Abkürzungen passieren kann. Das führt zu Fehlern, wenn Abfragen auf diese Daten ausgeführt werden:<\/p>\n
Wenn zum Beispiel die Schreibweisen Herr und Hr. als Anrede verwendet werden und eine Abfrage alle Personen mit der Anrede Herr ermitteln soll, fallen die abgekürzten Herren sprichwörtlich unter den Tisch und das Abfrageergebnis wird – bezogen auf die eigentliche Intention – verfälscht.<\/p>\n
Wenn Sie diese Daten in eine weitere Tabelle, die Eigenschaftstabelle, ausklammern und nur die Einträge dieser Tabelle als mögliche Werte für die Eigenschaft Anrede verwenden, können keine solchen Inkonsistenzen auftreten (siehe Bild 1).<\/p>\n
![](\"..\/fileadmin\/_temp_\/{FA010730-7BCB-4D40-B355-D24DC6641323}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Beispiel für Lookupdaten in einer 1:n-Beziehung<\/span><\/b><\/p>\n Um die Beziehung zwischen Objekttabellen und Eigenschaftstabellen wie in Bild 1 festzulegen, gehen Sie folgendermaßen vor:<\/p>\n <\/b><\/p>\n Bild 2: Festlegen der Verknüpfung zu einer Eigenschaftstabelle<\/span><\/b><\/p>\n Die Verwendung von Standardwerten bei verknüpften Tabellen, deren Beziehung referentielle Integrität voraussetzt, spart dem Benutzer in vielen Fällen die Zeit zum Auswählen der entsprechenden Werte und dem Entwickler die sonst anzulegende Fehlerbehandlung, falls der Benutzer gar keinen Wert auswählt. <\/p>\n Wenn die Eigenschaften mit denen aus Bild 2 übereinstimmen, müssen Sie nur noch die Verknüpfung festlegen. Das erfolgt im Beziehungsfenster. Dieses öffnen Sie über den Menüeintrag Extras\/Beziehungen. Zeigen Sie dort alle Tabellen an und ziehen Sie das Primärindexfeld von der Eigenschaftstabelle auf das Verknüpfungsfeld in der Objekttabelle. Legen Sie für die Beziehung referentielle Integrität fest.<\/p>\n Neben den Lookupdaten, die per 1:n-Beziehung verknüpft sind, gibt es auch solche, die eine m:n-Verknüpfung zwischen der Objekttabelle und der Eigenschaftstabelle erfordern.<\/p>\n Wenn Sie die Personen in unterschiedliche Kategorien einteilen möchten, können Sie das natürlich auch per 1:n-Verknüpfung tun. Dann kann aber jede Person nur einer Kategorie zugeordnet werden. Was aber passiert, wenn eine Person mehreren Kategorien zugeordnet werden soll Verwenden Sie in dem Fall einfach eine m:n-Beziehung wie in Bild 3.<\/p>\n <\/b><\/p>\n Bild 3: Lookupdaten per m:n-Beziehung<\/span><\/b><\/p>\n Wenn Sie eine solche Verknüpfung verwenden, können Sie jeder Person mehrere Kategorien zuweisen. Damit jede Kategorie jeder Person nur einmal zugewiesen werden kann, erstellen Sie für die Verknüpfungstabelle tblPersonenKategorien einen aus den beiden Feldern der Tabelle bestehenden Primärschlüssel.<\/p>\n Das Anlegen einer Verknüpfung für eine m:n-Beziehung erfolgt im Prinzip genau wie für eine 1:n-Beziehung – nur zweimal. Dabei wird jedes der beiden Primärschlüsselfelder der Verknüpfungstabelle mit dem jeweiligen Primärschlüsselfeld der Objekt- und der Eigenschaftstabelle verknüpft.<\/p>\n Aktivieren Sie außerdem für beide Beziehungen die Option Löschweitergabe. Das bewirkt, dass beim Löschen sowohl einer Person als auch einer Kategorie alle entsprechenden Einträge der Tabelle tblPersonenKategorien ebenfalls gelöscht werden.<\/p>\n Die Anzeige von Lookupdaten kann im Fall einer 1:n-Beziehung leicht mit Hilfe eines Kombinationsfeldes erfolgen. Bei m:n-Beziehungen wird es komplizierter: Da nicht feststeht, wie viele Datensätze der Eigenschaftstabelle einem Datensatz der Objekttabelle zugeordnet sind, kann schlecht ausreichend Platz eingeräumt werden.<\/p>\n Normalerweise würden Sie hier ein Unterformular in der Datenblatt- oder Endlosansicht verwenden, um solche Datensätze anzuzeigen. Da dies bei mehreren solcher Eigenschaften die übersichtlichkeit des Hauptformulars verschlechtern könnte, lernen Sie in den folgenden Abschnitten eine alternative Methode kennen.<\/p>\n Das nachfolgend verwendete Beispielformular hat die Tabelle tblPersonen als Datenherkunft. Ziehen Sie alle Felder aus der Feldliste in den Entwurf des Formulars. Wenn Sie die Verknüpfungen wie in Abschnitt 1.2 angelegt haben, werden die Felder AnredeID und GeschlechtID direkt als Kombinationsfeld angezeigt (siehe Bild 4).<\/p>\n <\/b><\/p>\n Bild 4: Das Beispielformular mit zwei 1:n-Lookupfeldern<\/span><\/b><\/p>\n Die Anzeige von 1:n-Lookupdaten erfolgt eigentlich immer wie in Bild 4. Alternativen sind kaum denkbar, zumal gegenüber einem herkömmlichen Textfeld lediglich die kleine Schaltfläche zum Ausklappen des Kombinationsfeldes hinzukommt und es damit für den eigentlichen Inhalt nur ein bisschen weniger Platz zur Verfügung stellt.<\/p>\n Selbstverständlich können Sie auch ein Listenfeld zur Auswahl von per 1:n-Beziehung verknüpften Daten verwenden. Da sich eine Lookup-Beziehung aber dadurch auszeichnet, dass die verknüpfte Tabelle neben dem Primärindexfeld nur den eigentlichen Eigenschaftswert als Feld hat, reicht ein Kombinationsfeld hier immer aus. <\/p>\n Kombinationsfelder zur Anzeige von Lookupdaten bieten den Vorteil, dass nicht nur bestehende Datensätze ausgewählt, sondern mit wenigen Handgriffen auch neue Lookupdaten eingegeben werden können.<\/p>\n Dazu stellen Sie lediglich die Ereigniseigenschaft Bei Nicht In Liste des Kombinationsfeldes auf den Wert [Ereignisprozedur] ein und bearbeiten selbige durch einen Mausklick auf die daneben erscheinende Schaltfläche mit den drei Punkten (…).<\/p>\n Die Ereignisprozedur sollte nach der Bearbeitung wie in Quellcode 1 aussehen. Die Prozedur erhält mit dem Parameter NewData den nicht in der Datensatzherkunft vorhandenen Wert übergeben.<\/p>\n Dieser wird der Tabelle tblAnreden über die Methode AddNew eines mit dieser Tabelle gefüllten Recordsets hinzugefügt. Die entsprechende Prozedur für das andere Lookupfeld, Geschlecht, können Sie analog anlegen.<\/p>\n Quellcode 1<\/b><\/p>\n <\/b><\/p>\n Bild 5: Beispielformular mit m:n-Lookupdatenfeld<\/span><\/b><\/p>\n Die Anzeige von m:n-Lookupdaten kann auf mehrere Arten erfolgen. Für welche Methode man sich entscheidet, hängt vom Anwendungsfall und davon, wie die Anzeige in das bestehende Formular integriert werden kann, ab.<\/p>\n Bekannte und in Access im Unternehmen mehrfach vorgestellte Methoden sind die per Unterformular und jene mit zwei Listenfeldern, zwischen denen die verknüpften Datensätze und die nicht verknüpften Datensätze hin- und hergeschoben werden können.<\/p>\n <\/p>\n In diesem Beitrag soll eine alternative Möglichkeit vorgestellt werden, die auch in der im Beitrag Karteikasten mit Access in Ausgabe 1\/2004 vorgestellten Verwaltung von juristischen Leitsätzen verwendet wird.<\/p>\n Bei dieser Methode werden die verknüpften Daten Platz sparend nebeneinander in einem Textfeld angezeigt. Für die Auswahl der verknüpften Daten ist ein separates Formular vorgesehen, das über eine kleine Schaltfläche rechts von dem Textfeld geöffnet werden kann. Bild 5 zeigt, wie das bereits beschriebene Beispielformular mit diesen Steuerelementen aussieht. Dabei sollen in dem Textfeld die mit der jeweiligen Person verknüpften Kategorien angezeigt werden.<\/p>\n Das Feld zur Anzeige der eigentlichen Daten ist ungebunden. Es soll lediglich der Anzeige der Daten dienen. Die Bearbeitung der Daten erfolgt über ein zusätzliches Formular, dass über die rechts von dem Feld befindliche Schaltfläche geöffnet werden kann.<\/p>\n Bevor die Lookupdaten des per m:n-Beziehung verknüpften Eigenschaftsfeldes angezeigt werden können, müssen sie zunächst einmal eingegeben werden. Das dazu benötigte Formular besteht aus einem Unterformular zur Anzeige der verknüpften Kategorien sowie aus zwei Schaltflächen zum Entfernen einer Kategorie durch den aktuellen Benutzer sowie zum Schließen des Formulars. Legen Sie zunächst das Unterformular namens sfmLookupKategorien an. Als Datenherkunft des Formulars dient die Verknüpfungstabelle tblPersonenKategorien. Ziehen Sie das Feld KategorieID aus der resultierenden Feldliste in den Abfrageentwurf, entfernen Sie das Beschriftungsfeld und positionieren Sie es links oben (siehe Bild 6).<\/p>\n <\/b><\/p>\n Bild 6: Entwurfsansicht des Unterformulars frmLookupKategorien<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 7: Entwurfsansicht des Lookupformulars<\/span><\/b><\/p>\n Stellen Sie die Eigenschaft Standardansicht auf Endlosformular ein. Damit das Kombinationsfeld nicht die in dem Feld KategorieID enthaltene Zahl, sondern die damit verbundene Kategorie anzeigt, müssen Sie das Feld in ein Kombinationsfeld umwandeln und einige Eigenschaften anpassen:<\/p>\n Da wie bei den 1:n-Lookupdaten auch hier neue Daten eingegeben werden können, legen Sie die dort verwendete Prozedur, die durch die Ereigniseigenschaft Bei Nicht in Liste ausgelöst wird, auch für dieses Kombinationsfeld an. Natürlich müssen Sie den Tabellen- und den Feldnamen auf tblKategorien beziehungsweise Kategorie anpassen.<\/p>\n Damit sind die Arbeiten an dem Unterformular abgeschlossen. Legen Sie nun ein neues Formular an. Weisen Sie ihm die Tabelle tblPersonen als Datenherkunft zu. Ziehen Sie das Unterformular sfmLookupKategorien vom Datenbankfenster in den Formularentwurf des Formulars frmLookupKategorien. Unter normalen Umständen erkennt das Unterformular automatisch, dass es jeweils die zur im Hauptformular angezeigten Person gehörenden Kategorien anzeigen soll und drückt dies durch entsprechende Einträge in den beiden Feldern Verknüpfen von und Verknüpfen nach aus (siehe Bild 7).<\/p>\n Quellcode 2<\/b><\/p>\n Quellcode 3<\/b><\/p>\n Quellcode 4<\/b><\/p>\n <\/b><\/p>\n Bild 8: Formular zur Zuordnung von Kategorien zu Personen<\/span><\/b><\/p>\n Fügen Sie dem Hauptformular nun noch einen entsprechenden Hinweistext hinzu und legen Sie zwei Schaltflächen zum Löschen von Datensätzen und Schließen des Formulars an. Die beiden Schaltflächen erhalten die Bezeichnungen cmdOK und cmdLoeschen und die Prozeduren aus Quellcode 2 und Quellcode 3 für die jeweiligen Ereigniseigenschaften Beim Klicken. Nach einigen kosmetischen Eingriffen könnte das Formular beispielsweise wie in Bild 8 aussehen.<\/p>\n Sie können in dem Formular frmLookupKategorien nun bestehende Kategorien auswählen, neue Kategorien eingeben und direkt in die Auswahl übernehmen und ausgewählte Kategorien wieder entfernen.<\/p>\n Das Formular frmLookupKategorien soll zur Auswahl von Kategorien für einen bestimmten Eintrag der Tabelle tblPersonen dienen. Es enthält allerdings keinerlei Informationen über die jeweilige Person, sodass der Benutzer im Dunkeln tappt, wessen Daten er gerade bearbeitet. <\/p>\n Das ist aber nur der Fall, wenn das Formular einzeln aufgerufen wird. Geplant ist aber der Aufruf dieses Formulars vom Hauptformular frmPersonen aus.<\/p>\n Quellcode 5<\/b><\/p>\n Dort wird das Formular frmLookupKontakte per Mausklick auf die Schaltfläche cmdLookupKontakte geöffnet. Mit dem Parameter WhereCondition wird der Wert PersonID für die aktuell im Formular frmPersonen angezeigte Person übergeben.<\/p>\n Dafür sorgt die Prozedur aus Quellcode 4, die Sie für die Ereigniseigenschaft Beim Klicken der Schaltfläche cmdLookupKategorien hinterlegen. Der aktuelle Datensatz wird vorsichtshalber gespeichert, da bei einem neuen Datensatz sonst zwar schon ein Eintrag für das Primärschlüsselfeld angezeigt würde, der Datensatz aber noch nicht in der Tabelle gespeichert wäre und es damit beim Hinzufügen verknüpfter Datensätze zu Fehlern käme. <\/p>\n In der Folge würde im Formular frmLookupKategorien ein Fehler auftreten, wenn ein neuer Datensatz in der Tabelle tblPersonenKategorien angelegt wird, ohne dass die betreffende Person in der Tabelle tblPersonen gespeichert ist.<\/p>\n Im derzeitigen Stand können Sie zwar die Kategorien der einzelnen Personen verwalten, aber diese werden noch nicht im Hauptformular angezeigt. Damit sich das ändert, legen Sie die Prozedur aus Quellcode 5 an. Die Prozedur erzeugt eine Datensatzgruppe namens rstKategorien, die aus den beiden verknüpften Tabellen tblPersonenKategorien und tblKategorien besteht und nach dem Feld PersonID der aktuell im Formular angezeigten Person gefiltert ist.<\/p>\n <\/b><\/p>\n Bild 9: Anzeige von per m:n-Beziehung verknüpften Lookupdaten<\/span><\/b><\/p>\n Innerhalb einer Do While-Schleife werden alle Datensätze der Datensatzgruppe durchlaufen und die jeweiligen Einträge des Feldes Kategorie durch Semikola getrennt aneinandergefügt. Nach dem Durchlaufen aller Datensätze wird das letzte, überflüssige Semikolon abgetrennt – vorausgesetzt die Zeichenkette strKategorien ist keine leere Zeichenkette. Das Ergebnis sieht wie in Bild 9 aus. Sinnvollerweise sollten Sie das Textfeld zur Anzeige der Kategorien für Benutzereingaben sperren, da dort direkt vorgenommene änderungen nicht gespeichert würden.<\/p>\n Für 1:n- wie auch für m:n-Lookupdaten gilt, dass sich mit der Zeit vermutlich einige Datensätze ansammeln und die Auswahl in den jeweiligen Kombinationsfeldern unübersichtlich wird. Hinzu kommt, dass auch hier durchaus mehrere Schreibweisen für den gleichen Begriff verwendet werden könnten. Ganz unangenehm sind Karteileichen – für die Verknüpfung vorgehaltene Eigenschaften, die aktuell mit keinem Datensatz verknüpft sind und möglicherweise auch nie mehr benötigt werden.<\/p>\n Wie schnell ist bei einer 1:n-Lookupbeziehung mal eben ein Eintrag falsch geschrieben, und treibt fortan sein Unwesen in den entsprechenden Kombinationsfeldern. Um die zur Verfügung stehenden Einträge zu verwalten, verwenden Sie ein spezielles Formular mit verschiedenen Funktionen.<\/p>\n Die Verwaltung von m:n-Lookupdaten soll drei Funktionen bieten:<\/p>\n Das fertige Formular zur Erfüllung dieser Aufgabe sieht wie in Bild 10 aus.<\/p>\n Zum Erstellen des benötigten Formulars gehen Sie folgendermaßen vor: Legen Sie ein neues Formular an. Stellen Sie die Eigenschaften Bildlaufleisten, Datensatzmarkierer, Navigationsschaltflächen und Trennlinien auf den Wert Nein.<\/p>\n Speichern Sie das Formular dann unter dem Namen frmKategorienVerwalten.<\/p>\n Quellcode 6<\/b><\/p>\n <\/b><\/p>\n Bild 10: Formular zur Verwaltung von Lookupdaten<\/span><\/b><\/p>\n Nun können Sie mit dem Anlegen der benötigten Steuerelemente beginnen.<\/p>\n Beginnen Sie mit dem Listenfeld zur Anzeige aller benötigten Einträge. Das Listenfeld erhält als Datensatzherkunft die Tabelle tblKategorien und soll aus dieser Tabelle lediglich das Feld Kategorie anzeigen. Damit das erste Feld der Datensatzherkunft, das Feld KategorieID, nicht angezeigt wird, stellen Sie die beiden Eigenschaften Spaltenanzahl und Spaltenbreite auf die Werte 2 und 0 ein. Die Eigenschaft Name erhält den Wert lstKategorien.<\/p>\n Die Datensatzherkunft des Listenfeldes soll neben der Menge aller Datensätze der Tabelle tblKategorien auch nur diejenigen anzeigen, die bereits mit einem Datensatz aus der Tabelle tblPersonen verknüpft sind, und solche, die mit gar keinem Datensatz verknüpft sind.<\/p>\n Dazu legen Sie zunächst eine Optionsgruppe mit drei Optionen an, über die der Benutzer die gewünschte Filterung auswählen kann. Die Optionen erhalten Beschriftungen wie in Bild 11 und von oben nach unten die Optionswerte 1 bis 3.<\/p>\n Für die Ereigniseigenschaft Nach Aktualisierung der Optionsgruppe legen Sie die Prozedur aus Quellcode 6 an.<\/p>\n Die Prozedur aktualisiert die Datensatzherkunft des Listenfeldes je nach der ausgewählten Option. Außerdem aktiviert es die Schaltfläche cmdLoeschen nur, wenn die nicht verknüpften Einträge der Tabelle tblKategorien angezeigt werden.<\/p>\n <\/b><\/p>\n Bild 11: Das Formular frmKategorienVerwalten in der Entwurfsansicht<\/span><\/b><\/p>\n Schließlich fügen Sie dem Formular einen Bereich hinzu, der ein Kombinationsfeld sowie eine Schaltfläche mit den Namen cboKategorien beziehungsweise cmdUeberfuehren enthält.<\/p>\n Diese Funktion soll dazu dienen, Kategorien gleicher Bedeutung, aber mit unterschiedlichen Bezeichnungen zu vereinheitlichen. Wenn es beispielsweise zwei Kategorien namens Partner und Geschäftspartner gibt, soll die Kategorie Partner gelöscht werden und alle Zuordnungen in der Tabelle tblPersonenKategorien, die auf die Kategorie Partner verweisen, auf den Eintrag Geschäftspartner umgelenkt werden.<\/p>\n Der Eintrag Partner soll anschließend direkt aus der Tabelle tblKategorien entfernt werden.<\/p>\n Damit dies funktioniert, müssen Sie die Steuerelemente folgendermaßen anpassen und mit Prozeduren versehen:<\/p>\n Das Kombinationsfeld soll immer alle Beiträge anzeigen außer dem, der gerade im Listenfeld aktiviert ist. Dazu geben Sie als Datensatzherkunft die SQL-Anweisung aus Quellcode 7 an.<\/p>\n Damit die Datensatzherkunft bei änderungen des Inhalts des Listenfeldes immer direkt angepasst wird, legen Sie für die Ereigniseigenschaft Nach Aktualisierung des Listenfeldes die Prozedur aus Quellcode 8 an.<\/p>\n Im unteren Teil der Prozedur aus Quellcode 6, die bei Auswahl einer neuen Untermenge der vorhandenen Kategorien ausgelöst wird, befinden sich einige Zeilen, die das Kombinationsfeld aktualisieren und überprüfen, ob durch die änderung des Inhalts des Listenfeldes beide Steuerelemente, also sowohl Listen- als auch Kombinationsfeld, den gleichen Datensatz anzeigen. In dem Fall wird das Kombinationsfeld automatisch wieder auf den Wert <auswählen> eingestellt.<\/p>\n Bleibt noch die Schaltfläche, mit der das überführen der ausgewählten Kategorie in die gewünschte Zielkategorie durchgeführt wird. Die beim Klicken auf die Schaltfläche ausgelöste Prozedur finden Sie in Quellcode 9.<\/p>\n Quellcode 7<\/b><\/p>\n Quellcode 8<\/b><\/p>\n Quellcode 9<\/b><\/p>\n Quellcode 10<\/b><\/p>\n Die Prozedur überprüft zunächst, ob beide Steuerelemente einen Wert ungleich 0 enthalten, ob also je eine Kategorie ausgewählt ist.<\/p>\n Falls ja, werden zwei Aktualisierungsabfragen durchgeführt.<\/p>\n Die erste ändert alle Datensätze der Tabelle tblPersonenKategorien mit der zu überführenden Kategorie auf die Zielkategorie ab.<\/p>\n Dabei kann es vorkommen, dass eine Person bereits der Zielkategorie zugeordnet ist. In dem Fall wird nur die Zuordnung der betroffenen Person zu der zu überführenden Kategorie geändert.<\/p>\n Die zweite Aktualisierungsabfrage löscht die zu überführende Kategorie, da diese nun nicht mehr benötigt wird. Anschließend werden noch die beiden Listen aktualisiert.<\/p>\n Da sich durch überführungen unter Umständen der in dem Hauptformular anzuzeigende Inhalt ändert, muss überprüft werden, ob das Hauptformular geöffnet ist und der Inhalt des Textfeldes txtKategorien gegebenenfalls angepasst werden muss.<\/p>\n Dazu verwenden Sie die Prozedur aus Quellcode 10, die durch das Ereignis Beim Klicken der Schaltfläche aufgerufen wird.<\/p>\n","protected":false},"excerpt":{"rendered":" Lookupdaten sind solche Daten, die zur näheren Beschreibung von in Tabellen gespeicherten Objekten dienen. Gute Beispiele sind die Anrede oder das Geschlecht von Personen. Im vorliegenden Beitrag erfahren Sie, warum Lookupdaten verwendet werden, in welchen Formen das möglich ist und wie sie am einfachsten verwaltet werden können.<\/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":[66022004,662004,44000028,44000023,44000021],"tags":[],"class_list":["post-55000211","post","type-post","status-publish","format-standard","hentry","category-66022004","category-662004","category-Ergonomie_und_Benutzeroberflaeche","category-Mit_Formularen_arbeiten","category-Tabellen_und_Datenmodellierung"],"yoast_head":"\nBeziehung für 1:n-Lookupdaten festlegen<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{FA010730-7BCB-4D40-B355-D24DC6641323}\/pic002.png\")
<\/p>\nHinweis<\/h3>\n
m:n-Lookupdaten<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{FA010730-7BCB-4D40-B355-D24DC6641323}\/pic003.png\")
<\/p>\nBeziehung für m:n-Lookupdaten festlegen<\/h2>\n
Beispielformular<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{FA010730-7BCB-4D40-B355-D24DC6641323}\/pic004.png\")
<\/p>\n1:n-Lookupdaten anzeigen und bearbeiten<\/h2>\n
Hinweis<\/h3>\n
Eingabe neuer Lookupdaten perKombinationsfeld<\/h3>\n
Private Sub AnredeID_NotInList(NewData As String, _ Response As Integer)\r\n Response = acDataErrAdded\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 \"tblAnreden\", cnn, adOpenDynamic, _ adLockOptimistic\r\n rst.AddNew\r\n rst!Anrede = NewData\r\n rst.Update\r\n rst.Close\r\n cnn.Close\r\n Set rst = Nothing\r\n Set cnn = Nothing\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{FA010730-7BCB-4D40-B355-D24DC6641323}\/pic005.png\")
<\/p>\nm:n-Lookupdaten anzeigen<\/h2>\n
Formular zur Bearbeitung vonm:n-Lookupdaten<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{FA010730-7BCB-4D40-B355-D24DC6641323}\/pic006.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{FA010730-7BCB-4D40-B355-D24DC6641323}\/pic007.png\")
<\/p>\nPrivate Sub cmdLoeschen_Click()\r\n Dim cnn As Connection\r\n Set cnn = CurrentProject.Connection\r\n If Not IsNull(Me.sfmLookupKategorien) Then\r\n cnn.Execute \"DELETE FROM tblPersonenKategorien WHERE PersonID = \" _ & Me.PersonID & \" AND KategorieID = \" _ & Me.sfmLookupKategorien.Form.KategorieID\r\n Me.sfmLookupKategorien.Form.Requery\r\n Else\r\n MsgBox \"Kein Datensatz ausgewählt.\"\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub cmdOK_Click()\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n
Private Sub cmdLookupKategorien_Click()\r\n DoCmd.RunCommand accmdSaveRecord\r\n DoCmd.OpenForm \"frmLookupKategorien\", WindowMode:=acDialog, _ WhereCondition:=\"PersonID = \" & Me.PersonID\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{FA010730-7BCB-4D40-B355-D24DC6641323}\/pic008.png\")
<\/p>\nAufruf des Lookupformulars vomHauptformular<\/h3>\n
Private Sub MetadatenAktualisieren()\r\n Dim cnn As ADODB.Connection\r\n Dim rstKategorien As New ADODB.Recordset\r\n Dim strKategorien As String\r\n If Not IsNull(Me.PersonID) Then\r\n Set cnn = CurrentProject.Connection\r\n With rstKategorien\r\n .Source = \"SELECT Kategorie FROM tblKategorien INNER JOIN \" _ & \"tblPersonenKategorien ON tblKategorien.KategorieID = \" _ & \"tblPersonenKategorien.KategorieID WHERE \" _ & \"tblPersonenKategorien.PersonID = \" & Me.PersonID _ & \" ORDER BY Kategorie\"\r\n .ActiveConnection = cnn\r\n .CursorType = adOpenForwardOnly\r\n .LockType = adLockOptimistic\r\n .Open\r\n Do While Not .EOF\r\n strKategorien = strKategorien & !Kategorie & \"; \"\r\n .MoveNext\r\n Loop\r\n End With\r\n If Len(strKategorien) > 0 Then\r\n strKategorien = Mid(strKategorien, 1, Len(strKategorien) - 2)\r\n Me.txtKategorien = strKategorien\r\n Else\r\n Me.txtKategorien = \"\"\r\n End If\r\n Else\r\n Me.txtKategorien = \"\"\r\n End If\r\nEnd Sub<\/pre>\n
Anzeigen der Lookupdaten im Hauptformular<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{FA010730-7BCB-4D40-B355-D24DC6641323}\/pic009.png\")
<\/p>\nFunktionen des Formulars zurVerwaltung von m:n-Lookupdaten<\/h2>\n
Erstellen desFormulars zurVerwaltung vonm:n-Lookupdaten<\/h2>\n
Private Sub ogrAnzuzeigendeDatensaetze_AfterUpdate()\r\n Select Case Me.ogrAnzuzeigendeDatensaetze\r\n Case 1\r\n Me!lstKategorien.RowSource = \"tblKategorien\"\r\n Me.cmdLoeschen.Enabled = False\r\n Case 2\r\n Me!lstKategorien.RowSource = \"SELECT DISTINCT \" _ & \"tblPersonenKategorien.KategorieID, tblKategorien.Kategorie \" _ & \"FROM tblPersonenKategorien INNER JOIN tblKategorien ON \" _ & \"tblPersonenKategorien.KategorieID = tblKategorien.KategorieID\"\r\n Me.cmdLoeschen.Enabled = False\r\n Case 3\r\n Me!lstKategorien.RowSource = \"SELECT * FROM tblKategorien WHERE \" _ & \"KategorieID NOT IN (SELECT tblPersonenKategorien.KategorieID \" _ & \"FROM tblPersonenKategorien INNER JOIN tblKategorien ON \" _ & \"tblPersonenKategorien.KategorieID = tblKategorien.KategorieID)\" Me.cmdLoeschen.Enabled = True\r\n End Select\r\n Me.lstKategorien = Me.lstKategorien.ItemData(0)\r\n Me!cboKategorien.Requery\r\n If Me.cboKategorien = Me.lstKategorien Then\r\n Me.cboKategorien = Me.cboKategorien.ItemData(0)\r\n End If\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{FA010730-7BCB-4D40-B355-D24DC6641323}\/pic010.png\")
<\/p>\nAnzeige der m:n-Lookupdaten<\/h2>\n
Filtern der Lookupdatensätze<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{FA010730-7BCB-4D40-B355-D24DC6641323}\/pic011.png\")
<\/p>\nüberführen von m:n-Lookupdaten<\/h2>\n
Das überführen von Kategorien in andere Kategorien<\/h2>\n
SELECT 0 AS KategorieID, ''<auswählen>'' AS Kategorie FROMtblKategorien UNION SELECT tblKategorien.KategorieID, tblKategorien.Kategorie FROM tblKategorien WHERE (((tblKategorien.KategorieID)<>[Forms]![frmKategorienVerwalten]![lstKategorien]));<\/pre>\n
Private Sub lstKategorien_AfterUpdate()\r\n Me!cboKategorien.Requery\r\n If Me.lstKategorien = Me.cboKategorien Then\r\n Me.cboKategorien = Me.cboKategorien.ItemData(0)\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub cmdUeberfuehren_Click()\r\n Dim cnn As ADODB.Connection\r\n Set cnn = CurrentProject.Connection\r\n If Me.cboKategorien = 0 Or Me.lstKategorien = 0 Then\r\n MsgBox \"Bitte wählen Sie die zu überführende \" _ & \"und die Zielkategorie aus.\"\r\n Exit Sub\r\n Else\r\n On Error Resume Next\r\n cnn.Execute \"UPDATE tblPersonenKategorien \" _ & \"SET KategorieID = \" & Me!cboKategorien _ & \" WHERE KategorieID = \" & Me!lstKategorien\r\n If Err.Number > 0 Then\r\n cnn.Execute \"DELETE FROM \" _ & \"tblPersonenKategorien WHERE \" _ \"KategorieID = \" & Me.lstKategorien\r\n End If\r\n cnn.Execute \"DELETE FROM tblKategorien \" _ & \"WHERE KategorieID = \" & Me!lstKategorien\r\n End If\r\n Me!lstKategorien.Requery\r\n Me!lstKategorien = Me!lstKategorien.ItemData(0)\r\n Me!cboKategorien.Requery\r\nEnd Sub<\/pre>\n
Private Sub cmdOK_Click()\r\n If IstFormularGeoeffnet(\"frmLookupdaten\") Then\r\n Forms!frmLookupdaten.Requery\r\n End If\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n
NotwendigeAktualisierung des Hauptformulars<\/h2>\n