Discussion :

[omen123]

Bonjour a tous ,

j'esseye de trouver une solution a une requete je voudrai concatonner les noumero de tel par client ,par exemple :

- mario : 06666
-mario : 07777
-luigi : 04444
- luigi : 03333

le resultat souhaité est :

-mario : 0666/07777
-luigi : 0444/03333
j'ai cre une requte copié du forum est modifié ainsi que le code :

1- la requete :

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;

.

2- le code VBA :

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
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
Do Until rst.EOF
                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

Apparement il y aurai une erreur sur le code , j'ai mis la base en piece jointe ,si klk1 pouurai me filer un coup de main .

merci.

[kick54]

Bonjour,

Tu peux coder ta requête directement en SQL

Code :

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

1
2
3
 
SELECT [CFRP] & " : " & [GSM] AS tel2
FROM matable_1;

Cordialement
la base avec la requête :

base des tels.zip

[omen123]

bonjour ,

j'ai esseyé mais ca ne marche pas, voila le resultat

tel2

22 : 03333333
22 : 0444444
23 : 1111111
23 : 666666
22 : 8888888

[kick54]

Désolé,
j'ai mal interprété ta question, je regarde ...

[kick54]

c'est cela ?

base des tels3.7z

Il y avait un END IF en trop

[omen123]

merci bcp donc il fallait que supprimer quelque chose dans le code :-)

[omen123]

REBONJOUR KICK,

j'ai recopier le code sur ma base reel acces me fais ressortir une erreur , est ce que ce code je pourrai pas l utiliser dans une base ,j'ai bien sur changer les libellé

[kick54]

Il semble que l'interprète trouve un type erroné

Ta base de prod est-elle du même format que celle de développement : extension "accdb" ?

[omen123]

reBonjour ,

je viens de verifier , elles ont la meme extentions ,c est bizare