Discussion :

[karidrou]

Bonjour,
J'ai une table qui contient les données sous cette forme :
CODE TT DUR
KD MOD 2
KD SUP 1
KD COR 2
ND MOD 1
EN MOD 1
EN MOD 1
EN SUP 2
Je voudrais créer une requete qui "additionne" les valeurs pour chaque code, ce qui donnera :
CODE TT DUR
KD MODSUPCOR 5
ND MOD 1
EN MODSUP 4

Je sais pas si cela est possible, avez-vous une petite idée?
Merci
KD MODSUPCOR

[Jean-Philippe André]

salut,
tu as ici deux notions distinctes à traiter
- la concaténation de valeurs
- la somme de valeur

des indices dans la FAQ : http://access.developpez.com/sources...QLLigneColonne

et dans l'aide en ligne sur SUM()

[karidrou]

J'ai testé le lien donné et je l'ai adapté (enfin essayé car cela ne fct pas).
Je travaille sur une requete nommé R_AVEC_TT_DUREE et pas une table
Voici le code de mon module :

Public Function RecupTT(sep_codepat As Text) As String
Dim res As DAO.Recordset
Dim SQL As String
'selectionne les TT du codepat
SQL = "SELECT TRAITEMENT FROM R_AVEC_TT_DUREE WHERE sep_codepat=" & sep_codepat
Set res = CurrentDb.OpenRecordset(SQL)
'concatene les différents enregistrements
While Not res.EOF
RecupTT = RecupTT & res.Fields(0).Value & " "
res.MoveNext
Wend
'enleve le dernier espace
RecupTT Left(RecupTT, Len(RecupTT) - 1)
'Libere la memoire
Set res = Nothing
End Function

et voici ma requete :

SELECT DISTINCT R_AVEC_TT_DUREE.sep_codepat, RecupTT(sep_codepat) AS patient
FROM R_AVEC_TT_DUREE;

Et enfin voici le message d'erreur : erreur de compilation. dans l'expression 'RecupTT(sep_codepat)'.
Je suis bloquée, pouvez-vous m'eclairer dans mon erreur
Grand merci

[noobiewan kenobi]

D'après l'exemple dont tu t'es inspirée, je crois que tu as oublié un "=" dans une de tes lignes :

Code :

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

RecupTT = Left(RecupTT, Len(RecupTT) - 1)

Dans ta requête, je ne sais pas si tu es obligée de répéter le nom de ta table R_AVEC_TT_DUREE pour ton champ, puisque tu travailles dans cette table. Après, je ne m'y connais pas assez pour savoir s'il y a un gain ou une perte de temps.

[karidrou]

Merci j'avais pas vu cet oubli mais ca ne change pas mon pb toujours le même message d'erreur qd je lance ma requete

[Jean-Philippe André]

salut,
je propose ceci :

Code SQL :

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

1
2
SELECT sep_codepat, RecupTT(sep_codepat) AS patient
FROM R_AVEC_TT_DUREE GROUP BY R_AVEC_TT_DUREE.sep_codepat;

[karidrou]

Bonjour,
Je suis tjs sur mon pb. Après de nombreux essais, je pense que c'est cette partie qui bloque WHERE sep_codepat=" & sep_codepat
j'ai un message "erreurd'exécution '3061' trop peu de parametres. 1 attendu"
c'est peut etre une erreur de synthaxe ?
Qu'en pensez-vous?

[Jean-Philippe André]

salut,
bon alors on va reprendre,
- tu passes quelle valeur en paramètre (à mettre en type String au lieu de Text selon moi)?
- quelle est la valeur de SQL avant son exécution ?

[karidrou]

Bon j'ai trouvé, il fallait mettre :
WHERE sep_codepat='" &sep_codepat &"'"
Mais par contre c'est super lent...pls min pour tout afficher
Merci pour votre aide