Discussion :

[pierre22]

bonjour

A partir d'une requete nomé concatene vide à deux champs, 23 et boucle je souhaite concaténer sur une meme ligne tous les enregistrement du champ boucle qui ont comme point commun le champ 23 (le champ 23 est un champ texte)
voici le sql de ma requete

Code :

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

1
2
3
4
SELECT concatenevides.[23], ConcatvideForQuery("23",[23],"boucle","concatenevides"," - ") AS Résultat
FROM concatenevides
GROUP BY concatenevides.[23]
ORDER BY ConcatvideForQuery("23",[23],"boucle","concatenevides"," - ");

pour cela j'utilise ce module

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Option Compare Database
 
Public Function RecupParticipant(Projet As Long) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les participant du projet
SQL = "SELECT * FROM Tbl_Projet WHERE Projet=" & Projet
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrement
While Not res.EOF
RecupParticipant = RecupParticipant & res.Fields(0).Value & " "
res.MoveNext
Wend
'Enleve le dernier espace
RecupParticipant = Left(RecupParticipant, Len(RecupParticipant) - 1)
'libere la mémoire
Set res = Nothing
End Function
 
 
Function ConcatvideForQuery(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
ConcatvideForQuery = strResult
 
End Function

et bien sur cela ne marche pas.
Access me renvoi "erreur d'exécution 3061, trop peu de parametres.1 attendu"

Merci de votre aide

[vodiem]

salut pierre22,

je sais que cela ne répond pas à ta question mais tu as une source de notre ami philben qui fonctionne lui très bien ici.

[pierre22]

bonjour vodiem
je viens d' essayer la fonction à philben

dans ma requete je place l'expression

Code :

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

boucle: ConcatColonne([23];"23";"boucle";"concatenevides";"";Faux;Null;"-")

à l'ouverture de la requete j'ai "erreur" dans le champ boucle

[belu33fr]

Code :

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

1
2
3
4
SELECT concatenevides.[23], ConcatvideForQuery("23",[23],"boucle","concatenevides"," - ") AS Résultat
FROM concatenevides
GROUP BY concatenevides.[23]
ORDER BY ConcatvideForQuery("23",[23],"boucle","concatenevides"," - ");

pour cela j'utilise ce module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
 
[...]
 
Function ConcatvideForQuery(strRegroup As String, fldRegroup As String, _
    strConcat As String, strTable As String, _
    Optional strSep As String = "/") As String
[..] 
strRst = "Select * From [" & strTable & "] " _
    & "Where [" & strRegroup & "] = """ & fldRegroup & """;"
[...] 
End Function

Si j'ai bien tout compris le resultat de strRst sera

Code :

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

SELECT * FROM [concatenevides] WHERE [23]="[23]"

Cela signifie-t-il que tu recherche les valeurs [23] dans le champ [23]?
J'ai pas tres bien compris ce que fait cette requete

[belu33fr]

Suis je con ... je le pense

Code :

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

1
2
3
4
SELECT concatenevides.[23], ConcatvideForQuery("23",[23],"boucle","concatenevides"," - ") AS Résultat
FROM concatenevides
GROUP BY concatenevides.[23]
ORDER BY ConcatvideForQuery("23",[23],"boucle","concatenevides"," - ");

Ta requete initiale a un Group by qui n'est pas correct. Il doit comprendre tous les membres de la clause select qui n'ont pas une operation de regroupement du type sum,count, etc
Ta fonction n'est pas une fonction de regroupement donc elle doit apparaitre dans la clause groupeby

[pierre22]

bonjour Belu33fr

merci de t'interesser à mon probleme

tu me dis

Ta requete initiale a un Group by qui n'est pas correct. Il doit comprendre tous les membres de la clause select qui n'ont pas une operation de regroupement du type sum,count, etc
Ta fonction n'est pas une fonction de regroupement donc elle doit apparaitre dans la clause groupeby

mais voila si tu pouvais etre plus explicite parceque la vu mon niveau je suis dépassé

merci

[belu33fr]

Tu ecris

Code :

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

1
2
3
4
SELECT concatenevides.[23], ConcatvideForQuery("23",[23],"boucle","concatenevides"," - ") AS Résultat
FROM concatenevides
GROUP BY concatenevides.[23]
ORDER BY ConcatvideForQuery("23",[23],"boucle","concatenevides"," - ");

il faudrait que tu ecrives

Code :

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

1
2
3
4
SELECT concatenevides.[23], ConcatvideForQuery("23",[23],"boucle","concatenevides"," - ") AS Résultat
FROM concatenevides
GROUP BY concatenevides.[23], ConcatvideForQuery("23",[23],"boucle","concatenevides"," - ")
ORDER BY ConcatvideForQuery("23",[23],"boucle","concatenevides"," - ");

Mais le probleme est que cela ne sert a rien car il n'y a pas de fonction de regroupement du type SUM(), AVERAGE(), COUNT() dans la clause select.
La syntaxe qui devrait donc macher est:

Code :

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

1
2
3
SELECT concatenevides.[23], ConcatvideForQuery("23",[23],"boucle","concatenevides"," - ") AS Résultat
FROM concatenevides
ORDER BY ConcatvideForQuery("23",[23],"boucle","concatenevides"," - ");