Questione : Come fa il dedupe di I una tabella e generare una nuova tabella unendo i dupes in una singola annotazione?

Ciao gli esperti, il
I hanno una base di dati 2007 di Microsoft Access con una tabella che contiene gli indirizzi duplicati. Devo generare una nuova tabella che elimina gli indirizzi duplicati ma raccolgo i nomi dalle annotazioni che sarebbero cancellate e mettere in una singola annotazione. Così la tabella di risultato a volte ha potuto avere soltanto 1 o 2 campi di nome ed a volte può avere 4 o 5 o più campi di nome. Inoltre quando generano la nuova necessità della Tabella I di concatenare il names.
Not realmente sure come fare questo… Tutto l'aiuto sarebbe fantastic.

So che la tabella originale avrebbe avuta alcune annotazioni come questa: il
first_name, last_name, indirizzo, csz
Joe, Smith, 1234 via, Florida 32654
Patty, Jones, 1234 via, Florida 32654
Kevin, bassi, 1234 via, Florida 32654
Bill, Townsend, 4354 vicoli, New York NY 12345
Jane, Adams, 4354 vicoli, tabella del Palm Beach del Palm Beach del Palm Beach dell'uscita di New York NY 12345

The dovrebbe assomigliare a questa: il
full_name1, full_name2, full_name3, indirizzo, csz
Joe Smith, tortino Jones, Kevin si scola, 1234 via, Florida 32654
Bill Townsend, Jane Adams del Palm Beach, 4354 vicoli, New York NY 12345
class= del

Risposta : Come fa il dedupe di I una tabella e generare una nuova tabella unendo i dupes in una singola annotazione?

Allora costruire appena una tabella provvisoria che tiene TUTTI I nomi in un singolo campo, con un indirizzo:

Currentdb.Execute “selezionano l'indirizzo, csz in YourTempTable dall'indirizzo distinto prescelto, csz da YourExistingTable„

Ora aggiungere un campo di SendTo:

Currentdb.Execute “ALTERANO la TABELLA YourTempTable AGGIUNGONO il TESTO di SendTo della COLONNA (255)„

Ora sviluppare un recordset in cui potete collegare con tutti i nomi per un indirizzo specifico + un csz e concatenare i nomi:

Oscurare il rst come DAO.Recordset
Oscurare i rstNames come DAO.Recordset
Oscurare gli sNames come stringa

regolare il rst = Currentdb.OpenRecordset (“SELEZIONARE * A PARTIRE da YourTempTable„)

Fare fino a rst.EOF
  Regolare i rstNames = Currentdb.Openrecordset (“SELEZIONARE * A PARTIRE da YourExistingTable DOVE [indirizzo] = '„ & rst (“indirizzo„) &„ “E csz=„„ & rst (“csz„) &„ ') “
  sNames = ""
  Fare fino a rstNames.EOF
    sNames = sNames & vbCrLf & rstNames (“First_Name„) &„ “& rstNames (“Last_Name„)
    rstNames.movenext
  Ciclo
  rst. Pubblicare
  rst (“SendTo„) = sNames
  rst. Aggiornamento
Ciclo