<\/p>\n
Unter Lookup-Daten verstehen wir beispielsweise die Kategorien, denen ein Artikel zugeordnet werden kann, oder auch Anreden – also Daten, die zur Vermeidung von Redundanzen in eine eigene Tabelle ausgelagert und anschließend wieder verknüpft wurden. Nun enthalten solche Tabellen, gerade wenn sie von anderswo importiert oder unsauber gepflegt wurden, nicht immer saubere Daten. Dieser Beitrag zeigt, wie Sie Lookup-Datensätze, die inhaltlich redundant sind, zusammenführen und dabei auch die damit verknüpften Daten berücksichtigen. Die Lösung kann aber auch genutzt werden, um beliebige Lookup-Datensätze zusammenzuführen.<\/b><\/p>\n
Es gibt mindestens zwei Gründe, die dazu führen, dass man seine Lookup-Tabellen aufräumen möchte:<\/p>\n
Ein Beispiel für eine Lookup-Tabelle ist eine Tabelle mit Kategorien etwa namens tblKategorien<\/b>, die als Lookup-Tabelle für eine Detailtabelle namens tblArtikel <\/b>dient. über ein Fremdschlüsselfeld wählt man für jeden Artikel eine Kategorie aus der Tabelle tblKategorien <\/b>aus und teilt die Artikel so in Kategorien ein.<\/p>\n
Wenn dort nun beispielsweise einige Artikel vorliegen, die aktuell einer Kategorie Alkohol. Getränke <\/b>zugewiesen sind, kann es sein, dass der Benutzer die Kategorie nicht mehr benötigt und die enthaltenen Datensätze lieber der Kategorie Getränke <\/b>zuweisen möchte. In diesem Fall sind gleich einige Schritte nötig (siehe auch Bild 1):<\/p>\n
![\"Lookup-Tabellen](\"..\/fileadmin\/_temp_\/2014_04\/pic_946_001.png\")
<\/p>\n
Bild 1: Lookup-Tabellen anpassen in zwei Schritten<\/span><\/b><\/p>\n Der zweite dieser beiden Schritte sollte durch die entsprechende Definition der Beziehung zwischen den beiden Tabellen abgesichert werden. In diesem Fall definieren Sie die Beziehung mit referenzieller Integrität (s. Bild 2). Dadurch ist sichergestellt, dass der Benutzer nicht versehentlich eine Kategorie löscht, die noch mit einem der Artikel-Datensätze verknüpft ist.<\/p>\n Bild 2: Verknüpfung zwischen Detailtabelle und Lookup-Tabelle<\/span><\/b><\/p>\n Wenn Sie bei dieser Konstellation versuchen, einen Datensatz aus einer Lookup-Tabelle wie tblKategorien <\/b>zu löschen, während noch ein Datensatz der Tabelle tblArtikel <\/b>über das Fremdschlüsselfeld KategorieID <\/b>auf diesen Datensatz verweist, erscheint eine entsprechende Meldung (s. Bild 3).<\/p>\n Bild 3: Meldung beim Versuch, einen verknüpften Datensatz aus einer Lookup-Tabelle zu löschen<\/span><\/b><\/p>\n Sie sollten in den Beziehungseigenschaften für die Beziehung zwischen den beiden Tabellen tblArtikel <\/b>und tblKategorien <\/b>auf keinen Fall die Option Löschweitergabe an verwandte Datensätze <\/b>aktivieren. Wenn Sie bei dieser Einstellung einen der Datensätze der Tabelle tblKategorien <\/b>löschen, werden auch automatisch alle Datensätze der Tabelle tblArtikel <\/b>gelöscht, die mit diesem Datensatz verknüpft sind – zumindest wenn dies nicht noch durch andere mit referenzieller Integrität definierte Beziehungen verhindert wird. Die nachfolgend vorgestellte Lösung soll jedoch ohnehin nur solche Lookup-Daten löschen, die keinem Datensatz einer Detailtabelle mehr zugeordnet sind.<\/p>\n Lookup-Daten zusammenführen per Mausklick<\/b><\/p>\n Das Formular aus Bild 4 enthält alle Steuerelemente, um das Zusammenführen zweier oder mehrerer Lookup-Datensätze mit wenigen Mausklicks durchzuführen.<\/p>\n Bild 4: Formular zum Zusammenführen von Lookup-Werten samt Anpassung verknüpfter Datensätze<\/span><\/b><\/p>\n Dazu wählen Sie zunächst mit dem oberen Kombinationsfeld die Lookup- oder Mastertabelle aus – in diesem Fall die Tabelle tblKategorien<\/b>. Dies füllt automatisch die beiden folgenden Kombinationsfelder mit den Namen der Felder dieser Tabelle. Damit wählen Sie dann erst das Primärschlüsselfeld dieser Tabelle aus und dann das Lookup-Feld, also das Feld, dessen Daten etwa in Nachschlagefeldern angezeigt werden.<\/p>\n Die beiden darunter befindlichen Listenfelder liefern dann alle Datensätze der ausgewählten Lookup-Tabelle – und beide Listenfelder zeigen genau die gleichen Daten an.<\/p>\n Das ändert sich allerdings, wenn Sie ein oder mehrere Einträge des linken Listenfeldes auswählen. Dann verschwinden die dort markierten Einträge nämlich aus dem rechten Listenfeld. Der Grund ist einfach: Wir wollen ja kein Lookup-Feld in sich selbst übertragen.<\/p>\n Auf der rechten Seite markieren Sie dann die Kategorie, in welche die auf der linken Seite markierten Kategorien überführt werden sollen.<\/p>\n Nun kommen wir zu den Daten der Detailtabelle: Das erste Kombinationsfeld mit der Beschriftung Detailtabelle <\/b>ermöglicht die Auswahl der Tabelle, die mit der Lookup-Tabelle verknüpft ist und deren Daten im Fremdschlüsselfeld an die neue Kategorie angepasst werden sollen. Um die Verknüpfung genauer zu spezifizieren, wählen Sie mit dem folgenden Kombinationsfeld mit der Beschriftung Anzeigefeld<\/b> ein Feld aus, das den jeweiligen Datensatz beschreibt – hier also etwa Artikelname<\/b>. Diese Auswahl hat nur informativen Charakter, damit Sie in den unteren beiden Listenfeldern erkennen können, welche Datensätze der ausgewählten Tabelle mit den aktuell zum Zusammenführen markierten Kategorien verknüpft sind. Das dritte Kombinationsfeld mit der Beschriftung Fremdschlüsselfeld<\/b> wird auch tatsächlich zum überführen der Daten der Detailtabelle zum neuen Datensatz der Lookup-Tabelle benötigt. Damit geben Sie nämlich den Namen des Fremdschlüsselfeldes an, über das die Tabelle mit der Lookup-Tabelle verknüpft ist. Die unteren beiden Listenfelder zeigen nun die Datensätze der Detailtabelle, die mit den Datensätzen der Lookup-Tabellen aus den darüber ausgewählten Listenfeldern verknüpft sind.<\/p>\n Nach der Auswahl aller notwendigen Informationen klicken Sie einfach auf die Schaltfläche unten, deren Beschriftung dynamisch an die Einstellungen angepasst wird. Diese Schaltfläche sorgt für folgende Schritte:<\/p>\n Formular erstellen<\/b><\/p>\n Schauen wir uns nun an, wie das Formular erstellt wird und wie die enthaltenen Techniken funktionieren.<\/p>\n Alle Tabellen im Kombinationsfeld anzeigen<\/b><\/p>\n Für dieses Formular sind keine Einstellungen erforderlich, die etwa beim Laden durch eine Ereignisprozedur vorgenommen werden müssen. Die einzige Vorbereitung ist, dass Sie die Datensatzherkunft des Kombinationsfeldes cboMastertabelle <\/b>auf eine entsprechende Abfrage einstellen müssen (s. Bild 5).<\/p>\n Bild 5: Ausstatten des Kombinationsfeldes mit einer Datensatzherkunft<\/span><\/b><\/p>\n Diese sehen Sie in Bild 6. Diese Abfrage verwendet die Systemtabelle MSysObjects <\/b>als Datenherkunft und soll nur die Daten des Feldes Name <\/b>zurückliefern. Das Feld Type <\/b>dient lediglich zur Auswahl der richtigen Objekte aus dieser Tabelle. Die Typen 1<\/b>, 4 <\/b>und 6 <\/b>liefern alle Tabellenarten von Access, daher verwenden wir als Kriterium den Ausdruck IN (1, 4, 6)<\/b>.<\/p>\n Bild 6: Datensatzherkunft für das Kombinationsfeld cboMastertabelle<\/span><\/b><\/p>\n Lookup-Tabelle auswählen<\/b><\/p>\n Wenn der Benutzer einen der Einträge des Kombinationsfeldes cboMastertabelle <\/b>auswählt, löst dies das Ereignis Nach Aktualisierung <\/b>aus. Die dafür hinterlegte Ereignisprozedur finden Sie in Listing 1.<\/p>\n Listing 1: Füllen der Steuerelemente nach der Auswahl der Mastertabelle<\/span><\/b><\/p>\n Die Prozedur stellt zunächst zwei Eigenschaften des Kombinationsfeldes zur Auswahl des Primärschlüsselfeldes der zuvor bestimmten Tabelle namens cbo-Pri-maerschluesselfeld<\/b> ein. Die erste heißt RowSourceType <\/b>und legt mit dem Wert Field List <\/b>fest, dass die Felder einer mit der zweiten Eigenschaft RowSource <\/b>festgelegten Tabelle als Werte des Kombinationsfeldes angezeigt werden sollen. Diese Eigenschaft stellt die Prozedur logischerweise auf den Namen der soeben ausgewählten Tabelle ein. Damit zeigt das erste Kombinationsfeld schon einmal die Felder der ausgewählten Tabelle an (s. Bild 7).<\/p>\n <\/p>\n Bild 7: Anzeige der Felder der oben ausgewählten Tabelle per Kombinationsfeld<\/span><\/b><\/p>\n Die folgenden Anweisungen führen die gleichen Schritte für das zweite Kombinationsfeld cboLookupfeld<\/b> durch. Dieses Kombinationsfeld soll das Feld aufnehmen, dessen Werte die Lookup-Tabelle ausmachen. Schließlich folgt noch der Aufruf zwei weiterer Prozeduren, nämlich LookuplisteFuellen <\/b>und LookuplisteErsetzenFuellen<\/b>. Der Aufruf erfolgt in diesem Fall nur, damit die beiden Listenfelder lstLookupwerte<\/b> und lstLookupwerteErsetzen <\/b>geleert werden, wenn der Benutzer eine neue Tabelle auswählt – wir schauen uns die beiden Prozeduren weiter unten in Detail an.<\/p>\n Primärschlüsselfeld und Lookup-Feld auswählen<\/b><\/p>\n Die beiden folgenden Kombinationsfelder cboPrimaer-schlues-sel-feld<\/b> und cboLoo-kup-feld <\/b>sind nun mit den Feldern der im oberen Kombinationsfeld ausgewählten Tabelle gefüllt. Damit können Sie nun festlegen, welches der Felder die Aufgabe des Primärschlüsselfeldes und welches die des Lookupfeldes mit dem angezeigten Feld übernimmt. Die Auswahl dieses Feldes löst die Prozedur aus Listing 2 aus. Auch diese aktualisiert über die beiden Prozeduren LookuplisteFuellen <\/b>und LookuplisteErsetzenFuellen <\/b>die beiden darunter befindlichen Listenfelder. <\/p>\n Listing 2: Aktualisieren der Listenfelder durch cboPrimaerschluesselfeld<\/span><\/b><\/p>\n Das Kombinationsfeld cboLookupfeld<\/b> löst nach der Aktualisierung ebenfalls eine Ereignisprozedur aus, welche die gleichen Anweisungen enthält wie die von cboPrimaerschluesselfeld<\/b> ausgelöste (s. Listing 3).<\/p>\n Listing 3: Aktualisieren der Listenfelder durch cboLookupfeld<\/span><\/b><\/p>\n Füllen der Lookup-Liste<\/b><\/p>\n Damit wird es nun endgültig Zeit, einen Blick auf die Prozedur LookuplisteFuellen <\/b>zu werfen. Diese ist für das Füllen des linken Listenfeldes zur Anzeige des zu überführendenLookupdatensatzes verantwortlich. Die Prozedur finden Sie in Listing 4.<\/p>\n Listing 4: Füllen der Lookupliste<\/span><\/b><\/p>\n Sie prüft zunächst, ob für jedes der drei oberen Kombinationsfelder ein Eintrag ausgewählt wurde. Falls ja, stellt die Prozedur eine SELECT<\/b>-Abfrage zusammen, welche die beiden in den Kombinationsfeldern cboPrimaerschluesselfeld <\/b>und cboLookupfeld <\/b>angegebenen Felder der Tabelle aus cboMastertabelle <\/b>liefert. Für unser Beispiel sieht der so in der Variablen strSQL <\/b>gespeicherte Ausdruck nun wie folgt aus:<\/p>\n Dieser Abfrage wird nun über die Eigenschaft RowSource <\/b>als Datensatzherkunft des Listenfeldes lstLookupwerte <\/b>eingestellt. Sollte eines der drei Kombinationsfelder noch leer sein, leert die Prozedur auch das Listenfeld lstLookupwerte<\/b>, in dem sie die Eigenschaft RowSource <\/b>dieses Steuerelements auf eine leere Zeichenkette („“<\/b>) einstellt.<\/p>\n Ermitteln der zu überführenden Lookup-Datensätze<\/b><\/p>\n Nun wird es interessant: Die Prozedur LookuplisteErsetzenFuellen <\/b>soll die Einträge des Listenfeldes lstLookupwerteErsetzen <\/b>zusammenstellen (s. Listing 5). Normalerweise sollte man denken, dass man dort auch einfach alle Datensätze der Lookup-Tabelle einträgt. Allerdings sollen ja genau diejenigen Datensätze, die bereits als zu überführende Datensätze im linken Listenfeld markiert wurden, nicht als Ziel-Lookup-Datensätze angeboten werden. <\/p>\n Listing 5: Füllen der Listenfelder <\/span><\/b><\/p>\n Also müssen wir die dortigen Datensätze noch etwas weiter einschränken. Die Prozedur prüft wiederum, ob überhaupt alle drei der obigen Kombinationsfelder einen Wert enthalten. Falls ja, beginnt die Prozedur mit der Zusammenstellung des SQL-Ausdrucks, der als Datensatzherkunft für das Listenfeld dient. Die Basisabfrage sieht wieder genauso aus wie die für das linke Listenfeld. Dann folgt allerdings eine For Each<\/b>-Schleife, welche alle markierten Datensätze des linken Listenfeldes durchläuft. Diese werden über die Auflistung ItemsSelected <\/b>des Steuerelements bereitgestellt, welche jeweils den Index der markierten Einträge liefert. Diesen speichern wir mit jedem Schleifendurchlauf in der Variablen var<\/b>.<\/p>\n Wenn wir der ItemData<\/b>-Eigenschaft des Listenfeldes den Wert von var<\/b>, also den Index eines der markierten Einträge übergeben, erhalten wir den Wert der gebundenen Spalte zurück. Diesen speichern wir zusammen mit einem führenden Komma in einer String<\/b>-Variablen namens strLookupwerte<\/b>. Wenn der Benutzer mehrere Einträge markiert hat, also mehrere Kategorien zu der im rechten Listenfeld markierten Kategorie überführen möchte, entsteht auf diese Weise in strLookupwerte <\/b>ein Ausdruck wie der folgende:<\/p>\n Nach dem Durchlaufen aller markierten Einträge in der For Each<\/b>-Schleife prüft die Prozedur dann, ob die in strLookupwerte <\/b>gespeicherte Zeichenfolge länger als 0 <\/b>Zeichen ist. Falls ja, schneidet die folgende Anweisung mit der Mid<\/b>-Funktion die vorderen beiden Zeichen, also das Komma und das Leerzeichen ab, sodass diese Zeichenkette übrig bleibt:<\/p>\n Damit stellt die Prozedur dann den Rest der SQL-Abfrage zusammen und fügt diesen zu dem bereits in strSQL <\/b>gespeicherten Basisausdruck hinzu. Das Ergebnis sieht dann etwa wie folgt aus:<\/p>\n Diese Abfrage weist die Prozedur dann dem Listenfeld lstLookupwerteErsetzen <\/b>über die Eigenschaft RowSource <\/b>als Datensatzherkunft zu. Enthalten die zu Beginn der Prozedur geprüften drei Kombinationsfelder nicht alle einen Wert, stellt diese die Datensatzherkunft des Listenfeldes auf eine leere Zeichenkette ein.<\/p>\n Zu überführende Lookupwerte markieren<\/b><\/p>\n Damit Sie überhaupt mehrere Look-up-werte im linken Listenfeld namens lstLookupwerte markieren können, haben wir die Eigenschaft Mehrfachauswahl <\/b>dieses Steuerelements auf den Wert Einzeln <\/b>eingestellt (s. Bild 8). Je nach Ihren Wünschen können Sie hier auch die Einstellung Erweitert <\/b>vornehmen.<\/p>\n Bild 8: Vorbereitung des Listenfeldes auf die Mehrfachauswahl von Einträgen<\/span><\/b><\/p>\n Unabhängig davon, ob der Benutzer nun einen oder mehrere Listenfeldeinträge markiert, wird bei jeder änderung der markierten Einträge das Ereignis Nach Aktualisierung <\/b>des Listenfeldes ausgelöst und somit auch die Ereignisprozedur lstLook-up-werte_AfterUpdate<\/b> (s. Listing 6).<\/p>\n Listing 6: Aktualisieren der Auswahl im linken Listenfeld<\/span><\/b><\/p>\n Diese Prozedur ruft zunächst die weiter oben bereits beschriebene Prozedur LookuplisteErsetzenFuellen <\/b>auf, um im rechten Listenfeld die Einträge auszublenden, die im linken Listenfeld ausgewählt wurden.<\/p>\n Dann ruft sie eine weitere Prozedur namens DetaildateisaetzeFuellen <\/b>auf, um das linke Listenfeld im unteren Bereich des Formulars mit Daten zu füllen.<\/p>\n Dieses soll alle Datensätze der Detailtabelle liefern, welche über das angegebene Fremdschlüsselfeld mit den im Listenfeld ausgewählten Lookup-Werten verknüpft sind. Dies geschieht jedoch nur, wenn die Kombinationsfelder im unteren Bereich bereits einen Wert aufweisen – diese legen ja fest, in welcher Weise die verknüpften Detaildatensätze in den Listenfeldern dargestellt werden sollen.<\/p>\n Also schauen wir uns die Prozedur weiter unten an, nach dem wir die Kombinationfselder cboDetailtabelle<\/b>, cboAnzeigeFeld <\/b>und cboFremd-schlues-sel-feld <\/b>betrachtet haben.<\/p>\n Wenn der Benutzer nun einen Eintrag im rechten Listenfeld auswählt und damit festlegt, in welche Kategorie die Einträge des linken Listenfeldes überführt werden sollen, löst dies die folgende Prozedur aus. Diese ruft wiederum die Prozedur DetaildatensaetzeFuellen <\/b>auf, die wir später beschreiben.<\/p>\n Detailtabelle auswählen<\/b><\/p>\n Wenn der Benutzer festgelegt hat, welche die Lookup-Tabelle ist und welche Datensätze der Lookup-Tabelle in andere Lookup-Datensätze überführt werden sollen, geht es an die Konfiguration der Tabelle, die mit der Lookup-Tabelle verknüpft ist. In unserem Beispiel handelt es sich dabei um die Tabelle tblArtikel<\/b>, die über das Fremdschlüsselfeld KategorieID <\/b>mit dieser Tabelle verknüpft ist. Wenn der Benutzer die Detailtabelle mit dem Kombinationsfeld cboDetailtabelle <\/b>ausgewählt hat, löst er damit die folgende Ereignisprozedur aus:<\/p>\n Diese legt die Datensatzherkunft für die beiden folgenden Kombinationsfelder fest, die beide – wie bereits die beiden Kombinationsfelder im oberen Bereich – mit der Liste der verfügbaren Felder der mit cboDetailtabelle <\/b>ausgewählten Tabelle gefüllt werden. Danach ruft auch diese Routine wieder die Prozedur DetaildatensaetzeFuellen <\/b>auf.<\/p>\n Bevor wir diese beschreiben, schauen wir uns noch zwei weitere Prozeduren an, die diese Routine aufrufen – nämlich jene, die durch das Auswählen der Felder mit den Kombinationsfeldern cboAnzeigefeld <\/b>und cboFremdschluesselfeld <\/b>ausgelöst werden:<\/p>\n Detaildatensätze füllen<\/b><\/p>\n Die Prozedur DetaildatensaetzeFuellen <\/b>aus Listing 7 analysiert die Inhalte der beiden Listenfelder mit den zu überführenden Lookup-Werten sowie die betroffene Detailtabelle und zeigt dann in den zwei unteren Listenfeldern links die Daten an, die den zu überführenden Lookup-Einträgen zugeordnet sind und rechts die Daten, die zu dem Ziel-Look-up-Eintrag gehören.<\/p>\n Listing 7: Füllen der Listenfelder mit den Detaildatensätzen nach der Aktualisierung diverser Steuerelemente<\/span><\/b><\/p>\n Dabei durchläuft sie ähnlich wie die Prozedur LookuplisteErsetzenFuellen <\/b>die markierten Listenfeldeinträge und setzt daraus ein Kriterium zusammen, mit dem die mit den Kategorien verknüpften Datensätze der Detailtabelle ermittelt werden können. Das Gleiche geschieht parallel für die Einträge der Detailtabelle (hier die Artikel), die mit der Zielkategorie verknüpft sind. Dadurch sieht man schließlich in den unteren beiden Listenfeldern, welche Detail-Datensätze in der Zielkategorie zusammengeführt werden.<\/p>\n Lookup-Einträge zusammenführen<\/b><\/p>\n Fehlt nur noch die Ereignisprozedur, die durch das Anklicken der Schaltfläche cmdErsetzen <\/b>ausgelöst wird. Diese sieht wie in Listing 8 aus und durchläuft zunächst eine For Each<\/b>-Schleife über die zu überführenden Lookup-Einträge. Dabei setzt sie eine Liste der Primärschlüsselwerte der enthaltenen Einträge wie bereits weiter oben beschrieben zusammen. Damit formuliert sie eine UPDATE<\/b>-Abfrage, welche für alle Datensätze der Detailtabelle, die mit den zu überführenden Lookup-Werten verknüpft sind, den Wert des Fremdschlüsselfeldes auf den Primärschlüsselwert des Zieleintrags der Lookup-Tabelle einstellt. Diese sieht etwa so aus:<\/p>\n\n
![\"Verknüpfung](\"..\/fileadmin\/_temp_\/2014_04\/pic_946_002.png\")
<\/p>\n![\"Meldung](\"..\/fileadmin\/_temp_\/2014_04\/pic_946_003.png\")
<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2014_04\/pic_946_004.png\")
<\/p>\n\n
![\"Ausstatten](\"..\/fileadmin\/_temp_\/2014_04\/pic_946_005.png\")
<\/p>\n![\"Datensatzherkunft](\"..\/fileadmin\/_temp_\/2014_04\/pic_946_006.png\")
<\/p>\nPrivate Sub <\/span>cboMastertabelle_AfterUpdate()\r\n With<\/span> Me!cboPrimaerschluesselfeld\r\n .RowSourceType = \"Field List\"\r\n .RowSource = Me!cboMastertabelle\r\n End With<\/span>\r\n With<\/span> Me!cboLookupfeld\r\n .RowSourceType = \"Field List\"\r\n .RowSource = Me!cboMastertabelle\r\n End With<\/span>\r\n LookuplisteFuellen\r\n LookuplisteErsetzenFuellen\r\nEnd Sub<\/span><\/pre>\n![\"Anzeige](\"..\/fileadmin\/_temp_\/2014_04\/pic_946_007.png\")
<\/p>\nPrivate Sub <\/span>cboPrimaerschluesselfeld_AfterUpdate()\r\n LookuplisteFuellen\r\n LookuplisteErsetzenFuellen\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboLookupfeld_AfterUpdate()\r\n LookuplisteFuellen\r\n LookuplisteErsetzenFuellen\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>LookuplisteFuellen()\r\n Dim <\/span>strSQL As String<\/span>\r\n If <\/span>Not<\/span> Nz(Me!cboMastertabelle) = 0 And Not<\/span> Nz(Me!cboLookupfeld) = 0 _\r\n And Not<\/span> Nz(Me!cboPrimaerschluesselfeld) = 0 Then<\/span>\r\n strSQL = \"SELECT \" & Me!cboPrimaerschluesselfeld & \", \" _\r\n & Me!cboLookupfeld & \" FROM \" & Me!cboMastertabelle\r\n Me!lstLookupwerte.RowSource = strSQL\r\n Else<\/span>\r\n Me!lstLookupwerte.RowSource = \"\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nSELECT KategorieID, Kategoriename \r\nFROM tblKategorien<\/pre>\n
Private Sub <\/span>LookuplisteErsetzenFuellen()\r\n Dim <\/span>strSQL As String<\/span>\r\n Dim <\/span>var As Variant<\/span>\r\n Dim <\/span>strLookupwerte As String<\/span>\r\n If <\/span>Not<\/span> Nz(Me!cboMastertabelle) = 0 And Not<\/span> Nz(Me!cboLookupfeld) = 0 _\r\n And Not<\/span> Nz(Me!cboPrimaerschluesselfeld) = 0 Then<\/span>\r\n strSQL = \"SELECT \" & Me!cboPrimaerschluesselfeld & \", \" & Me!cboLookupfeld & \" FROM \" _\r\n & Me!cboMastertabelle\r\n For Each var In Me!lstLookupwerte.ItemsSelected\r\n strLookupwerte = strLookupwerte & \", \" & Me!lstLookupwerte.ItemData(var)\r\n Next<\/span> var\r\n If <\/span>Not<\/span> Len<\/span>(strLookupwerte) = 0 Then<\/span>\r\n strLookupwerte = Mid<\/span>(strLookupwerte, 3)\r\n strSQL = strSQL & \" WHERE \" & Me!cboPrimaerschluesselfeld & \" NOT IN (\" _\r\n & strLookupwerte & \")\"\r\n End If<\/span>\r\n Me!lstLookupwerteErsetzen.RowSource = strSQL\r\n Me!lstLookupwerteErsetzen = Null\r\n Else<\/span>\r\n Me!lstLookupwerteErsetzen.RowSource = \"\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n, 1, 4, 8<\/pre>\n
1, 4, 8<\/pre>\n
SELECT KategorieID, Kategoriename \r\nFROM tblKategorien \r\nWHERE KategorieID NOT IN (1, 4, 8)<\/pre>\n
![\"Vorbereitung](\"..\/fileadmin\/_temp_\/2014_04\/pic_946_008.png\")
<\/p>\nPrivate Sub <\/span>lstLookupwerte_AfterUpdate()\r\n LookuplisteErsetzenFuellen\r\n DetaildatensaetzeFuellen\r\n Me!cmdErsetzen.Caption = \"Linken Lookupwert durch rechten Lookupwert ersetzen\"\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>lstLookupwerteErsetzen_ AfterUpdate()\r\n DetaildatensaetzeFuellen\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboDetailtabelle_Click()\r\n With<\/span> Me!cboFremdschluesselfeld\r\n .RowSourceType = \"Field List\"\r\n .RowSource = Me!cboDetailtabelle\r\n End With<\/span>\r\n With<\/span> Me!cboAnzeigefeld\r\n .RowSourceType = \"Field List\"\r\n .RowSource = Me!cboDetailtabelle\r\n End With<\/span>\r\n DetaildatensaetzeFuellen\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboAnzeigefeld_Click()\r\n DetaildatensaetzeFuellen\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>cboFremdschluesselfeld_Click()\r\n DetaildatensaetzeFuellen\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>DetaildatensaetzeFuellen()\r\n Dim <\/span>strSQL As String<\/span>, var As Variant<\/span>, strLookupwerte As String<\/span>, strSQLZuErsetzen As String<\/span>\r\n If <\/span>Not<\/span> Nz(Me!cboDetailtabelle) = 0 And Not<\/span> Nz(Me!cboFremdschluesselfeld) = 0 _\r\n And Not<\/span> Nz(Me!cboAnzeigefeld) = 0 Then<\/span>\r\n strSQL = \"SELECT \" & Me!cboAnzeigefeld & \" FROM \" & Me!cboDetailtabelle\r\n For Each var In Me!lstLookupwerte.ItemsSelected\r\n strLookupwerte = strLookupwerte & \", \" & lstLookupwerte.ItemData(var)\r\n Next<\/span> var\r\n If <\/span>Not<\/span> Len<\/span>(strLookupwerte) = 0 Then<\/span>\r\n strLookupwerte = Mid<\/span>(strLookupwerte, 3)\r\n strSQL = strSQL & \" WHERE \" & Me!cboFremdschluesselfeld & \" IN(\" & strLookupwerte & \")\"\r\n End If<\/span>\r\n Me!lstDetaildaten.RowSource = strSQL\r\n strSQLZuErsetzen = \"SELECT \" & Me!cboAnzeigefeld & \" FROM \" & Me!cboDetailtabelle\r\n If <\/span>Not<\/span> IsNull(Me!lstLookupwerteErsetzen) Then<\/span>\r\n strSQLZuErsetzen = strSQLZuErsetzen & \" WHERE \" & Me!cboFremdschluesselfeld _\r\n & \" = \" & Me!lstLookupwerteErsetzen\r\n End If<\/span>\r\n Me!lstDetaildatenZuErsetzen.RowSource = strSQLZuErsetzen\r\n Else<\/span>\r\n Me!lstDetaildaten.RowSource = \"\"\r\n Me!lstDetaildatenZuErsetzen.RowSource = \"\"\r\n End If<\/span>\r\n Me!cmdErsetzen.Caption = \"Kategorie ''\" & Me!lstLookupwerte.Column(1) & \"'' durch Kategorie ''\" _\r\n & Me!lstLookupwerteErsetzen.Column(1) & \"'' ersetzen\"\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdErsetzen_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>var As Variant<\/span>\r\n Dim <\/span>strDetailtabelle As String<\/span>, strFremdschluesselfeld As String<\/span>\r\n Dim <\/span>lngAlterFremdschluesselwert As Long<\/span>, strAlteFremdschluesselwerte As String<\/span>\r\n Dim <\/span>lngNeuerFremdschluesselwert As Long<\/span>, strPrimaerschluesselfeld As String<\/span>\r\n Dim <\/span>strMastertabelle As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n strDetailtabelle = Me!cboDetailtabelle\r\n strFremdschluesselfeld = Me!cboFremdschluesselfeld\r\n strPrimaerschluesselfeld = Me!cboPrimaerschluesselfeld\r\n For Each var In Me!lstLookupwerte.ItemsSelected\r\n lngAlterFremdschluesselwert = Me!lstLookupwerte.ItemData(var)\r\n strAlteFremdschluesselwerte = strAlteFremdschluesselwerte & \", \" _\r\n & lngAlterFremdschluesselwert\r\n Next<\/span> var\r\n If <\/span>Not<\/span> Len<\/span>(strAlteFremdschluesselwerte) = 0 Then<\/span>\r\n strAlteFremdschluesselwerte = Mid<\/span>(strAlteFremdschluesselwerte, 3)\r\n End If<\/span>\r\n lngNeuerFremdschluesselwert = Me!lstLookupwerteErsetzen\r\n strMastertabelle = Me!cboMastertabelle\r\n db.Execute \"UPDATE \" & strDetailtabelle & \" SET \" & strFremdschluesselfeld & \" = \" _\r\n & lngNeuerFremdschluesselwert & \" WHERE \" & strFremdschluesselfeld & \" IN(\" _\r\n & strAlteFremdschluesselwerte & \")\", dbFailOnError\r\n db.Execute \"DELETE FROM \" & strMastertabelle & \" WHERE \" & strPrimaerschluesselfeld _\r\n & \" IN(\" & strAlteFremdschluesselwerte & \")\", dbFailOnError\r\n LookuplisteFuellen\r\n DetaildatensaetzeFuellen\r\nEnd Sub<\/span><\/pre>\n