Discussion :

[pierre22]

bonjour
j' essaye de concaténer plusieurs enregistrements dans une colonne en suivant la méthode décrite par Tofalu version 05 03 2005.
mon probleme est qu'à l'ouverture de la requete access me demande de selectionner la source de données.
sans doute un probleme de référence DAO .
pouvez vous m' eclairer sur le sujet
merçi

[Invité]

Bonjour

Avec le code on pourrait mieux t'aider, non ?

Starec

[pierre22]

création de la table Projet avec 2 colonnes projet et nom Participant

DU 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
 Public Function RecupParticipant(Projet As Long) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les participant du projet
SQL = "SELECT NomParticipant 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

ET ENFIN LA REQUETE

Code :

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

1
2
 SELECT DISTINCT Tbl_projet.Projet, Recupparticipant(Projet) AS LesParticipants
FROM Tbl_projet;

le probleme, à l'ouverture de la requete access me demande de sélectionner la source de données

[francishop]

Bonsoir,

Dans ce projet = "CurrentDb" se trouve une table-->Tbl_Projet
Et dans cette table un champ-->NomParticipant?

Cordialement.

Ps : Recupparticipant ou RecuParticipant

[mout1234]

le probleme, à l'ouverture de la requete access me demande de sélectionner la source de données

Pour mieux cerner le problème, commence par essayer ta fonction, en mode pas à pas, avec une valeur d'exemple.

Si tu as dans ta table tbl_Projet un projet dont le code est 1 par exemple, va dans le vbe (Alt + F11) et dans la fenêter d'exécution (Ctrl + G) et tapes:

Code :

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

?RecupParticipant(1)

[pierre22]

merci pour votre aide

apres vérification mon module fonctinne tres bien en mode d 'execution pas à pas. Les regroupements sont parfaits
Malgré tout à l 'ouverture de la requete access me demande toujour de préciser la source

[francishop]

Bonsoir,

Pièce jointe 19034

Cordialement.

[philben]

bonjour,

une alternative générique (il faut activer la référence DAO) :

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
 
Public Function ConcatColonne(vValeurPivot As Variant, _
                              sNomColonnePivot As String, _
                              sNomColonneConcat As String, _
                              sNomDomaine As String, _
                              sSeparateur As String) As String
   On Error GoTo errtag
   Dim oDb As DAO.Database
   Dim oRs As DAO.Recordset
   Dim sSQL As String
   If IsNull(vValeurPivot) Then Exit Function
   sSQL = "SELECT " & sNomColonneConcat & " & '" & sSeparateur & "' As C FROM " & _
          sNomDomaine & " WHERE " & sNomColonnePivot & "="
   Select Case VarType(vValeurPivot)
   Case vbString
      sSQL = sSQL & """" & vValeurPivot & """"
   Case vbDate
      sSQL = sSQL & CDbl(vValeurPivot)
   Case Else
      sSQL = sSQL & CStr(vValeurPivot)
   End Select
   sSQL = sSQL & " ORDER BY " & sNomColonneConcat
   Set oDb = CurrentDb
   Set oRs = oDb.OpenRecordset(sSQL, dbOpenForwardOnly)
   While Not oRs.EOF
      ConcatColonne = ConcatColonne & oRs(0)
      oRs.MoveNext
   Wend
   ConcatColonne = Left$(ConcatColonne, Len(ConcatColonne) - Len(sSeparateur))
fin:
   Set oDb = Nothing
   Set oRs = Nothing
   Exit Function
errtag:
   ConcatColonne = "Erreur !"
   Resume fin
End Function

utilisation dans votre cas :

Code :

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

1
2
Debug.print ConcatColonne(Projet,"Projet","NomParticipant","Tbl_Projet",", ")

cordialement,

Philippe

[pierre22]

merci de votre aide
la solution fonctionne sur un champ de regroupement texte,
Mon champs de regroupement est un champs numérique et le module bug?
si vous pouviez m' aider
merci

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

[philben]

bonjour,

modifier la ligne correspondante ainsi :

Code :

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

1
2
3
strRst = "Select * From [" & strTable & "] " _
    & "Where [" & strRegroup & "] = " & fldRegroup & ";"

Philippe

[pierre22]

tres bien tout fonctionne à merveille
Félicitation pour la qualité du site
merci

[francishop]

Bonjour,

Je ne sais pas ce que j'ai mis en pièce jointe hier, mais ....Vraiment n'importe quoi.
J'en ai profité pour adjoindre l'envoi de Philben. C'est excellent. Comme tout son travail. Allez jeter un coup d'oeil sur son envoi de géolocalisation :http://www.developpez.net/forums/sho...d.php?t=296300
Pour ma part je m'en suis servi avec les communes Françaises(Site de Raymond). Accouplé au Tuto d'Arkham sur les images, lorsqu'on sélectionne une commune : en dehors du classique département, région, etc. -->
Distance à vol d'oiseau par rapport à une commune de référence, Altitude + Cap par rapport à cette commune de référence et pour le plaisir une flêche qui indique ce cap. Merci Philben
(Pour la distance parcourue par les bipèdes + 18% environ)

Cerise sur le gateau http://ardecheearth.free.fr/telechar...unes_earth.zip Chaque commune de plus de 4.000 habitants possède son site officiel (2270 villes) et 13.385 sites officiels plus 501 sites alternatifs (sites personnels non officiels) sont répertoriés pour l'ensemble des communes (38% des communes). Toutes les communes possèdent leurs coordonnées géographiques.

Cordialement.

Ps : J'oubliais...(Je suis vraiment distrait :Pièce jointe 19040
Toujours la tête ailleurs : ConcatForQuery que j'ai également adjoint est de Jessy Sempere

[philben]

Très heureux que ça puisse te rendre service. Grand merci à toi Francishop !

Philippe