Discussion :

[omen123]

bonjour a tous ,

a la recherche d'une solution pour ma requete ,je me permet d 'exprimer mon besoin . j'ai le tableau ci-dessous :



mon souhait est de concatonner la colonne : Num_compte , donc chaque NTiers dois avoir une seule ligne avec les 3 numero de compte .

quelqu'un m'avait donner ce code , helas j'ai pu alles plus loin sur cette requete :

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
26
27
28
29
30
31
32
33
 
Function ConcatForQuery(strRegroup As String, fldRegroup As String, _
    strConcat As String, strTable As String, _
    Optional strSep As String = " / ") As String
'** Regroupement de donnée sur le champ fldRegroup
'** et concaténation sur le champ strConcat
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strResult As String
Dim strRst As String
 
Set db = CurrentDb()
strRst = "Select * From [" & strTable & "] " _
    & "Where [" & strRegroup & "] = """ & fldRegroup & """;"
 
Set rst = db.OpenRecordset(strRst, dbOpenDynaset)
With rst
    If Not .BOF Then
        .MoveFirst
        Do Until .EOF
            If strResult = "" Then
                strResult = .Fields(strConcat)
            Else
                strResult = strResult & strSep & .Fields(strConcat)
            End If
        .MoveNext
        Loop
    End If
End With
rst.Close: Set rst = Nothing
db.Close: Set db = Nothing
ConcatForQuery = strResult
End Function

[ONTAYG]

Bonjour,

Je pense que tu devrais aller voir là : https://access.developpez.com/source...QLLigneColonne

ONTAYG

[omen123]

Bonjour ,

j'ai fais le module suivant :

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
Public Function RecupProjet(Nom As String) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les  projet du partcipant
'chr(34) correspond a des guillemets pour encadrer le texte
SQL = "SELECT Projet FROM 6 TIERS TEL PROF PP WHERE IDF_NUM_TIERS=" & _
          Chr(34) & Nom & Chr(34)
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrement
While Not res.EOF
    RecupProjet = RecupProjet & res.Fields(0).Value & ";"
    res.MoveNext
Wend
'Enleve le dernier ;
RecupProjet = Left(RecupProjet, Len(RecupProjet) - 1)
'libere la mémoire
Set res = Nothing
End Function

ensuite la requete :

Code :

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

1
2
SELECT DISTINCT 6 TIERS TEL PROF PP.IDF_NUM_TIERS, Recupprojet(NomParticipant) AS NUM_COMPTE
FROM 6 tiers tel prof pp;

Nom de la table : 6 TIERS TEL PROF PP
rassembler par : IDF_NUM_TIERS
champ a concatonner : NUM_COMPTE

apparement j'aurai un probleme de syntaxe

[ONTAYG]

Essayes

Code :

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

SELECT Projet FROM [6 TIERS TEL PROF PP] WHERE IDF_NUM_TIER

Mettre le nom de la table entre crochet car il y a des espaces.

[omen123]

je ne dispose pas du champ projet dans ma requete /table

[ONTAYG]

je ne dispose pas du champ projet dans ma requete /table

Bien sûr il faut adapter la requête, le lien c'est le principe.