Fråga : Hur I-dedupe bordlägger, och att skapa ett nytt bordlägga, genom att kombinera lättlurad person in i ett singelrekord?

Hälsningexperter,
I har en Microsoft Accessdatabas 2007 med en bordlägga som innehåller dubblett, tilltalar. Jag behöver att skapa ett nytt bordlägger som avlägsnar dubblett tilltalar men samlar namnger från rekorden, som skulle tas bort och sätts in i ett singelrekord. Så resultera bordlägger ibland kunde ha endast 1, eller kända 2 sätter in och ibland kan ha 4, eller kända 5 eller mer sätter in. När också du skapar det nytt, bordlägga mig behöver att länka samman names.Not egentligen sure hur man gör detta…, Någon skulle hjälp är fantastic.

So som original bordlägger skulle har några rekord att gilla detta:
first_name, last_name, tilltalar, csz
Joe, smeden, 1234 gatan, Palm Beach FL 32654
Patty, Jones, 1234 gatan, Palm Beach FL 32654
Kevin, besegrar, 1234 gatan, Palm Beach FL 32654
Bill, Townsend, 4354 Lane, New York NY 12345
Jane, Adams, 4354 Lane, tillverkade New York NY 12345

The bordlägger bör se likt detta:
full_name1, full_name2, full_name3, tilltalar, smeden för csz
Joe, liten pastej Jones, Kevin besegrar, 1234 gatan, Palm Beach FL 32654
Bill Townsend, Jane Adams, 4354 Lane, New York NY 12345
" klar "

Svar : Hur I-dedupe bordlägger, och att skapa ett nytt bordlägga, genom att kombinera lättlurad person in i ett singelrekord?

Därefter bygg precis ett tillfälligt bordlägger som rymmer alla namnger i en singel sätter in, tillsammans med en tilltala:

Valda Currentdb.Execute ”tilltalar, csz IN I YourTempTable FRÅN valt distinkt tilltalar, csz FRÅN YourExistingTable”,

Tillfoga nu en SendTo sätter in:

Currentdb.Execute ”FÖRÄNDRAR SIG BORDLÄGGER YourTempTable TILLFOGAR KOLONNSendTo TEXT (255)”,

Bygg nu en recordset var alla du kan kretsa till och med namnger för en närmare detalj tilltalar + csz och länkar samman namnger:

Dunkel rst som DAO.Recordset
Dunkla rstNames som DAO.Recordset
Dunkla sNames som stränger

fastställd rst = Currentdb.OpenRecordset (”VÄLJ * FRÅN YourTempTable”),

Gör till rst.EOF
  Fastställda rstNames = Currentdb.Openrecordset (”VÄLJ * FRÅN YourExistingTable VAR [tilltala] = '” & rst (”tilltala”) &” ”OCH csz=”” & rst (”csz”) &” ') ”,
  sNames = "",
  Gör till rstNames.EOF
    sNames = sNames & vbCrLf & rstNames (”First_Name”) &” ”& rstNames (”Last_Name”)
    rstNames.movenext
  Kretsa
  rst. Redigera
  rst (”SendTo”) = sNames
  rst. Uppdatering
Kretsa
Andra lösningar  
 
programming4us programming4us