<\/p>\n
Wenn Sie mit Duplikaten arbeiten oder Daten aus mehreren Datenbanken zusammenführen möchten, kann ein Formular zum Abgleich ähnlicher Datensätze hilfreich sein. Dieses sollte die relevanten Felder beider Datensätze nebeneinanderstellen und dem Benutzer die Möglichkeit bieten, die Daten des einen, des anderen oder auch beider Datensätze in einen Datensatz zu überführen. Dieser Beitrag zeigt, wie Sie ein solches Formular erstellen und damit Datensätze abgleichen.<\/b><\/p>\n
Das gewünschte Formular soll wie in Bild 1 aussehen und jeweils die Feldnamen, die Werte der Zieltabelle und die Werte der Quelltabelle anzeigen. Der Benutzer soll alle Felder der Quelltabelle, alle Felder der Zieltabelle oder auch eine Mischung der Daten aus beiden Datensätzen auswählen können. Dies ist bereits die erste Hürde: Wie stellt man dies dar beziehungsweise welche Steuerelemente verwenden wir dafür<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2011_06\/DatenZusammenfuehrenPerFormular-web-images\/pic001.png\")
<\/p>\n
Bild 1: Das Formular zum Abgleichen von Datensätzen<\/span><\/b><\/p>\n Die naheliegendste Lösung wäre wohl gewesen, eine Reihe von Textfeldern nebeneinander zu platzieren und diese je nach Datenherkunft zu füllen. Diesmal haben wir uns jedoch für das Listenfeld entschieden – allein, weil es durch die mögliche Mehrfachmarkierung bereits eine wichtige Funktion mitbringt. Genau genommen sind es drei Listenfelder, die im Formular frmAbgleichDetails<\/b> ihren Dienst tun. Das erste enthält die Feldnamen, das zweite die Daten der Zieltabelle und das dritte die Daten der Quelltabelle. Ganz oben befindet sich noch ein Eintrag, mit dem der Benutzer per Mausklick alle Felder einer Spalte auswählen können soll.<\/p>\n Bevor wir auf die technischen Feinheiten dieser Lösung eingehen, schauen wir uns an, wie Sie das Formular einsetzen können. Der Aufruf erfordert nämlich eine Reihe von Informationen, die Sie dem Formular über das Öffnungsargument OpenArgs<\/b> übergeben. Der Aufruf sieht beispielsweise wie folgt aus:<\/p>\n Wenn wir uns den Wert für OpenArgs <\/b>allein ansehen, sieht das Ganze schon übersichtlicher aus:<\/p>\n Dort gibt es zunächst eine ganze Reihe von Informationen, die durch das Pipe-Zeichen voneinander getrennt werden. Dabei handelt es sich um die folgenden:<\/p>\n Erst wenn Sie für diese sieben Parameter sinnvolle Werte übergeben, zeigt das Formular die Daten zum Abgleich an.<\/p>\n Im vorliegenden Fall soll es den Datensatz mit dem Primärschlüsselwert 1 <\/b>der Zieltabelle tblLieferanten <\/b>und den Datensatz mit dem Primärschlüsselwert 77 <\/b>der (in einer anderen Datenbank befindlichen und verknüpften) Quelltabelle tblLieferanten1 <\/b>anzeigen, und davon die Felder LieferantID<\/b>, Firma<\/b>, Kontaktperson<\/b>, Position<\/b>, Strasse<\/b>, Ort<\/b>, Region<\/b>, PLZ<\/b>, Land<\/b>, Telefon<\/b>, Telefax <\/b>und Homepage<\/b>.<\/p>\n Nach diesem Aufruf erscheint das Formular und zeigt den gewünschten Datensatz an. Sie können nun die Feldinhalte auswählen und das Formular mit einem Klick auf die Schaltfläche OK <\/b>schließen. Das Formular übernimmt nur die Darstellung und Markierung der gewünschten Daten, den Code zum Auslesen der gewählten Daten müssen Sie wie die Anweisung zum Öffnen des Formulars selbst bereitstellen.<\/p>\n In einem einfachen Beispiel sieht das wie in Listing 1<\/a><\/span> aus. Hier werden die beiden zu vergleichenden Datensatzgruppen geöffnet und per Recordset<\/b>-Variable referenziert. Die Prozedur durchläuft die Datensätze der Quelltabelle und prüft, ob es in der Zieltabelle bereits einen Datensatz mit dem gleichen Wert im Feld Firma <\/b>gibt. Falls nicht, wird der Datensatz zur Zieltabelle hinzugefügt, falls doch, tritt unser Formular für den Datenabgleich auf den Plan.<\/p>\n Listing 1: Abgleich zweier Datensätze mit Untersuchung im Formular durchführen<\/p>\n In diesem Fall wird dieses mit einigen variablen Parametern geöffnet, namentlich den Primärschlüsselfeldern der beiden zu vergleichenden Datensätze, die ja mit jedem Satz zu vergleichender Datensätze wechseln. Der Primärschlüsselwert des Zieldatensatzes wurde dazu bereits vorher in der Variablen lngZielID <\/b>gespeichert, der Quelldatensatzwert wird direkt aus dem Datensatz eingelesen.<\/p>\n Nun öffnet sich das Formular und der Benutzer legt fest, welches Feld mit welchem Wert der beiden Datensätze gefüllt werden soll. Danach klickt er auf OK <\/b>und sorgt dafür, dass das Formular unsichtbar wird und somit den Fokus verliert.<\/p>\n Da es als modaler Dialog geöffnet wurde, läuft die aufrufende Prozedur erst jetzt weiter. Nach einer Prüfung, ob das Formular frmAbgleichDetails <\/b>noch geöffnet ist, werden die Daten entsprechend den Angaben im Formular in den Zieldatensatz geschrieben. Das unsichtbare, aber noch nicht geschlossene Formular bietet eine Funktion namens Wert <\/b>an, die den Namen eines Feldes erwartet und den ausgewählten Wert zurückliefert.<\/p>\n Die Prozedur sucht den Zieldatensatz aus der Datensatzgruppe heraus und schreibt die im Formular ausgewählten Werte in die jeweiligen Felder des Datensatzes.<\/p>\n Nach dem Aktualisieren des Datensatzes wird das Formular nun endgültig geschlossen und der nächste Datensatz der Quelltabelle wird untersucht. Wenn alle Datensätze durchlaufen wurden, ist der Vorgang abgeschlossen. <\/p>\n <\/p>\n Aufbau des Formulars<\/b><\/p>\n Schauen wir uns nun an, was dafür sorgt, dass Sie mit dem Formular so komfortabel die Werte für den Zieldatensatz auswählen können. Die erste bemerkenswerte Tatsache ist, dass es dort scheinbar drei Listenfelder gibt, durch die Sie mit einer einzigen Bildlaufleiste scrollen können. Wie funktioniert das Nun, es ist ganz einfach: Die drei Listenfelder befinden sich in einem Unterformular, das die Bildlaufleiste bereitstellt.<\/p>\n Damit immer alle Felder der beiden Tabellen in die Listenfelder passen, haben wir diese ausreichend hoch dimensioniert – und bei Bedarf können Sie die Größe auch noch selbst anpassen.<\/p>\n Bild 2 zeigt das Unterformular mit den drei Listenfeldern lstFelder<\/b>, lstZieltabelle <\/b>und lstQuelltabelle<\/b>.<\/p>\n Bild 3: Aufbau des gesamten Formulars mit Unterformular und Listenfeldern<\/span><\/b><\/p>\n Die beiden rechten Listenfelder sollen die Mehrfachauswahl ermöglichen, daher stellen Sie die Eigenschaft Mehrfachauswahl <\/b>auf Einzeln <\/b>ein.<\/p>\n Das linke Listenfeld soll nur die Zeilenbeschriftungen mit den Feldnamen stellen. Daher stellen wir seine Eigenschaft Rahmenart<\/b> auf Transparent <\/b>ein.<\/p>\n Alle drei Listenfelder beziehen ihre Daten später aus Wertlisten, die beim Öffnen des Formulars zusammengestellt werden. Stellen Sie daher die Eigenschaft Herkunftsart <\/b>der drei Listenfelder jeweils auf den Wert Wertliste <\/b>ein.<\/p>\n Bild 3 stellt dar, wie das Unterformular mit den drei Listenfeldern in das Hauptformular integriert wird. Neben dem Unterformular finden Sie dort einige Beschriftungsfelder sowie Schaltflächen. Deren Bedeutung betrachten wir später.<\/p>\n Bild 2: Unterformular mit den Listenfeldern zur Anzeige der abzugleichenden Daten<\/span><\/b><\/p>\n Listenfelder füllen<\/p>\n Die erste Aufgabe ist das Füllen der Listenfelder auf Basis der mit dem Öffnungsargument übergebenen Informationen. Diese Aufgabe übernimmt die Prozedur, die beim Laden des Formulars ausgelöst wird. Bevor wir uns diese ansehen, noch ein Hinweis zum Zugriff auf die beiden Listenfelder mit den Daten der abzugleichenden Datensätze: Da zwischen den beiden Listenfeldern und auch zwischen Hauptformular und Listenfeldern eine Menge Kommunikation nötig ist, haben wir der Einfachheit halber zwei Objektvariablen in das Klassenmodul des Hauptformulars gelegt, welche die beiden Listenfelder referenzieren. Die notwendigen Objektvariablen werden so deklariert:<\/p>\n Das Schlüsselwort WithEvents <\/b>sorgt dafür, dass wir auch die Ereignisprozeduren der mit diesen Variablen referenzierten Steuerelemente im Klassenmodul des Hauptformulars behandeln können.<\/p>\n Die Prozedur Form_Load <\/b>aus Listing 2<\/a><\/span> deklariert zunächst eine Variablen. Danach weist sie den beiden Objektvariablen lstZieltabelle <\/b>und lstQuelltabelle <\/b>die entsprechenden Steuerelemente des Unterformulars zu. Außerdem legt sie fest, dass das Ereignis Nach Aktualisierung <\/b>dieser beiden Steuerelemente im aktuellen Klassenmodul berücksichtigt werden soll. Zu den betroffenen Ereignisprozeduren kommen wir weiter unten.<\/p>\n Listing 2: Anzeigen der abzugleichenden Daten im Formular frmAbgleichDetails<\/p>\n Danach werden die einzelnen Bestandteile des Öffnungsarguments in verschiedene Variablen eingelesen. Der Zugriff auf die durch das Pipe-Zeichen getrennten Werte erfolgt über die Split-Funktion, die ein Array der durch das angegebene Zeichen getrennten Zeichenketten erzeugt. Durch Angabe des Indexes erhalten Sie Zugriff auf das entsprechende Element des Arrays.<\/p>\n Mit diesen Informationen erzeugt die Prozedur zwei Datensatzgruppen, die jeweils einen Datensatz enthalten: den Quell- und den Zieldatensatz.<\/p>\n In einer For…Next<\/b>-Schleife durchläuft die Prozedur dann alle im letzten Teil des Öffnungsarguments angegebenen Feldnamen. Dies erfolgt wiederum durch Zwischenlagern der durch Semikola getrennten Liste in einem Array und anschließendes Abrufen der einzelnen Elemente durch Angabe des Indexes.<\/p>\n Innerhalb der Schleife wird eine ebenfalls durch Semikola getrennte Liste der Feldwerte der beiden Datensätze erzeugt.<\/p>\n Damit haben wir nun alle Informationen, die zum Füllen der Listenfelder benötigt werden: Die Liste der Felder, die der Werte der Quelltabelle und die Werte der Zieltabelle.<\/p>\n Alle drei Wertlisten werden in den folgenden Anweisungen an die Eigenschaft Datensatzherkunft <\/b>der Listenfelder übergeben. Dem Listenfeld zur Anzeige der Felder stellen wir dabei ein leeres Feld voran, die beiden übrigen werden um einen Eintrag mit dem Wert [Alle auswählen] <\/b>ergänzt.<\/p>\n Beim Öffnen des Formulars sollen zunächst alle Einträge der Zieltabelle markiert sein, weshalb in einer weiteren For…Next<\/b>-Schleife alle Elemente des entsprechenden Listenfeldes selektiert werden.<\/p>\n Damit die nachfolgend aufgerufenen Prozeduren diesen Zustand einfach abfragen können, wird die Variable bolZielAlle <\/b>auf den Wert True <\/b>und bolQuelleAlle <\/b>auf False <\/b>eingestellt.<\/p>\n Diese beiden Variablen werden im Kopf des Klassenmoduls des Formulars wie folgt deklariert:<\/p>\n Werte aus Quelle und Ziel zusammenstellen<\/b><\/p>\n Wenn der Benutzer auf einen Eintrag der Quelltabelle klickt, der zuvor noch nicht markiert war, soll dieser markiert werden. Im gleichen Zuge soll der entsprechende Eintrag der Liste der Zieltabelle automatisch abgewählt werden. Gleiches gilt für den umgekehrten Fall: Wenn der Benutzer einen der Werte der Zieltabelle anklickt, soll dieser markiert und der entsprechende Wert der Quelltabelle abgewählt werden.<\/p>\n Auch ein Klick auf ein markiertes Feld soll den Wechsel des aktuell markierten Eintrags bewirken. Bleibt noch die Funktion der ganz oben befindlichen Einträge mit der Bezeichnung [Alle auswählen]<\/b>: Diese sorgen bei Mausklick dafür, dass alle jeweils darunter befindlichen Einträge markiert werden.<\/p>\n Klickt der Benutzer auf einen beliebigen Eintrag mit einem Feldwert, sollen die Einträge [Alle auswählen] <\/b>deaktiviert werden.<\/p>\nDoCmd.OpenForm \"frmAbgleichDetails\", _\r\nOpenArgs:=\"LieferantID|LieferantID|1|77|tblLieferanten|tblLieferanten1|LieferantID;\r\nFirma;Kontaktperson;Position;Strasse;Ort;Region;PLZ;\r\nLand;Telefon;Telefax;Homepage\", WindowMode:=acDialog<\/pre>\n
LieferantID|LieferantID|1|77|tblLieferanten|tblLieferanten1|LieferantID;Firma;\r\nKontaktperson;Position;Strasse;Ort;Region;PLZ;Land;Telefon;Telefax;Homepage<\/pre>\n
\n
Public Sub DatenZusammenfuehren_Lieferanten_MitAbgleich()\r\n Dim db As DAO.Database\r\n Dim rstQuelle As DAO.Recordset, rstZiel As DAO.Recordset\r\n Dim lngZielID As Long\r\n Set db = CurrentDb\r\n Set rstQuelle = db.OpenRecordset(\"SELECT * FROM tblLieferanten1\", dbOpenDynaset)\r\n Set rstZiel = db.OpenRecordset(\"SELECT * FROM tblLieferanten\", dbOpenDynaset)\r\n db.Execute \"DELETE FROM tblPKAltUndNeu\", dbFailOnError\r\n Do While Not rstQuelle.EOF\r\n lngZielID = Nz(DLookup(\"LieferantID\", \"tblLieferanten\", \"Firma = ''\" _\r\n & Replace(rstQuelle!Firma, \"''\", \"''''\") & \"''\"))\r\n If lngZielID = 0 Then\r\n rstZiel.AddNew\r\n rstZiel!Firma = rstQuelle!Firma\r\n ''... weitere Felder\r\n lngZielID = rstZiel!LieferantID\r\n rstZiel.Update\r\n Else\r\n DoCmd.Close acForm, \"frmAbgleichDetails\"\r\n DoCmd.OpenForm \"frmAbgleichDetails\", OpenArgs:=\"LieferantID|LieferantID|\" & lngZielID _\r\n & \"|\" & rstQuelle!LieferantID & \"|tblLieferanten|tblLieferanten1|LieferantID;\" _\r\n & \"Firma;Kontaktperson;Position;Strasse;Ort;Region;PLZ;Land;Telefon;Telefax;\" _\r\n & \"Homepage\", windowMode:=acDialog\r\n If mdlTools_Abgleich.IstFormularGeoeffnet(\"frmAbgleichDetails\") Then\r\n rstZiel.FindFirst \"LieferantID = \" & lngZielID\r\n rstZiel.Edit\r\n rstZiel!Firma = Forms!frmAbgleichDetails.Wert(\"Firma\")\r\n rstZiel!Kontaktperson = Forms!frmAbgleichDetails.Wert(\"Kontaktperson\")\r\n ''... weitere Felder\r\n lngZielID = Forms!frmAbgleichDetails.Wert(\"LieferantID\")\r\n rstZiel.Update\r\n DoCmd.Close acForm, \"frmAbgleichDetails\"\r\n End If\r\n End If\r\n rstQuelle.MoveNext\r\n Loop\r\n Set db = Nothing\r\nEnd Sub<\/pre>\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2011_06\/DatenZusammenfuehrenPerFormular-web-images\/pic003.png\")
<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2011_06\/DatenZusammenfuehrenPerFormular-web-images\/pic002.png\")
<\/p>\nDim WithEvents lstZieltabelle As Listbox\r\nDim WithEvents lstQuelltabelle As Listbox<\/pre>\n
Private Sub Form_Load()\r\n Dim db As DAO.Database\r\n Dim rstQuelle As DAO.Recordset, rstZiel As DAO.Recordset\r\n Dim strQuelltabelle As String, strZieltabelle As String\r\n Dim strPKQuelle As String, strPKZiel As String\r\n Dim varIDQuelle As Variant, varIDZiel As Variant\r\n Dim strOpenArgs As String\r\n Dim strFelder As String\r\n Dim strWerteQuelle As String, strWerteZiel As String\r\n Dim i As Integer\r\n Set db = CurrentDb\r\n Set lstZieltabelle = Me!sfm.Form!lstZieltabelle\r\n lstZieltabelle.AfterUpdate = \"[Event Procedure]\"\r\n Set lstQuelltabelle = Me!sfm.Form!lstQuelltabelle\r\n lstQuelltabelle.AfterUpdate = \"[Event Procedure]\"\r\n strOpenArgs = Me.OpenArgs\r\n strPKZiel = Split(strOpenArgs, \"|\")(0)\r\n strPKQuelle = Split(strOpenArgs, \"|\")(1)\r\n varIDZiel = Split(strOpenArgs, \"|\")(2)\r\n varIDQuelle = Split(strOpenArgs, \"|\")(3)\r\n strZieltabelle = Split(strOpenArgs, \"|\")(4)\r\n strQuelltabelle = Split(strOpenArgs, \"|\")(5)\r\n strFelder = Split(strOpenArgs, \"|\")(6)\r\n Set rstQuelle = db.OpenRecordset(\"SELECT \" & Replace(strFelder, \";\", \",\") & \" FROM \" _\r\n & strQuelltabelle & \" WHERE \" & strPKQuelle & \" = \" & varIDQuelle, dbOpenDynaset)\r\n Set rstZiel = db.OpenRecordset(\"SELECT \" & Replace(strFelder, \";\", \",\") & \" FROM \" _\r\n & strZieltabelle & \" WHERE \" & strPKZiel & \" = \" & varIDZiel, dbOpenDynaset)\r\n For i = LBound(Split(strFelder, \";\")) To UBound(Split(strFelder, \";\"))\r\n strWerteQuelle = strWerteQuelle & \";\" & rstQuelle(Split(strFelder, \";\")(i))\r\n strWerteZiel = strWerteZiel & \";\" & rstZiel(Split(strFelder, \";\")(i))\r\n Next i\r\n Me!sfm.Form!lstFelder.RowSource = \";\" & strFelder\r\n strWerteQuelle = \"[Alle auswählen]\" & strWerteQuelle\r\n strWerteZiel = \"[Alle auswählen]\" & strWerteZiel\r\n lstQuelltabelle.RowSource = strWerteQuelle\r\n lstZieltabelle.RowSource = strWerteZiel\r\n bolZielAlle = True\r\n bolQuelleAlle = False\r\n For i = 0 To lstZieltabelle.ListCount\r\n lstZieltabelle.Selected(i) = True\r\n Next i\r\nEnd Sub<\/pre>\n
Dim bolQuelleAlle As Boolean\r\nDim bolZielAlle As Boolean<\/pre>\n