Compiler une colonne (que du texte) dans un champ

bonjour tout le monde :)


Voici mon problème
j'ai une colonne nommé "NOM" avec plusieurs lignes (ex: 3) où se trouve le nom et le prénom de personnes. Dans mon formulaire j'aimerai avoir un champ où tout la colonne "NOM" soit compiler, où les différentes personnes soient séparées par un point virgule. Est-ce possible?
Merci d'avance pour votre aide

Bonsoir,
si par compiler tu entends concaténer c'est possible avec une boucle qui parcourt le recordset du formulaire, cela donne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Form_Load() Dim oRst As Recordset Set oRst = Me.RecordsetClone Me.LESNOMS = "" While Not oRst.EOF Me.LESNOMS = Me.LESNOMS & oRst.Fields("NOM") & ";" oRst.MoveNext Wend   oRst.Close Set oRst = Nothing End Sub

---

Mais dans quel but ce champ ? :?

bonjour

Merci de ta réponse je vais tester ça demain :)
le but final c'est pour l'envoie d'email par outlook via access (adresse email) ou l’édition du nom du fichier pdf créé quand il y a plusieurs personnes concernées.


Merci encore :ccool:

Bonjour


Merci ton code marche :)

j'ai voulu le changer pour qu'il puisse le faire sur toute les éléments du formulaire (c'est un formulaire plusieurs élément)
Mais j'y arrive pas quand je le fais il me met que le nom de la personne de la page afficher et quand je vais sur la deuxième page il met deux fois le nom de la personnes et sur la troisieme 3 fois le nom et ainsi de suite.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

Private Sub Form_Load() Dim oRst As Recordset Dim Rst As dao.Recordset   Set Rst = Me.RecordsetClone   If Rst.RecordCount > 0 Then Rst.MoveFirst While Not Rst.EOF   Set oRst = Me.RecordsetClone If oRst.RecordCount > 0 Then oRst.MoveFirst Rst.Edit Rst!TOUSMAIL = "" Rst.Update While Not oRst.EOF Rst.Edit Rst!TOUSMAIL = Rst!TOUSMAIL & oRst.Fields("EMAILD") & ";" Rst.Update   oRst.MoveNext   Wend End If   Rst.MoveNext Wend End If   oRst.Close Rst.Close Set oRst = Nothing   Set Rst = Nothing           End Sub

---

j'ai essayé différent code. Celui la c'est le dernier quand je le lance il me met un message d'erreur pour "Rst.MoveNext" il me dit qui n'y a "aucun enregistrement en cours".

Merci d'avance pour votre aide

j'ai trouvé comment faire pourquoi chercher compliquer:

Pour ceux que ça intéresse:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Private Sub Form_Load() Dim oRst As Recordset Dim Rst As dao.Recordset Dim MAILD As String       Set oRst = Me.RecordsetClone oRst.MoveFirst   Me.TOUSMAIL = ""   While Not oRst.EOF   Me.TOUSMAIL = Me.TOUSMAIL & oRst.Fields("EMAILD") & ";" MAILD = Me.TOUSMAIL oRst.MoveNext Wend oRst.Close Set oRst = Nothing Forms!DEMANDEUR.Requery   Set Rst = Me.RecordsetClone If Rst.RecordCount > 0 Then Rst.MoveFirst Rst.Edit Rst!TOUSMAIL = "" Rst.Update While Not Rst.EOF Rst.Edit Rst!TOUSMAIL = MAILD Rst.Update Rst.MoveNext Wend End If Rst.Close Set Rst = Nothing Forms!DEMANDEUR.Requery End Sub

---

ce que j'ai pas compris si au lieux de

Citation:

---

Me.TOUSMAIL = Me.TOUSMAIL & oRst.Fields("EMAILD") & ";"
MAILD = Me.TOUSMAIL

---

je mets seulement:

Citation:

---

Me.MAILD = Me.TOUSMAIL & oRst.Fields("EMAILD") & ";"

---

ça marche pas il me mets seulement la dernière personne.

Merci tee_grandbois :ccool: