Discussion :

[pierre22]

bonjour
j' essaye de concaténer plusieurs enregistrements dans une colonne en suivant la méthode décrite par Tofalu version 05 03 2005.
mon probleme est qu'à l'ouverture de la requete access me demande de selectionner la source de données.
sans doute un probleme de référence DAO .
pouvez vous m' eclairer sur le sujet
merçi

[Invité]

Bonjour

Avec le code on pourrait mieux t'aider, non ?

Starec

[pierre22]

création de la table Projet avec 2 colonnes projet et nom Participant

DU MODULE SUIVANT

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 NomParticipant FROM Tbl_Projet WHERE Projet=" & Projet
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrement
While Not res.EOF
RecupParticipant = RecupParticipant & res.Fields(0).Value & " "
res.MoveNext
Wend
'Enleve le dernier espace
RecupParticipant = Left(RecupParticipant, Len(RecupParticipant) - 1)
'libere la mémoire
Set res = Nothing
End Function

ET ENFIN LA REQUETE

Code :

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

1
2
 SELECT DISTINCT Tbl_projet.Projet, Recupparticipant(Projet) AS LesParticipants
FROM Tbl_projet;

le probleme, à l'ouverture de la requete access me demande de sélectionner la source de données

[mout1234]

le probleme, à l'ouverture de la requete access me demande de sélectionner la source de données

Pour mieux cerner le problème, commence par essayer ta fonction, en mode pas à pas, avec une valeur d'exemple.

Si tu as dans ta table tbl_Projet un projet dont le code est 1 par exemple, va dans le vbe (Alt + F11) et dans la fenêter d'exécution (Ctrl + G) et tapes:

Code :

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

?RecupParticipant(1)

[pierre22]

merci pour votre aide

apres vérification mon module fonctinne tres bien en mode d 'execution pas à pas. Les regroupements sont parfaits
Malgré tout à l 'ouverture de la requete access me demande toujour de préciser la source

[francishop]

Bonsoir,

Pièce jointe 19034

Cordialement.

[francishop]

Bonsoir,

Dans ce projet = "CurrentDb" se trouve une table-->Tbl_Projet
Et dans cette table un champ-->NomParticipant?

Cordialement.

Ps : Recupparticipant ou RecuParticipant