Discussion :

[severik]

Bonjour a tous

Je me permets de vous contacter pour vous demander de l'aide par rapport au source Concaténer plusieurs enregistrements dans une seule colonne présent ici : http://access.developpez.com/sources...QLLigneColonne

Je n'arrive pas a appliquer ce code qui me serait indispensable.

J'ai une requete nommé Mail commande qui me donne la liste des commande avec le ou les mail lié a celle ci :
134 toto@titi.fr
134 titi@tutu.com
135 truc@truc.com
135 tyty@test.fr

dans un module je place :

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 RecupProjet(N°Commande As string) As string
   Dim res As DAO.Recordset
   Dim SQL As String
   'Selectionne les  projet du partcipant
   'chr(34) correspond a des guillemets pour encadrer le texte
   SQL = "SELECT Mail FROM mailcommande WHERE N°Commande=" & _
          Chr(34) & N°Commande & Chr(34)
   Set res = CurrentDb.OpenRecordset(SQL)
   'Concatene les différents enregistrement
   While Not res.EOF
      RecupProjet = RecupProjet & res.Fields(0).Value & ";"
      res.MoveNext
    Wend
 
    'Enleve le dernier ;
    RecupProjet = Left(RecupProjet, Len(RecupProjet) - 1)
    'libere la mémoire
    Set res = Nothing
End Function

la requete sql :

Code sql :

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

1
2
SELECT DISTINCT Mailcommande.N°Commande, Recupprojet(N°Commande) AS LesProjets
FROM Mailcommande

Mais il me renvoi cela :

Type de donnée incompatible dans l'expression du critere


Merci par avance de votre aide

Cordialement

Vincent

[marot_r]

Est-ce que N°Commande est bien une chaîne caractères ?

Est-ce que si tu mets

Code sql :

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

1
2
SELECT DISTINCT Mailcommande.N°Commande
FROM Mailcommande

Tu obtients des résultats ?

A+

[severik]

Bonjour et merci pour ta reponse

oui j'obtient bien la liste de toutes mes commandes. vois tu d'ou vient le problème?

merci

Vincent

[marot_r]

J'ai bien peur que le DISTINCT n'aime pas trop l'appel à la fonction. Essaye en enlevant DISTINCT.

De plus tu n'as pas répondu à ma question alors je la repose :-)

Est-ce que N°Commande est bien une chaîne caractères ?

A+

[severik]

Bonjour René

N°commande est de type numérique.

Si j’enlève DISTINCT j'ai une erreur d’exécution 3464 Type de donnée incompatible dans l'expression du critère

en cliquant sur débogage cette ligne se met en sur brillance :
Set res = CurrentDb.OpenRecordset(SQL)

vincent

[severik]

Re bonjour

j'ai enlevé DISTINCT et enlevé dans le code les Chr(34) &

merci de ta précieuse aide René

Vincent

[severik]

Juste une petite question René

J'ai environ 500 lignes et le temps de reponse pour afficher la requete est long saurais tu si on peux optimisé car la base va encore grossir et j'ai peur de ces longueurs merci

Vincent

[marot_r]

C'est le problème avec cela, et il n'y a pas d'astuce miracle. On peut utiliser un champ mémo pour enregistrer le résultat de la concacténation.

Si tes données ne change pas constament tu peux par exemple lancer une requête de modification qui va mettre le champ à jour tous les soirs.

Une autre solution est de faire ce travail, c-à-d enregistrer le résultat pour l'élément en cours, à chaque fois que tu en ajoutes, modifies ou supprimes un.

Enfin tu pourrais regarder du côté du contrôle TreeView pour présenter ta concatenation sous forme d'arbre, à la demande.

A+

[severik]

Merci pour ces informations

si je peux abuser de ta connaissance je voudrai te soummettre mon cas peut etre verra tu de suite une solution sinon ce n'est pas grave.

Concernant ce code tu l'aura compris je cherche a recuperer tous les emails liées à celle ci pour les concatener et me permettre ainsi d'envoyer une notification par email c'est pourquoi la concatenation avec le point virgule est idéal. En fait je n'ai pas besoin de les sauvegarder ni de les visualiser par la suite. J'en ai juste besoin momentanement lorsque je suis sur la fiche de la commande.

J'ai tenté dans ma requete initial mailcommande de mettre en critere sur le champs N°Commande ceci : Formulaires![Détails de la commande validation]![N°Commande] afin de ne le faire que sur la commande en cours

mais lors de l'ouverture de la requette faisant appel a la fonction j'ai une erreur d'execution

vois tu comment je peux faire?

Vincent

[marot_r]

Personnellement je ferai une table temporaire pour y stoker les infos pour ton email puis je ferai une fonction VBA de concaténation basée sur une requête paramétrée qui me donnerai seulement la liste des emails qui m'intresse.

J'ajouterai le résultat dans ma table temporaire.

Pour la concatenation ça resemblerai à cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
public function ConcatenerEmail(prmNoCommande as string) as string
   dim result as string
   dim db as dao.database:set db=currentdb
   dim q as dao.querydef:set q=db.querydefs("rSelectionneEmail")
   q.pramameters("prmNoCommande")=prmNoCommande
   dim r as dao.recordset:set r=q.openrecordset()
   '
   'ici le code qui calcul result (voir ton post)
   '
   r.close:set r=nothing
   set q=nothing
   set db=nothing
   ConcatenerEmail=result
end function

Ta requete devrait resembler à

Code sql :

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

SELECT Mail FROM mailcommande WHERE N°Commande="""" & [prmNoCommande] & """"

Pour définir un paramètre sur une requête il y a un choix Paramètre dans un des menus où tu peux saisir son nom et son type.

Pour le traitement en lui même,

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
21
22
23
24
25
public sub CreerEMail(prmNoCommande as string)
   'Suppose un seul mail à la fois  
   dim db as dao.database:set db=currentdb
   dim q as dao.querydef
 
   'Vide la table temporaire
   set q=db.querydefs("rViderTableTempEMail")
   q.execute
 
   'Crée un enregistrement pour la commande courrante
   set q=db.querydefs("rRemplirTableTempEMail") 'Ceci est une requête d'ajout
   q.pramameters("prmNoCommande")=prmNoCommande
   q.execute
 
   dim r as dao.recordset: set r=db.openrecordset("TableTempEMail")
   r.edit
   r![eMail]=ConcatenerEmail(prmNoCommande)
   r.update
 
   r.close:set r=nothing
 
   set q=nothing
   set db=nothing
 
end sub

A+

[bully48]

Bonjour,

J'essaie d'employer le même script que Severik mais j'ai le message "Sélectionner la source de données".

J'ai pensé au début à une erreur de syntaxe mais même en faisant un copier-coller du script d'exemple dans une db vierge (et en créant la table adéquate), j'ai le même message.

quelqu'un pourrait-il m'aider à comprendre ?

Pour info, je suis en access 2007

Merci

[loutine]

Bonjour,

Je voudrais faire exactement ce qu'indique le tuto https://access.developpez.com/source...QLLigneColonne

mais j'aimerais savoir s'il est possible de le faire sans passer par le module, d'autant que dans Access 2013 que j'utilise depuis peu, je ne trouve plus le bouton pour y accéder dans la Création de requête.

Il s'agit de produire un état qui regroupe sur une même ligne tous les enregistrements d'une table de relation.

Merci de votre aide.

[tee_grandbois]

Bonsoir,
tu seras obligée de créer un module car je ne pense pas qu'une solution existe en SQL seul.
pour le bouton Module, c'est dans l'onglet "Créer" du ruban :

[loutine]

tu seras obligée de créer un module car je ne pense pas qu'une solution existe en SQL seul.

Bonjour et merci pour cette réponse rapide,

Puisque cette fonction me semble assez basique pour extraire des données d'un SGBDR (ça m'étonne que les programmateurs d'Access n'aient pas eu l'idée de faire une fonction simplifiée pour les utilisateurs qui ne font pas de code mais bref, c'est le paradoxe éternel de ce logiciel...), je me lance !

J'ai créé le code avec mes paramètres (table de relation extraite en xlsx en PJ)

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 RecupUGF_ALTEREE(REF_UGF_ALTERATION As Long) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les UGF altérées par UGF altération
SQL = "SELECT REF_UGF_ALTEREE FROM REL_UGF_ALTER WHERE REF_UGF_ALTERATION=" & REF_UGF_ALTERATION
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrements
While Not res.EOF
RecupUGF_ALTEREE = RecupUGF_ALTEREE & res.Fields(0).Value & " "
res.MoveNext
Wend
'Enleve le dernier espace
RecupUGF_ALTEREE = Left(RecupUGF_ALTEREE, Len(RecupUGF_ALTEREE) - 1)
'libere la mémoire
Set res = Nothing
End Function

C'est juste ?
REF_UGF_ALTEREE = texte court
REF_UGF_ALTERATION = texte court

Je crée la requête suivante :

Code :

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

1
2
SELECT DISTINCT REL_UGF_ALTER.REF_UGF_ALTERATION, RecupUGF_ALTEREE(REF_UGF_ALTERATION) As LES_UGF_ALTEREES
FROM REL_UGF_ALTER

Mais j'obtiens le message Fonction "RecupUGF_ALTEREE" non définie dans l’expression. (Erreur 3085)

D'après l'Aide, il doit y avoir une erreur dans l'expression mais alors là je suis strictement incapable de la déceler !

Je veux bien un petit coup de pouce. J'ai lu quelques tutos et autres cours mais je suis totalement ignorante en VBA... je me lance et je n'ai pas absolument tout lu sur le sujet, je vous remercie d'avance de votre indulgence.

[tee_grandbois]

Bonjour,
as-tu compilé ton code (menu VBA : Débogage / Compiler) ? je pense que non et après l'avoir fait, tu devrais avoir un message "type défini par l'utilisateur non défini".
Si c'est bien le cas, il faut ajouter la référence Microsoft Office 15.0 Access Database engine object Library (menu VBA : Outils / Références) pour utiliser DAO.



Ensuite, dans le code de ta fonction RecupUGF_ALTEREE, il y a une erreur : tu as déclaré REF_UGF_ALTERATION As Long alors que c'est du String et comme c'est du texte il faut mettre des apostrophes dans la requête (et comme elles sont à l'intérieur d'autres apostrophes, il faut les doubler): WHERE REF_UGF_ALTERATION=""" & REF_UGF_ALTERATION & """". Pour le dernier espace, tu peux utiliser Rtrim() qui supprime les espaces à droite du texte ou alors Trim() qui supprime à gauche et à droite mais pas entre les textes.
Tu recompiles pour vérifier s'il y a encore des erreurs.
Voici le code corrigé :

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 RecupUGF_ALTEREE(REF_UGF_ALTERATION As String) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les UGF altérées par UGF altération
SQL = "SELECT REF_UGF_ALTEREE FROM REL_UGF_ALTER WHERE REF_UGF_ALTERATION=""" & REF_UGF_ALTERATION & """"
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrements
While Not res.EOF
    RecupUGF_ALTEREE = RecupUGF_ALTEREE & res.Fields(0).Value & " "
    res.MoveNext
Wend
'Enleve le dernier espace
RecupUGF_ALTEREE = RTrim(RecupUGF_ALTEREE)
'libere la mémoire
Set res = Nothing
End Function

[loutine]

Merci tee_grandbois,

J'ai fait toutes les modifs indiquées mais j'ai toujours le même message quand j'exécute la requête...

Fonction "RecupUGF_ALTEREE" non définie dans l’expression

Ps. Je n'ai pas eu le message "type défini par l'utilisateur non défini" mais la référence Microsoft Office 15.0 Access Database engine object Library était déjà cochée.

[tee_grandbois]

bizarre. As-tu compilé le code ?

[loutine]

Oui.

Je peux envoyer ma base mais elle fait 10Mo...

[loutine]

En cherchant dans une autre discussion, j'ai trouvé plusieurs options de solutions.

1.

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

Je ne le savais pas donc j'ai renommé mon module Recup_ALTER1
... mais ça ne change rien.

2. Une proposition de Maxence Hubiche : si le champ Projet de Gremchou est alphanumérique (équivalent REF_UGF_ALTERATION pour moi), alors il faut écrire la requête de cette façon :

Code :

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

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

Mais ça ressemble fortement à la solution de Tee_Grandbois donc j'imagine que les deux ne peuvent pas coexister

comme c'est du texte il faut mettre des apostrophes dans la requête (et comme elles sont à l'intérieur d'autres apostrophes, il faut les doubler ):
WHERE REF_UGF_ALTERATION=""" & REF_UGF_ALTERATION & """"

Qu'en pensez-vous ?

[tee_grandbois]

Bonjour,

Je peux envoyer ma base mais elle fait 10Mo...

tu peux la compacter (Menu Fichier / bouton Compacter et réparer la base de données), ensuite la compresser et joindre au message (petit trombone à droite du smiley) sans données sensibles ni confidentielles car tout ce qui est joint est accessible à tout le monde.

Mais ça ressemble fortement à la solution de Tee_Grandbois donc j'imagine que les deux ne peuvent pas coexister

L'une ou l'autre solution donnera le même résultat. Pour info, Chr(34) c'est le code numérique de la double apostrophe : "