Discussion :

[sucreMan]

Bonjour,
Voici ma question :
J'ai 2 champs : ref image et mots clés
ref image mots clés
000001 atmosphères
000001 automnes
000001 bouteilles
000001 choux
000001 choux-fleurs
000001 clairs-obscurs
…

Je voudrais faire une requête pour obtenir la table suivante :
PHOTOREF mots clés
000001 Atmosphères, automnes, bouteilles, choux,…

Merci de votre aide

[LedZeppII]

Bonjour,

La réponse se trouve dans les sources Access : Concaténer plusieurs enregistrements dans une seule colonne

Si tu n'arrives pas à mettre en oeuvre la solution, donne nous le nom exact de ta table, ainsi que le nom exact des champs.

A+

[sucreMan]

Merci, c'est exactement la requête que je dois exécuter.
Je vais reprendre point par point les éléments (pour comprendre) et adapter par la suite à mes data.
Voici ce que j’ai fait :
J’ai crée une table Tbl_projet avec 2 champs : Projet (en numérique ?) et NomParticipant (en texte ?)
J’ai ouvert un module ou j’ai copié le code (faut il lui donner un nom?).
J’ai crée une requête avec les données de RO1 dans l’exemple.
Quand je lance la requête :
Erreur de compilation (type défini par l’utilisateur non défini)
res As DAO.Recordset en gras

J’ai une table de départ. Me faut il une table d’arrivée ? le script l’a crée t il automatiquement ?

Si j’arrive à comprendre la mécanique, je pourrais l’appliquer à mon cas.

Merci de votre aide.

[random]

sous la fenêtre code
outils référence ajouter dao

[sucreMan]

en mode requête? ou en mode module?
J'ai essayé les 2 et je n'ai pas vu la fenêtre code.

Il s'agit peut etre d'une fonction de base d'access. Mais là, je l'avoue, je suis perdu.
Cordialement,

[spaiku]

Tu accèdes à la fenêtre code avec Alt+F11

[sucreMan]

ok, merci. Cela marche bien. sauf...
Comment faire pour changer le premier champ de numérique à texte.
Quand je modifie le type de données, j'obtiens le message suivant à l'exécution de la requête : erreur d'exe'3464' type de données incompatible dans l'expression du critère
Il pointe dans le code sur : Set res = CurrentDb.OpenRecordset(SQL)

Merci

[LedZeppII]

Bonjour,

sur la base du code de la faq, voici le code pour un champ Projet de type texte.
Les lignes modifiées sont la première et la cinquième.

Code vb :

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

Si on veut éviter des doublons sur NomParticipant, remplacer la cinquième ligne par

Code vb :

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

SQL = "SELECT DISTINCT NomParticipant FROM Tbl_Projet WHERE Projet='" & Projet & "'"

A+