Concatenation via code VBA

Version imprimable

1 pièce(s) jointe(s)

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 :

Pièce jointe 651436

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:

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

27/02/2024, 14h47
ONTAYG

Bonjour,

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

ONTAYG

Bonjour ,

j'ai fais le module suivant :

Code:

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:

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 :roll:

27/02/2024, 15h37
ONTAYG

Essayes

Code:

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.
27/02/2024, 15h43
omen123

je ne dispose pas du champ projet dans ma requete /table
27/02/2024, 16h03
ONTAYG

Citation:

Envoyé par omen123

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.

1 pièce(s) jointe(s)

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

Code:

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

le code :

Code:

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 :

Pièce jointe 651442

28/02/2024, 10h54
omen123

Bonjour ,

si quelq'un peux me débloquer svp
28/02/2024, 13h07
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 ?
28/02/2024, 13h14
omen123

ce qui veut dire ? dois je changer le type des element ?
28/02/2024, 13h36
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).
28/02/2024, 13h37
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...) ?
28/02/2024, 13h40
omen123

1 pièce(s) jointe(s)

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

Pièce jointe 651495
28/02/2024, 14h18
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