Pergunta : Como faz o dedupe de I uma tabela e para criar uma tabela nova combinando os internegativo em um único registro?

Olá! os peritos,
I têm uma base de dados 2007 de Microsoft Access com uma tabela que contem endereços duplicados. Eu preciso de criar uma tabela nova que elimine os endereços duplicados mas coleto os nomes dos registros que seriam suprimidos e para põr em um único registro. Assim a tabela resultante às vezes podia ter somente 1 ou 2 campos conhecidos e às vezes pode ter 4 ou 5 ou mais campos conhecidos. Igualmente ao criar a tabela nova eu preciso de concatenar realmente sure o names.
Not como fazer isto… Toda a ajuda seria fantastic.

So que a tabela original teria alguns registros como esta: o
first_name, last_name, endereço, csz
Joe, Smith, 1234 rua, Palm Beach FL 32654
Patty, Jones, 1234 rua, Palm Beach FL 32654
Kevin, penas, 1234 rua, Palm Beach FL 32654
Bill, Townsend, 4354 pistas, New York NY 12345
Jane, Adams, 4354 pistas, tabela da saída de New York NY 12345

The deve olhar como esta: o
full_name1, full_name2, full_name3, endereço, csz
Joe Smith, rissol Jones, Kevin traga, 1234 a rua, Palm Beach FL 32654
Bill Townsend, Jane Adams, 4354 pistas, New York NY 12345
class= do

Resposta : Como faz o dedupe de I uma tabela e para criar uma tabela nova combinando os internegativo em um único registro?

Então apenas construir uma tabela provisória que prenda TODOS OS nomes em um único campo, junto com um endereço:

Currentdb.Execute “selecionam o endereço, csz em YourTempTable do endereço distinto seleto, csz de YourExistingTable”

Adicionar agora um campo de SendTo:

Currentdb.Execute “ALTERAM a TABELA YourTempTable ADICIONAM o TEXTO de SendTo da COLUNA (255)”

Construir agora um recordset onde você possa dar laços com todos os nomes para um endereço específico + um csz, e concatenar os nomes:

Escurecer o rst como DAO.Recordset
Escurecer rstNames como DAO.Recordset
Escurecer sNames como a corda

ajustar o rst = o Currentdb.OpenRecordset (“SELECIONAR * de YourTempTable”)

Fazer até rst.EOF
  Ajustar rstNames = Currentdb.Openrecordset (“SELECIONAR * de YourExistingTable ONDE [endereço] = '” & rst (“endereço”) &” “E csz=”” & rst (o “csz”) &” ') “
  sNames = ""
  Fazer até rstNames.EOF
    sNames = sNames & vbCrLf & rstNames (“First_Name”) &” “& rstNames (“Last_Name”)
    rstNames.movenext
  Laço
  rst. Editar
  rst (“SendTo”) = sNames
  rst. Atualização
Laço