Question : Comment vont-ils le dedupe d'I une table et créer une nouvelle table en combinant les dupes dans un disque simple ?

Bonjour les experts, le
I ont une base de données 2007 de Microsoft Access avec une table contenant des adresses doubles. Je dois créer une nouvelle table qui élimine les adresses doubles mais rassemble les noms des disques qui seraient supprimés et mettre dans un disque simple. Ainsi la table en résultant parfois a pu avoir seulement 1 ou 2 zones d'identification et parfois peut avoir 4 ou 5 zones d'identification ou plus. En outre en créant la nouvelle nécessité de Tableau I d'enchaîner le names.
Not vraiment sure comment faire ceci… N'importe quelle aide serait fantastic.

So que la table originale aurait quelques disques comme ceci : le
first_name, last_name, adresse, le csz
Joe, Smith, 1234 la rue, le Palm Beach la Floride 32654
Patty, Jones, 1234 la rue, le Palm Beach la Floride 32654
Kevin, bas, 1234 la rue, le Palm Beach la Floride 32654
Bill, Townsend, 4354 ruelles, New York NY 12345
Jane, Adams, 4354 ruelles, table de rendement de New York NY 12345

The devrait ressembler à ceci : le
full_name1, full_name2, full_name3, adresse, le csz
Joe Smith, pâté Jones, Kevin avale, 1234 la rue, le Palm Beach la Floride 32654
Bill Townsend, Jane Adams, 4354 ruelles, New York NY 12345
class= de

Réponse : Comment vont-ils le dedupe d'I une table et créer une nouvelle table en combinant les dupes dans un disque simple ?

Construire alors juste une table provisoire qui tient TOUS LES noms dans un domaine simple, avec une adresse :

Currentdb.Execute « choisissent l'adresse, le csz DANS YourTempTable d'adresse distincte choisie, csz de YourExistingTable »

Ajouter maintenant un champ de SendTo :

Currentdb.Execute « CHANGENT la TABLE YourTempTable AJOUTENT le TEXTE de SendTo de COLONNE (255) »

Établir maintenant un recordset où vous pouvez faire une boucle par tous les noms pour une adresse spécifique + un csz, et enchaîner les noms :

Obscurcir le rst comme DAO.Recordset
Obscurcir les rstNames comme DAO.Recordset
Obscurcir les sNames comme corde

placer le rst = le Currentdb.OpenRecordset (« CHOISIR * À PARTIR de YourTempTable »)

Faire jusqu'à rst.EOF
  Placer les rstNames = le Currentdb.Openrecordset (« CHOISIR * À PARTIR de YourExistingTable OÙ [adresse] = ' » et rst (« adresse ») et » « ET csz= » » et rst (le « csz ») et » ') « 
  sNames = ""
  Faire jusqu'à rstNames.EOF
    sNames = sNames et vbCrLf et rstNames (« First_Name ») et » « et rstNames (« Last_Name »)
    rstNames.movenext
  Boucle
  rst. Éditer
  rst (« SendTo ») = sNames
  rst. Mise à jour
Boucle