Discussion :

[Neof-hit]

Bonjour,

Tout d'abord, merci pour toutes ressources !

Je suis néophyte et je cherche à adapter le code / tuto Concaténer plusieurs enregistrements dans une seule colonne .

Pour reprendre l'exemple, il y a une table intermédiaire "participer".


Table Projet


Table participant


Table participer


Cardinalités



Lorsque j'exécute la requête, contrairement au tuto, Access me demande une valeur en input et je ne comprends pas pourquoi.


Si je renseigne 1

Le résultat que j'obtiens est celui ci-dessous :


Cela correspond aux enregistrements de l'ID 1 a priori mais je ne comprends pas la confusion avec le "DISTINCT".

Cela fait un moment que je cherche et j'ai vraiment besoin d'adapter, à plusieurs endroits, cette concaténation (dont un endroit avec des retours chariots > mais ca fera peut-être l'objet d'un autre post après recheche préalab).

Module

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
 
Public Function RecupParticipant(Projet As String) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les participant du projet
SQL = "SELECT Participant.PrenomParticipant, Participant.NomParticipant FROM Projet INNER JOIN (Participant INNER JOIN participer ON Participant.id_Participant = participer.id_Participant) ON Projet.id_projet = participer.id_projet WHERE participer.id_projet =" & Projet
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrement
While Not res.EOF
RecupParticipant = RecupParticipant & res.Fields(0).Value & " " & res.Fields(1).Value & " ; "
'& " " & res.Fields(2).Value
 
res.MoveNext
Wend
'Enleve le dernier espace
RecupParticipant = Left(RecupParticipant, Len(RecupParticipant) - 2)
'libere la mémoire
Set res = Nothing
End Function

Requête :

Code :

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

1
2
3
 
SELECT DISTINCT participer.id_projet, Recupparticipant(Projet) AS LesParticipants
FROM Projet INNER JOIN participer ON Projet.id_projet = participer.id_projet;

Pourriez-vous m'apporter votre expertise SVP ?

Je vous remercie

André

[marot_r]

Bonjour.

Dans le tuto, il y a un champ [Projet] dans les tables.
Dans tes tables, tu sembles avoir utiliser [NomProjet], il faut donc adapter ton code en conséquence.

A+

[Neof-hit]

Bonjour.

Dans le tuto, il y a un champ [Projet] dans les tables.
Dans tes tables, tu sembles avoir utiliser [NomProjet], il faut donc adapter ton code en conséquence.

A+

Bonjour,

merci beaucoup pour la réponse.

En fait je ne comprends pas. La requête SQL "encapsulée" dans le module (sans le WHERE) liste bien les auteurs des projets avec une ligne par projet, si on l'exécute en dehors et isolément : logique pour moi.

Après, dans le module, si je change "Projet" par "projet2" , il me demande une valeur pour projet2. Si je remplace dans tous le module "NomProjet" pas mieux.
la variable "Projet" dans "Public Function RecupParticipant(Projet As String) As String" , correspond bien à une variable que l'on choisi et il faut qu'elle matche avec un champ de la table "participer"?

Je n'ai pas l'impression de commettre une faute d'étourdie mais après j'ai tellement la tête dans le guidon et suis néophyte.

merci

André

[tee_grandbois]

Bonsoir,
à première vue je vois 2 erreurs :

Code :

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

Recupparticipant(Projet)

devrait être :Recupparticipant(id_Projet)

Code :

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

Public Function RecupParticipant(Projet As String) As String

devrait être Projet As Long car Id_projet est numérique (à priori, mais on ne vois pas le descriptif détaillé des champs des tables)

[Neof-hit]

Bonsoir,
à première vue je vois 2 erreurs :

Code :

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

Recupparticipant(Projet)

devrait être :Recupparticipant(id_Projet)

Code :

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

Public Function RecupParticipant(Projet As String) As String

devrait être Projet As Long car Id_projet est numérique (à priori, mais on ne vois pas le descriptif détaillé des champs des tables)

Merci pour cette réponse.

Oui, pardon pour l'absence d'information concernant le type

[Projet]
id_projet --> NuméroAuto
NomProjet --> texte

[participer]
id_projet --> Numérique
id_Participant --> Numérique

[Participant]
id_Participant --> NuméroAuto
PrenomParticipant --> texte
NomParticipant --> texte


Si je remplace par

• (Projet As Long) As String (dans le module)
  --> même comportement : demande valeur pour "Projet" (fenetre s'ouvre "Projet") puis même résultat (problème de DISTINCT?)
  
• (Projet As Long) As Long (dans le module)
  même comportement : demande valeur pour "Projet" (fenetre s'ouvre "Projet") puis"Erreur exécution '13' Incompatibilité de type

Merci

[tee_grandbois]

Bonjour,
il faut mettre (Projet As Long) As String dans ton module mais il faut aussi mettre Recupparticipant(id_Projet) dans la requête appelante (comme je l'ai précédemment indiqué)

[tee_grandbois]

Petite explication concernant les types de données de Public Function RecupParticipant(Projet As Long) As String :
Projet As Long signifie que l'on passe en paramètre une donnée de type Numérique long ce qui est le cas de id_projet puisque qu'il est utilisé ici :

Code :

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

SQL = "SELECT Participant.PrenomParticipant, Participant.NomParticipant FROM Projet ... WHERE participer.id_projet =" & Projet

RecupParticipant() As String signifie que la fonction va retourner une donnée de type texte (String) puisque le but est d'avoir une concaténation de plusieurs noms.
Alors arrête de changer les types cela ne fait pas avancer la résolution de ton problème.

[Neof-hit]

Bonjour tee_grandbois,

Un grand merci pour ces réponses et désolé pour le délai de cette réponse.

Bonjour,
il faut mettre (Projet As Long) As String dans ton module mais il faut aussi mettre Recupparticipant(id_Projet) dans la requête appelante (comme je l'ai précédemment indiqué)

Très bien, j'ai fait les modifications.

Petite explication concernant les types de données de Public Function RecupParticipant(Projet As Long) As String :
Projet As Long signifie que l'on passe en paramètre une donnée de type Numérique long ce qui est le cas de id_projet puisque qu'il est utilisé ici :

Code :

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

SQL = "SELECT Participant.PrenomParticipant, Participant.NomParticipant FROM Projet ... WHERE participer.id_projet =" & Projet

RecupParticipant() As String signifie que la fonction va retourner une donnée de type texte (String) puisque le but est d'avoir une concaténation de plusieurs noms.
Alors arrête de changer les types cela ne fait pas avancer la résolution de ton problème.

Merci, je comprend mieux du coup.
Je cherchais à comprendre d'où venait le problème, l'isoler. Il y a eu un manque de rigueur effectivement, désolé.

Lorsque j'exécute la requête :

Code :

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

1
2
SELECT DISTINCT participer.id_projet, Recupparticipant(id_projet) AS LesParticipants
FROM Projet INNER JOIN participer ON Projet.id_projet = participer.id_projet;

J'ai le message d'erreur :



En fait, je ne comprend pas mais peut-être que j'essai de faire quelque de "trop compliqué" par rapport à mon pauvre niveau et qu'il faut commencer par les bases en vba? Dommage, le fait de pouvoir concaténer plusieurs valeurs dans un seul et même champ était très prometteur par rapport à ce que je voulais faire dans mon cas d'application (pas "plus compliqué" que cela) mais je n'arrive même pas à adapter le tuto . Je dois rater quelque chose d'élémentaire là, ce qui me rend

Un conseil?

André

[Invité]

essayer avec : ...recupparticipant(participer.id_projet)...

[Neof-hit]

essayer avec : ...recupparticipant(participer.id_projet)...

Ca fonctionne désormais. J'ai un sentiment se situant entre "quelle busace, je suis !" et "un grand soulagement".

Merci à chacun d'entre vous pour votre précieuse aide. Ca va me permettre d'attaquer ce que je voulais faire.