Cuestión : ¿Cómo hace el dedupe de I una tabla y crear una nueva tabla combinando a los incautos en un solo expediente?

Hola los expertos,
I tienen una base de datos 2007 de Microsoft Access con una tabla que contiene direcciones duplicados. Necesito crear una nueva tabla que elimine las direcciones duplicados pero recojo los nombres de los expedientes que serían suprimidos y poner en un solo expediente. Tan la tabla resultante a veces podía tener solamente 1 o 2 campos conocidos y a veces puede tener 4 o 5 o más campos conocidos. También al crear la nueva necesidad de la Tabla I de concatenar el names.
Not realmente sure cómo hacer esto… Cualquier ayuda sería fantastic.

So que la tabla original tendría algunos expedientes como esto: el
first_name, last_name, dirección, csz
Joe, Smith, 1234 calle, Palm Beach la Florida 32654
Patty, Jones, 1234 calle, Palm Beach la Florida 32654
Kevin, llanuras, 1234 calle, Palm Beach la Florida 32654
Bill, Townsend, 4354 carriles, Nueva York NY 12345
Jane, Adams, 4354 carriles, tabla de la salida de Nueva York NY 12345

The debe parecer esto: el
full_name1, full_name2, full_name3, dirección, csz
Joe Smith, empanada Jones, Kevin traga, 1234 la calle, Palm Beach la Florida 32654
Bill Townsend, Jane Adams, 4354 carriles, Nueva York NY 12345
class= del

Respuesta : ¿Cómo hace el dedupe de I una tabla y crear una nueva tabla combinando a los incautos en un solo expediente?

Entonces apenas construir una tabla temporal que lleve a cabo TODOS LOS nombres en un solo campo, junto con una dirección:

Currentdb.Execute “seleccionan la dirección, csz EN YourTempTable de la dirección distinta selecta, csz de YourExistingTable”

Ahora agregar un campo de SendTo:

Currentdb.Execute “ALTERAN la TABLA YourTempTable AGREGAN el TEXTO de SendTo de la COLUMNA (255)”

Ahora construir un recordset donde usted puede colocar con todos los nombres para una dirección específica + un csz, y concatenar los nombres:

Amortiguar el rst como DAO.Recordset
Amortiguar los rstNames como DAO.Recordset
Amortiguar los sNames como secuencia

fijar el rst = Currentdb.OpenRecordset (“SELECCIONAR * de YourTempTable”)

Hacer hasta rst.EOF
  Fijar los rstNames = Currentdb.Openrecordset (“SELECCIONAR * de YourExistingTable DONDE [dirección] = '” y rst (“dirección”) y” “Y csz=”” y rst (el “csz”) y” ') “
  sNames = ""
  Hacer hasta rstNames.EOF
    sNames = sNames y vbCrLf y rstNames (“First_Name”) y” “y rstNames (“Last_Name”)
    rstNames.movenext
  Lazo
  rst. Corregir
  rst (“SendTo”) = sNames
  rst. Actualización
Lazo