Discussion :

[maverick91]

bonjours,
je vous explique mon probleme :
j'ai une table MAIL dans laquelle je stock des adresses mail et j'aimerai reccupèrer dans une zone de texte toutes ces adresse les unes à la suite des autres (séparées par un ";").

Comment puis-je faire

Mecri

[ft035580]

Salut,

Et en adaptant les sources ?

[maverick91]

merci mais j'ai trouvé cette solution un peu lourde et donc j'ai trouvé une solution avec quelques ligne de code :

voici ma table :
N° PERSONNE
1 ludovic.estivalet@ods.com
2 veronique.perrin@ods.com
3 mathieu.houga@ods.com
4 jkfhdzedfze
5 dkehdfiehd
6 natahlie

et voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Commande2_Click()
Dim v As String
j = DCount("[N°]", "MAILCOPIE")
 
For i = 1 To j
    v = DLookup("[PERSONNE]", "MAILCOPIE", "[N°]=" & i)
    If i = 1 Then
    [ADRESSECOPIE] = v
    Else
    [ADRESSECOPIE] = [ADRESSECOPIE] & ";" & v
    End If
Next i
End Sub

le résultat donne :
ludovic.estivalet@ods.com;veronique.....houga@ods.com;jkfhdzedfze;dkehdfiehd;natahlie

[totofe]

ton code fonctionne bien. cependant si tu suprimme un enregistrement de ta table il se pourait que le champ N° ne sois plus des nombres successifs. donc il pourait y avoir un probleme.

[maverick91]

effectivement il peut y avoir un "trou" dans la numérotation et c'est pour ça que je ne l'ai pas mis en numéroauto je laisse les users gérer ces numéros. (Je surveillerais quelque fois cette table).

Je sais ce n'est peut etre pas une solution tres "pro" mais je n'est rien trouvé d'autre.

[totofe]

moi j'aurais opté pour une fonction avec un recordset


exemple:

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
16
Dim db As DAO.Database, rst As DAO.Recordset
  Dim sSQL As String
 
   ' Ouverture de la base de données
   Set db = CurrentDb
   sSQL = "SELECT PERSONNE FROM MAILCOPIE"
   ' Ouverture du recordset
   Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
 
   While Not rst.EOF
     [ADRESSECOPIE] = [ADRESSECOPIE] & ";" & rst(0)
     rst.MoveNext
   Wend
 
   ' Fermeture du Recordset
   rst.Close