Discussion :

[b.billet85]

bonjour,
dans un sous formulaire j'ai une liste d'adresse mail (1 enregistrement dans le sous formulaire = une adresse) et pour faire du mailling j'aimerai convertir cette liste d'adresse mail dans une zonne texte comme cela :

adressemail1;adressemail2;adressemail3;.....

comment on peut faire ??

merci d'avance

[mout1234]

Bonjour,

TU peux en VBA parcourir un recordset et alimenter une variable string... quelque chose du genre (non testé):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim oRst as recordset
Dim sDest as string
 
set oRSt = ME.MonSousForm.form.RecordsetClone
 
While not oRst.EOF
    sDest  = sDest & ";" & orst!AdresseMail
    orst.Movenext
Wend
if sDest <> "" then
   sDest = Mid(sDest,2) ' pour supprimer le 1er ;
end if
orst.close
set orst= nothing