Вопрос : Как делает dedupe I таблица и создать новую таблицу путем совмещать dupes в одиночный показатель?

Здравствулте! специалисты,
I имеют базу данных 2007 доступа Майкрософт при таблица содержа двойной адресы. Мне нужно создать новую таблицу исключает двойной адресы но собираю имена от показателей были бы уничтожены и положить в одиночный показатель. Так приводя к таблица иногда smogла иметь только 1 или 2 названных поля и иногда может иметь 4 или 5 или больше названных полей. Также создавая новую таблицу мне нужно конкатенировать names.
Not реально конечно как сделать это… Любой помощью было бы fantastic.

So первоначально, котор таблица имела бы немного показателей как это:
first_name, last_name, адрес, csz
Joe, Smith, 1234 улица, Палм Беачю FL 32654
Patty, Jones, 1234 улица, Палм Беачю FL 32654
Kevin, спуски, 1234 улица, Палм Беачю FL 32654
Bill, Townsend, 4354 майны, нью-йорк NY 12345
Jane, Adams, 4354 майны, таблица выхода нью-йорка NY 12345

The должно посмотреть как это:
full_name1, full_name2, full_name3, адрес, csz
Joe Smith, пирожок Jones, Кевин опускает, 1234 улица, Палм Беачю FL 32654
Bill Townsend, Джейн Adams, 4354 майны, нью-йорк NY 12345
class=

Ответ : Как делает dedupe I таблица и создать новую таблицу путем совмещать dupes в одиночный показатель?

После этого как раз построьте временно таблицу держит ВСЕ имена в одиночном поле, вместе с адресом:

Currentdb.Execute «выбирают адрес, csz В YourTempTable ОТ отборного определенного адреса, csz ОТ YourExistingTable»

Теперь добавьте поле SendTo:

Currentdb.Execute «ИЗМЕНЯЮТ ТАБЛИЦУ YourTempTable ДОБАВЛЯЮТ ТЕКСТ SendTo КОЛОНКИ (255)»

Теперь построьте recordset где вы можете закрепить петлеть через все имена для специфически адреса + csz, и конкатенируйте имена:

Затемните rst как DAO.Recordset
Затемните rstNames как DAO.Recordset
Затемните sNames как шнур

установите rst = Currentdb.OpenRecordset («ВЫБЕРИТЕ * ОТ YourTempTable»)

Не сделать до rst.EOF
  Установите rstNames = Currentdb.Openrecordset («ВЫБЕРИТЕ * ОТ YourExistingTable ГДЕ [адрес] = '» & rst («адрес») &» «И csz=»» & rst («csz») &» ') «
  sNames = ""
  Не сделать до rstNames.EOF
    sNames = sNames & vbCrLf & rstNames («First_Name») &» «& rstNames («Last_Name»)
    rstNames.movenext
  Петля
  rst. Редактируйте
  rst («SendTo») = sNames
  rst. Уточнение
Петля