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.

[omen123]

J'ai esseyé de refaire mon ancien code et de creer la requete suivante

Code :

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

1
2
SELECT DISTINCT CFRP, ConcatForQuery("CFRP",[CFRP],"GSM","matable_1") AS TEL2
FROM matable_1;

le code :

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
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 strResult = "" Then
                strResult = Nz(.Fields(strConcat), "")
            ElseIf Nz(.Fields(strConcat), "") <> "" Then
                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

malheuresement j'ai tjrs l"erreur suivante :

[omen123]

Bonjour ,

si quelq'un peux me débloquer svp

[Paraffine]

Bonjour,

D'un point de vue purement technique, le 2e argument d'appel de la fonction ConcatForQuery est supposé être de type string.
Si je comprends comment ça fonctionne, ce 2e argument devrait plutôt être la valeur de regroupement, donc il faudrait appeler ConcatForQuery pour chaque titulaire, non ?

[omen123]

ce qui veut dire ? dois je changer le type des element ?

[Paraffine]

Je dirais qu'il faut faire une boucle sur la lecture des différents IDF_NUM_TIERS.
Pour chaque valeur de IDF_NUM_TIERS, on met à jour la nouvelle colonne avec ConcatForQuery("CFRP", VALEUR_DE_IDF_NUM_TIERS, "GSM", "matable_1").
Si la fonction ne doit pas être réutilisée ailleurs et que IDF_NUM_TIERS n'est pas de type "string", il faut se poser la question de changer le type dans la fonction (sans oublier d'adapter la requête, notamment en enlevant les guillemets si c'est numérique).

[Paraffine]

En fait, s'agit-il créer une nouvelle table ? Avec une seule ligne par titulaire ? Ou est-ce juste une restitution dynamique (pour un formulaire, un état...) ?

[omen123]

pas vraiment besoin soit de creer soit faire une requete , je viens de conulter les types des elements ils sont tous format texte .ce que j'arrive pas a comprendre c'est ce ces codes fonctionnent dans une autre application

[tee_grandbois]

bonjour,
il manque l'instruction Do Until rst.EOF dans le code du post #7 entre les lignes 16 et 17, alors qu'il y est bien dans celui du post #1 (ligne 20), c'est peut-être ça la cause de l'erreur de compilation ...
le premier réflexe à avoir quand on a terminé de coder du VBA, c'est de le compiler