Discussion :

[Gros_poirot]

Bonjour à tous,

Grace au tuto en lien ci apres (https://access.developpez.com/sources/?page=Requete), j'ai pu mettre plusierus enregistrement dans une colonne.

En gros j'ai une base avec des inscrits à un événement

j'ai repris l'exemple dans le tuto :

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
Public Function RecupParticipant(Projet As Long) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les participant du projet
SQL = "SELECT [Nom]&' '&[Prenom] FROM [LISTE DES INSCRITS] WHERE [DATE D'INSCRIPTION ] =" & Projet
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrement
While Not res.EOF
RecupParticipant = RecupParticipant & "- " & res.Fields(0).Value & vbCrLf
res.MoveNext
Wend
'Enleve le dernier espace
RecupParticipant = Left(RecupParticipant, Len(RecupParticipant) - 1)
'libere la mémoire
Set res = Nothing
End Function

Et j'utilise cette formule :

Code :

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

1
2
SELECT DISTINCT [LISTE DES INSCRITS].[DATE D'INSCRIPTION ], [LISTE DES INSCRITS].Société, Recupparticipant([DATE D'INSCRIPTION ]) AS LesParticipants
FROM [LISTE DES INSCRITS];

j'arrive bien a regrouper tous les inscrits a un événement a une date donnée mais j'aimerai aussi que cela se fasse par société.

En gros avoir :
Evenement A
SOCIETE A /INSCRIT 1 (retour a la ligne)-INSCRIT 2(retour a la ligne)-INSCRIT 3(retour a la ligne)
SOCIETE B /INSCRIT 1 (retour a la ligne)-INSCRIT 2(retour a la ligne)
Evenement A
SOCIETE x /INSCRIT 1 (retour a la ligne)-INSCRIT 2(retour a la ligne)-INSCRIT 3(retour a la ligne)
SOCIETE X /INSCRIT 1 (retour a la ligne)-INSCRIT 2(retour a la ligne)

sachant que les inscrit sont différents,c 'est juste une énumération

Merci pour votre aide.

[User]

Bonjour,

Peut-être essayer d'ajouter le champ société dans le SQL du recordset pour le récupérer ensuite au début :

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
Public Function RecupParticipant(Projet As Long) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les participant du projet
SQL = "SELECT [Nom]&' '&[Prenom], Societe FROM [LISTE DES INSCRITS] WHERE [DATE D'INSCRIPTION ] =" & Projet
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrement
if Not res.EOF Then
RecupParticipant =res.Fields(1).Value & "/" & res.Fields(0).Value & vbCrLf ' récupère le nom de la société et le 1er participant
res.MoveNext
While Not res.EOF
RecupParticipant = RecupParticipant & "- " & res.Fields(0).Value & vbCrLf
res.MoveNext
Wend
'Enleve le dernier espace
RecupParticipant = Left(RecupParticipant, Len(RecupParticipant) - 1)
end if
'libere la mémoire
Set res = Nothing
End Function

Cdlt,

[Gros_poirot]

Bonjour,

et Merci pour votre aide.

En faisant cela, j'obtiens en résultat de la requête

Code SQL :

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

1
2
SELECT DISTINCT [LISTE DES INSCRITS].[DATE D'INSCRIPTION ], [LISTE DES INSCRITS].Société, Recupparticipant([DATE D'INSCRIPTION ]) AS LesParticipants
FROM [LISTE DES INSCRITS];

Sauf que moi j'aimerais que ma requête me dise pour chacune date d'événement et la liste des participants par sociét
En gros avoir

24/12/2019 (Date de l'évenement) | Société X (Nom de l'entreprise | liste des participants à l'événement de la société X
24/12/2019 (Date de l'évenement) | Société Y (Nom de l'entreprise | liste des participants à l'événement de la société Y

[User]

Autant pour moi, j'avais lu un peu vite

dans ce cas il faut filtrer par société :

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
Public Function RecupParticipant(Projet As Long, societe as string) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les participant du projet
SQL = "SELECT [Nom]&' '&[Prenom] FROM [LISTE DES INSCRITS] WHERE [DATE D'INSCRIPTION ] =" & Projet & " and [Société] like '" & Societe & "'"
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrement
While Not res.EOF
RecupParticipant = RecupParticipant & "- " & res.Fields(0).Value & vbCrLf
res.MoveNext
Wend
'Enleve le dernier espace
RecupParticipant = Left(RecupParticipant, Len(RecupParticipant) - 1)
'libere la mémoire
Set res = Nothing
End Function

Et ensuite, faire :

Code SQL :

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

1
2
SELECT DISTINCT [LISTE DES INSCRITS].[DATE D'INSCRIPTION ], [LISTE DES INSCRITS].Société, Recupparticipant([DATE D'INSCRIPTION ],[Société]) AS LesParticipants
FROM [LISTE DES INSCRITS];

[Gros_poirot]

merci effectivement cela marche.
par contre des qu'une société a un ' dans son nom ça fait boguer la requête.
En php je sais que l'on peut traiter les caractères d'échappement mais sur Acess je ne sais pas comment cela se gére.

[User]

les doubles guillemets de chaque côté à la place :

Code :

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

SQL = "SELECT [Nom]&' '&[Prenom] FROM [LISTE DES INSCRITS] WHERE [DATE D'INSCRIPTION ] =" & Projet & " and [Société] like """ & Societe & """"

Cdlt,

[Gros_poirot]

Et bien parfait les éléments fonctionnent correctement
Merci ;-)