Discussion :

[FewRa]

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

[tee_grandbois]

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

Code :

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

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 ?

[FewRa]

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

[FewRa]

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 :

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
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

[FewRa]

j'ai trouvé comment faire pourquoi chercher compliquer:

Pour ceux que ça intéresse:

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
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

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

je mets seulement:

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

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

Merci tee_grandbois