Salve a tutti
ho un piccolo problemino :ho un applicativo creato con Ms. Access
nel campo:e-mail
vorrei che con la pressione di un pulsante esempio: (command1_click)
le-mail da me selezionate andassero tutte dentro ad una textbox, concatenate una con l'altra e magari separate con ; cosi posso spedirle tutte tramite programma di posta
Oppure inserire in una textbox il risultato della query
Grazie Mille
soluzione trovata:
Dim rs As DAO.Recordset
Dim db As Database
Dim strname As String
Set rs = CurrentDb.OpenRecordset("SELECT T_Clienti.[e-mail], T_Clienti.selezionaEMail FROM T_Clienti WHERE (((T_Clienti.selezionaEMail)=True));")
Do While Not rs.EOF
strname = (strname + ";") & rs.Fields("e-mail")
rs.MoveNext
Loop
MailingList = strname
MailingList = Right(strname, Len(strname) - 1)
Ultima modifica effettuata da damirella il 23/03/2011 alle 17:10 |