Frage : Wie tun I dedupe eine Tabelle und eine neue Tabelle herzustellen, indem es die Betrogenen in eine einzelne Aufzeichnung kombiniert?

Hallo haben Experten,
I eine Microsoft Access-Datenbank 2007 mit einer Tabelle, die doppelte Adressen enthält. Ich muss eine neue Tabelle herstellen, die die doppelten Adressen beseitigt, aber sammele die Namen von den Aufzeichnungen, die und in eine einzelne Aufzeichnung zu setzen gelöscht. So konnte die resultierende Tabelle nur 1 manchmal haben oder 2 Namensfelder und kann 4 manchmal haben oder 5 oder mehr Namensfelder. Auch, wenn die neue Tabelle Inotwendigkeit verursacht, das names.
Not wirklich sure zu verketten, wie man tut dies… Jede mögliche Hilfe sein fantastic.

So, welches die ursprüngliche Tabelle einige Aufzeichnungen so haben:
first_name, last_name, Adresse, csz
Joe, Smith, 1234 Straße, Palm Beach Florida 32654
Patty, Jones, 1234 Straße, Palm Beach Florida 32654
Kevin, Abstiege, 1234 Straße, Palm Beach Florida 32654
Bill, Townsend, 4354 Weg, New York NY 12345
Jane, Adams, 4354 Weg, Ausgangstabelle New- YorkNY 12345

The sollte wie dieses aussehen:
full_name1, full_name2, full_name3, Adresse, csz
Joe Smith, Pastetchen Jones, Kevin niederwirft, 1234 Straße, Palm Beach Florida 32654
Bill Townsend, Jane Adams, 4354 Weg, New York NY 12345
354

Antwort : Wie tun I dedupe eine Tabelle und eine neue Tabelle herzustellen, indem es die Betrogenen in eine einzelne Aufzeichnung kombiniert?

Eine temporäre Tabelle, die ALLE Namen in einem einzelnen Feld hält, zusammen mit einer Adresse dann einfach errichten:

Currentdb.Execute „vorwählen Adresse, csz IN YourTempTable von der auserwählten eindeutigen Adresse, csz VON YourExistingTable“

Ein SendTo Feld jetzt addieren:

Currentdb.Execute „ÄNDERN TABELLE YourTempTable ADDIEREN SPALTE SendTo TEXT (255)“

Ein recordset jetzt errichten, in dem Sie durch alle Namen für eine spezifische Adresse + ein csz schlingen können, und die Namen verketten:

Rst als DAO.Recordset verdunkeln
rstNames als DAO.Recordset verdunkeln
sNames als Schnur verdunkeln

rst = Currentdb.OpenRecordset einstellen („* VON YourTempTable VORWÄHLEN“)

Bis rst.EOF tun
  rstNames = Currentdb.Openrecordset einstellen („* VON YourExistingTable VORWÄHLEN, WO [Adresse] = '“ u. rst („Adresse“) u.“ „UND csz=““ u. rst („csz“) u.“ ') „
  sNames = ""
  Bis rstNames.EOF tun
    sNames = sNames u. vbCrLf u. rstNames („First_Name“) u.“ „u. rstNames („Last_Name“)
    rstNames.movenext
  Schleife
  rst. Redigieren
  rst („SendTo“) = sNames
  rst. Update
Schleife