Discussion :

[germchou]

Bonjour.

Je suis inscrit au site Developpez.

Il y a une procedure écrite par Tofalu sur «Comment concaténer plusieurs enregistrements dans une seule colonne». J’essaie d’utiliser, sans succès, cette procédure donnée sur le site Developpez.com aux liens suivants:

Office – Access – Sources – Requêtes – Concaténer plusieurs enregistrements dans une seule colonne – Exemple R01.

J’ai créé une base de données avec les sections suivantes :

Table : Tbl_projet
Requëte : R01
Module : Recup

Quand j’essaie d’exécuter la Requête R01, j’obtiens toujours cette réponse :

Fonction « Recupparticpant » non définie dans l’expression.

Je ne peux pas voir où est l’erreur. Quelqu'un peut-il m’aider avec ce problème?

Merci.

[marot_r]

As-tu bien défini ta function comme "Public" ?

A+

[germchou]

Dans le module de la fonction il y a un «public». Voici le SQL:

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

[Thierry_PALLIER]

Bonjour germchou et marot_r .

"Fonction « Recupparticpant » non définie dans l’expression"
Il manque un "i" . Cela peut venir de là

[germchou]

Merci d'avoir soulevé cette erreur, mais ce n'est pas la solution. C'est moi qui ai omis le i en recopiant le message. Désolé.

[marot_r]

À priori la fonction est correcte, cela doit venir de la requête.

Peux-tu poster le SQL de ta requête ?

A+

[germchou]

Voici la requête.

Code sql :

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

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

Le Module contenant la fonction Recupparticipant est appelé Recup puisque je ne peux pas l'appelé du même nom que la fonction

[marot_r]

Essaye cela

Code sql :

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

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

À priori cela ne devrait rien changer mais parfois utiliser des noms pleinement qualifiés aide.

A+

[marot_r]

Si le test précédent donne le même résultat, crée une fonction bidon du genre :

Code :

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

1
2
3
public function Bidon() as string
   Bidon="Test de fonction"
end function

et la requête suivante :

Code sql :

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

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

Juste pour voir si l'appel de fonction depuis du SQL marche.

A+

[germchou]

J'ai essayé la suggestion de mettre Tbl_Projet.Projet au lieu de Projet uniquement et cela ne change rien. J,ai encore la meme réponse. J'ai essayé également la function Bidon avec le même résultat. Il n'y a pas d'appel de fonction dans le SQL.

[marot_r]

Essaye en créant une nouvelle base avec juste une table toute simple, une requête qui appelle une fonction et une fonction et voit si tu peux appeler la fonction depuis le SQL.

Aussi vérifie que les macros sont bien activées. C'est niaiseux mais il arrive parfois qu'on oublie de les activer.

A+

[germchou]

Merci René pour ton aide à trouver une solution à ce problème.

En faisant des recherches sur Développez, j'ai vu que je n'étais pas le premier à rencontrer ce problème. Il y avait quelqu'un en 2008 qui avait eu exactement le même. Il n'avait pas réussi en SQL. Il a essayé en VBA et ça avait fonctionné avec une fonction modifiée. Mais, le VBA, je ne le connais pas sauf le nom...

Je vais chercher une autre manière d'avoir l'information que je veux.

Merci encore.

[Maxence HUBICHE]

Bonjour,

Dans le module de la fonction il y a un «public». Voici le SQL:

Mais, le VBA, je ne le connais pas sauf le nom...

Le script que tu as, C'EST du VBA, pas du SQL.
Donc, un copier-coller dans un "module" (ATTENTION ! Pas dans un "module de classe" !!!!!!) est suffisant, et le code que tu montres est satisfaisant.
Le SQL c'est uniquement ce que CONSTRUIT la partie suivante :

Code :

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

"SELECT NomParticipant FROM Tbl_Projet WHERE Projet=" & Projet

Est-ce que ton 'Projet' est numérique ou alphanumérique ?
Dans le premier cas, ton code est correct
Dans le second cas, il conviendrait de le modifier ainsi :

Code :

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

"SELECT NomParticipant FROM Tbl_Projet WHERE Projet=" & Chr(34) & Projet & Chr(34)

SELECT DISTINCT Tbl_projet.Projet, RecupParticipant(Tbl_projet.Projet) AS LesParticipantsFROM Tbl_projet;SELECT DISTINCT Tbl_projet.Projet, Bidon() AS LesParticipantsFROM Tbl_projet;

Si tu es dans le premier cas, OU SI tu es dans le deuxième cas, que tu as corrigé, comme indiqué ci-dessus, ET QUE ça ne fonctionne toujours pas...
Regarde ans la configuration de ton Access si les macros sont autorisées, ou si ta base est approuvée, etc.
Sinon, effectivement, ça risque fort de ne pas fonctionner.

Cordialement,

[germchou]

Merci Maxence pour ces informations.

Le projet est alphanumérique. J'ai essayé toutes les options que tu as proposées, mais sans succès. Les macros sont autorisées et la base de données est approuvée.

Le seul message d'erreur donné par l'aide Access est le suivant:

Fonction <name> non définie dans l'expression. (Erreur 3085)

Vous avez entré une expression SQL incluant un nom de procédure Function impossible à reconnaître. Vérifiez que la fonction existe et que vous pouvez l'utiliser dans des expressions SQL, ou vérifiez que le nom entré dans l'expression est correct.

Ce n'est trop aidant...

[Maxence HUBICHE]

Si si ...

Fais ALT+F11 (tu arriveras dans le Visual Basic Editor)
Vas dans Outils/Références

Y a-t-il quelque chose de marqué "MANQUANT" dans la liste qui t'est proposée ?

[Iceman35]

Bonjour,

J'ai besoin de cette fonctionnalité et visiblement, la solution n'est pas encore diffusée.
Le but est, à l'aide d'une requête, obtneir le 2ème tableau en partant du 1er.

J'ai très peu de connaissance en SQL/VBA pour ne pas dire aucune, c'est comme du mandarin pour moi

Je suis partie de ce tuto du forum : http://access.developpez.com/sources...QLLigneColonne

Voici la base toute simple :

T01
Projet NomParticipant
1 Dupont
1 Durand
1 Paul
2 Dupont
2 Luc

R01
SELECT DISTINCT T01, Recupparticipant(Projet) AS LesParticipants
FROM T01;

Module1

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

Une fenêtre s'ouvre et demande :
--> Entrer une valeur de paramètre T01 :

Merci pour aide,

Vincent

[JRD33]

Voici la requête.

Code sql :

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

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

Le Module contenant la fonction Recupparticipant est appelé Recup puisque je ne peux pas l'appelé du même nom que la fonction

Le poste est très ancien, cependant si certain le regarde pour avoir des solutions, dans le code sql essaie plutôt sans le DISTINCT:

Code sql :

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

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