Discussion :

[Sami Xite]

Bonsoir,

J'ai une relation 1-n entre la valeur A et les valeurs a...z
Comment puis je créer sur une requête regroupée sur A un champs regroupant les valeurs 1...n
Genre : Champs1 = A ; Champs2 = "a"+"b"+"c"+..."z"

Merci pour votre aide

[Heureux-oli]

J'ai une relation 1-n entre la valeur A et les valeurs a...z

Je pense qu'il y a confusion.

Une relation 1 à N signifie que dans une table tu as un champ qui est une clé primaire, et que dans une seconde table, tu as un champ qui reprend la clé primaire de la première table, que l'on peut retrouver plusieurs fois et qui est utilisé pour la relation.

De ce fait là, le reste devient un peu obscur.

[Sami Xite]

Je pense qu'il y a confusion.

Une relation 1 à N signifie que dans une table tu as un champ qui est une clé primaire, et que dans une seconde table, tu as un champ qui reprend la clé primaire de la première table, que l'on peut retrouver plusieurs fois et qui est utilisé pour la relation.

De ce fait là, le reste devient un peu obscur.

C'est exactement ça !!
Pour être plus clair j'aimerais qu'un champs regroupe toute les valeurs rattachées à ma clef primaire
Une requête simple donnerait

Champs1---Champs2
A ----------a
A ----------b
A ----------c
A ----------...


Et j'aimerais avoir :

Champs1----Champs2
A-----------a + b + c + ...


Merci pour ton aide

[Mat.M]

Essayer
SELECT SUM(table1.champs1) from table1 where table1.champs1=table2.champs2

En tout cas il doit y avoir SUM dans la clause SQL
Au besoin utiliser INNER JOIN..ON

[Sami Xite]

Essayer
SELECT SUM(table1.champs1) from table1 where table1.champs1=table2.champs2

En tout cas il doit y avoir SUM dans la clause SQL
Au besoin utiliser INNER JOIN..ON

Seulement j'aimerais que les valeurs ne soient pas sommées, remplacer le "+" par un ";"
Ce qui donnerait :

Champs1----Champs2
A-----------a ; b ; c ; ...

Merci

[Heureux-oli]

Essayer
SELECT SUM(table1.champs1) from table1 where table1.champs1=table2.champs2

En tout cas il doit y avoir SUM dans la clause SQL
Au besoin utiliser INNER JOIN..ON

Je pense pas que SUM va fonctionner sur du texte.

Je pense qu'il faut compter le nombre d'occurrence de A et ensuite, concaténer par une boucle les valeur du second champ.

[Sami Xite]

Je pense pas que SUM va fonctionner sur du texte.

Je pense qu'il faut compter le nombre d'occurrence de A et ensuite, concaténer par une boucle les valeur du second champ.

Ok pour compter mais la concaténation me pose problème. Pourrais tu m'indiquer la démérche STP ??

Merci encore à tous

[Arkham46]

bjr,

n'oubliez pas les sources!
http://access.developpez.com/sources...QLLigneColonne

y a juste à mettre un ";" à la place de l'espace

[Sami Xite]

bjr,

n'oubliez pas les sources!
http://access.developpez.com/sources...QLLigneColonne

y a juste à mettre un ";" à la place de l'espace

Salut,

Merci de m'avoir dirigé vers ce code mais lorsque je l'adapte à ma base :

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 concat_type(Projet As Long) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les types de commande
SQL = "SELECT type FROM cpt_type WHERE id_commande=" & id_commande
Set res = CurrentDb.OpenRecordset(SQL)
'Concatenation des colisages
While Not res.EOF
concat_type = concat_type & res.Fields(0).Value & " "
res.MoveNext
Wend
'Enleve le dernier espace
concat_type = Left(concat_type, Len(concat_type) - 1)
'libere la mémoire
Set res = Nothing
End Function

puis requête :

Code :

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

1
2
SELECT DISTINCT cpt_type.id_commande, concat_type(id_commande) AS Colisage
FROM cpt_type;

J'ai le message d'erreur suivant :

Erreur d'execution '3075':

Erreur de syntaxe (opérateur absent) dans l'expression 'id_commande='.


Merci pour votre aide et votre patience

[micniv]

Le message indique que id_commande n'est pas (encore) valué

SQL = "SELECT type FROM cpt_type WHERE id_commande=" & id_commande

Bonne journée

[Sami Xite]

Et pourtant il l'est bel et bien
Ci jointe une extraction excel de cpt_type

Est ce que le fait que cpt_type soit une requête pose problème ??

Merci à tous

[micniv]

et que dirais -tu de remplacer projet par ... ce qui faut

Code :

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

Public Function concat_type(Projet As Long) As String

Bonne journée

[Sami Xite]

et que dirais -tu de remplacer projet par ... ce qui faut

Code :

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

Public Function concat_type(Projet As Long) As String

Bonne journée

J'ai honte !!
Modifs ok

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 concat_type(id_commande As long) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les types de commande
SQL = "SELECT type FROM cpt_type WHERE id_commande=" & id_commande
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrement
While Not res.EOF
concat_type = concat_type & res.Fields(0).Value & " "
res.MoveNext
Wend
'Enleve le dernier espace
concat_type = Left(concat_type, Len(concat_type) - 1)
'libere la mémoire
Set res = Nothing
End Function

mais maintenant j'ai

Erreur d'execution
Type de données incompatible dans l'expression du critère

J'ai modifié string par integer et/ou long mais j'avoues ne pas tout comprendre là

Gracias

[micniv]

entre les lignes

Code :

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

1
2
SQL = "SELECT type FROM cpt_type WHERE id_commande=" & id_commande
Set res = CurrentDb.OpenRecordset(SQL)

Insère

Code :

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

Debug.print SQL

Tu en consulteras le résultat dans la fenêtre Exécution (du VBA editeur) ca devrait pouvoir t'aider

[Sami Xite]

No problemo sur le sql
mais rien à faire au niveau de l'erreur sur la requête...

Merci en tout cas

[micniv]

mais quand tu passes la requete obtenu dans le debug.print dans l'éditeur de requete (donc par copier/coller du sql dans le QBE ), ça donne quoi ?

[Sami Xite]

Code :

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

SELECT type FROM cpt_type WHERE id_commande=52677

Autant pour moi voilà ce qui ressort

Thanx

[micniv]

alors la fenetre de la base, tu vas dans le module des requêtes
Tu fais Nouveau (pour Création d'une nouvelle requete),
sur la fenetre qui te propose de choir des tables ou des requetes, tu fais Fermer
dans le bandeau bleu supérieur de la fenetre, tu cliques droit : tu choisis "mode Sql"
dans la fentre, tu colles le texte de ta requete ci-dessus, tu sauves et tu joues la requete : elle passe ou elle plante ?

[Sami Xite]

Ca nous donne un "Type de donnée incompatible dans l'expression du critère" que j'ai corrigé en ajoutant les guillemets de rigueur:

Code :

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

SELECT type FROM cpt_type WHERE id_commande="52677"

Je vois pas ce qui cloche dans le module ...

[DMboup]

Essai

Code :

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

1
2
3
 
SELECT DISTINCT id_commande, concat_type([id_commande]) AS Colisage
FROM cpt_type;