Discussion :

[spirou33]

Bonjour,

je cherche à faire une table croisée avec des valeurs textuelles. C'est à dire comme une requête "TRANSFORM" mais dans la zone valeur je souhaite afficher du texte à la place d'une somme.

Quelqu'un à déjà eu ce type de problème ?

Merci.

Voir exemple :

table d'origine :

Programme |Domaine |Statut
PER001 |AS |1
PER002 |AS |2
PER003 |PROD |1
PER004 |PROD |1
PER005 |PROD |2
PER006 |PROD |3
PER007 |PROD |4
PER008 |PROD |1
PER009 |KC |1
PER010 |KC |2
PER011 |KC |3
PER012 |KC |4
PER013 |KC |1
PER014 |KC |1

Table résultat :

|1 |2 |3 |4
AS |PER001 |PER002
PROD |PER003, PER004, PER008 |PER005 |PER006 |PER007
KC |PER009, PER013, PER014 |PER010 |PER011 |PER012

[random]

mettre premiere dans la formuler de regroupement

[spirou33]

Pardon mais je n'ai pas compris la reponse ?
Il faut que j'utilise une requête de type "TRANSFORM" ?

[spirou33]

Mon problème n'inspire personne ?

[random]

Code :

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

1
2
3
4
5
6
 
TRANSFORM First(mdom("matable",[statut],[domaine])) AS Expr1
SELECT matable.domaine
FROM matable
GROUP BY matable.domaine
PIVOT matable.statut;

avec

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
Function mdom(tabl As String, statut As Long, domaine As String) As String
Dim sql As String
Dim rec As DAO.Recordset
sql = "select programme from " & tabl & " where statut= " & statut & " and domaine = '" & domaine & "';"
Set rec = CurrentDb.OpenRecordset(sql)
sql = ""
rec.MoveFirst
Do Until rec.EOF
sql = sql & rec!programme & ","
rec.MoveNext
Loop
sql = Left(sql, Len(sql) - 1)
mdom = sql
 
End Function

[spirou33]

Ca fonctionne aussi trop cool...

Je vais analyser ton code car c'est trop de la balle...