Discussion :

[stefposs]

Salut,

la réponse se trouve peut-être déjà dans le forum mais là je n'ai pas trouvé
et les sources sur le sujet ne m'ont pas beaucoup aidé vu mes faibles compétences en VBA.

Donc, j'ai 4 champs avec une valeur dans chaque. Je souhaiterais regrouper leur contenu en un seul champ (facile) mais en sachant qu'il peuvent tous avoir des valeur identiques et que dans ces cas là je ne veux pas concaténer 2 fois la même valeur. Enfin l'idéal serait que les valeurs soient triées de façon croissante.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
ChampA     ChampB     ChampC     ChampD
1          2          4          2
2          3          5          1
           4          4          2
9          9          9          9
 
ChampConcaténation
1,2,4
1,2,3,5,1
2,4
9

Est-ce que mon explication vous parait claire ?
Si oui, y a une solution simple ?

Merci.

[Tofalu]

L'exemple donné dans les pages sources est pourtant assez précis. Où bloques tu réellement ?

[stefposs]

Eh bien ma foi la mise en oeuvre classique comme dans les sources j'y arrive

par contre je ne vois pas comment faire pour ne pas obtenir :

ChampConcatenation
1,2,4,2
2,3,5,1
4,4,2
9,9,9,9

mais bien le résultat que je donne dans ma question.

la modification que j'ai apportée dans le code pour récupérer les champs est :

Code :

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

RecupProjet = RecupProjet & res.Fields(0).Value & ";" & res.Fields(1).Value & ";" & res.Fields(2).Value & ";" & res.Fields(3).Value

[stefposs]

En fait même pour compléter ma question il faudrait que je puisse concaténer les 4 champs de tous les enregistrement donc un Id est identique :

Code :

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

1
2
3
4
5
6
7
8
9
Id     ChampA     ChampB     ChampC     ChampD
1      1          2          4          2
1      2          3          5          1
2                 4          4          2
2      9          9          9          9
 
Id     ChampConcatenation
1      1,2,3,4,5
2      2,4,9

[Tofalu]

Il suffit d'adapter un petit peu

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 Function ToLigne(Id As Long) As String
Const SEPARATOR = ","
Dim res As DAO.Recordset
Dim SQL As String
Dim strTempValeur As String
'Selectionne les participant du projet
SQL = "SELECT ChampA,ChampB,ChampC,ChampD FROM matable WHERE Id=" & Id
Set res = CurrentDb.OpenRecordset(SQL)
ToLigne = SEPARATOR
'Concatene les différents enregistrement
While Not res.EOF
    For i = 0 To 3
        If Nz(res.Fields(i).Value) <> "" Then
            strTempValeur = res.Fields(i).Value
            If InStr(1, ToLigne, SEPARATOR & strTempValeur & SEPARATOR) = 0 Then _
            ToLigne = ToLigne & res.Fields(i).Value & SEPARATOR
        End If
    Next i
res.MoveNext
Wend
'Enleve le dernier espace
ToLigne = Mid(ToLigne, 2, Len(ToLigne) - 2)
'libere la mémoire
Set res = Nothing
End Function

Autre solution, transfomer la table en une requête à deux colonnes :ID, Valeur reprennant la liste des données (requête UNION) et utiliser l'exemple des sources

[mike2302]

et si on veut juste l'integralité du champ A et du champ C comment fait on?
on utilise le "&" pour concatener les 2 champs?

[stefposs]

Pour ça à partir de la source d'origine c'est pas compliqué :

Code :

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

1
2
3
4
 
SQL = "SELECT ChampA,ChampC FROM matable WHERE Id=" & Id
(...)
RecupProjet = RecupProjet & res.Fields(0).Value & ";" & res.Fields(1).Value

[stefposs]

Tofalu : je ne peux dire qu'une chose... BRAVO et MERCI
(ah tiens ça fait deux...)

[stefposs]

euh en fait je suis allé un peu vite (merci quand même !) :

donc est-ce qu'on peut concaténer les 4 champs de tous les enregistrement dont les Id sont identiques ? (voir question plus haut) ?

Ou alors je suis obligé de faire ça en deux fois ?
- première passe avec ta routine
- deuxième passe avec la routine classique issue des sources pour tout regrouper par Id ?

[Tofalu]

Non, une seule passe :

Code sql :

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

1
2
3
4
SELECT 
 
  DISTINCT ID, TOLIGNE(ID)
FROM MATABLE

[stefposs]

pffff.... je crois que me voilà bien fatigué !

tout baigne ! merci.