Discussion :

[bleu_ciel]

Bonjour,

Table :

Id Nom Date Tx
1 MARTIN 01/05/2006 13.4
1 MARTIN 02/05/2006 6.5
1 MARTIN 03/05/2006 7
1 MARTIN 03/05/2006 8

Je voudrais faire une requête qui me donne le résultat suivant :

Id Nom Commentaires
1 MARTIN 01/05/2006 13.4 - 02/05/2006 6.5 - 03/05/2006 7 - 03/05/2006 8

(1 seul champ commentaires par Id quelque soit le nb d'enregistrements par Id)

Merci pour votre aide

[ft035580]

Salut,

Décidemment BleuCiel tu auras été assidü(e) au Forum ce week-end.

Le forum est un génial outil mais il serait bon que tu essaies de réfléchir par toi même.
Exemple:Tu as commencé quelque chose et dès que ça bloque tu nous en fais part.

Actuellement,j'ai l'impression que tu nous soumets ton "truc"(=problème) et tu attends la réponse (CE N'EST PAS LE PRINCIPE !!!!!)

=>Inscription hier 27/05/06 et 4 discussions ouvertes (sur le même sujet).
Un petit effort

Cordialement.

[bleu_ciel]

Effectivement j'ai été assidue ce WE.
Je débute sur Access et avant de poster sur ce forum j'ai passé une semaine à rechercher Ds des livres et sur tous les forums, faq les réponses à mes différentes questions et je ne suis pas du genre à poster dès que ça bloque, je préfère trouver par moi-même, j'ai réalisé plusieurs requêtes mais sur celle-ci je bloque, tu m'as beaucoup aidé si tu regrettes, tant pis!

Cordialement

[Arkham46]

Slt,

Sans VBA je ne connais pas de truc pour faire ça.
(Que quelqu'un m'arrête si je me trompe)

Je le ferais donc avec une fonction en VBA, du style :

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
Public Function ConcateneCommentaire(pId As Long) As String
    Dim ldb As DAO.Database
    Dim lrs As DAO.Recordset
    ' Base courante
    Set ldb = CurrentDb
    ' Jeu d'enregistrements ayant le même Id
    Set lrs = ldb.OpenRecordset("select * from TaTable where id = " & pId)
    If lrs.RecordCount > 0 Then
        lrs.MoveFirst
        ' Concatenate les informations
        While Not lrs.EOF
            ConcateneCommentaire = ConcateneCommentaire & lrs!Date & " " & lrs!tx & " - "
            lrs.MoveNext
        Wend
        ' Retire le dernier " - "
        ConcateneCommentaire = Left(ConcateneCommentaire, Len(ConcateneCommentaire) - 3)
    End If
    ' Ferme les objets DAO
    lrs.Close
    Set lrs = Nothing
    Set ldb = Nothing
End Function

(c'est vite fait mais ça devrait marcher)

Pour les explications sur DAO et les objets recordset il y a un tutoriel :
http://warin.developpez.com/access/dao/

Et la requête devient :

Code :

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

1
2
SELECT DISTINCT TaTable.Id, TaTable.Nom, ConcateneCommentaire([Id]) AS Commentaire
FROM TaTable;

(L'ID étant unique et de type numérique.)