Allora costruire appena una tabella provvisoria che tiene TUTTI I nomi in un singolo campo, con un indirizzo:
Currentdb.Execute “selezionano l'indirizzo, csz in YourTempTable dall'indirizzo distinto prescelto, csz da YourExistingTable„
Ora aggiungere un campo di SendTo:
Currentdb.Execute “ALTERANO la TABELLA YourTempTable AGGIUNGONO il TESTO di SendTo della COLONNA (255)„
Ora sviluppare un recordset in cui potete collegare con tutti i nomi per un indirizzo specifico + un csz e concatenare i nomi:
Oscurare il rst come DAO.Recordset
Oscurare i rstNames come DAO.Recordset
Oscurare gli sNames come stringa
regolare il rst = Currentdb.OpenRecordset (“SELEZIONARE * A PARTIRE da YourTempTable„)
Fare fino a rst.EOF
Regolare i rstNames = Currentdb.Openrecordset (“SELEZIONARE * A PARTIRE da YourExistingTable DOVE [indirizzo] = '„ & rst (“indirizzo„) &„ “E csz=„„ & rst (“csz„) &„ ') “
sNames = ""
Fare fino a rstNames.EOF
sNames = sNames & vbCrLf & rstNames (“First_Name„) &„ “& rstNames (“Last_Name„)
rstNames.movenext
Ciclo
rst. Pubblicare
rst (“SendTo„) = sNames
rst. Aggiornamento
Ciclo