[AC-2007] Requête concaténation tronqué à 255 caractères [Résolu]

[Daniel-Gérald]

Bonjour à tous, j'ai un problème lors de ma concaténation de colonnes, la requête me tronque mon résultat à 255 caractères.

Voici le code de mon module

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
34
35
36
37
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 Database
Dim rst As Recordset
Dim strResult As String
Dim strRst As String
Dim Strvide As String
 
 
Set db = CurrentDb()
strRst = "Select * From [" & strTable & "] " _
    & "Where [" & strRegroup & "] = """ & fldRegroup & """;"
Strvide = ""
Set rst = db.OpenRecordset(strRst, dbOpenDynaset)
With rst
    If Not .BOF Then
        .MoveFirst
        Do Until .EOF
            If strResult = "" Then
                strResult = Strvide & .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

et voici ma requete

Code :

Services: ConcatForQuery("MonChamp"; [Monchamp] ;"MonChampConcaténation";"MaTable";"; ")

quelqu'un peut m'aider à résoudre le problème.

Merci

[nico84]

Bonjour,

Essaie de ne pas déclarer strresult comme une string, idem pour la fonction :
soit dim strconcat (sans autre précision)
soit dim strconcat as array

[Daniel-Gérald]

Désolé Nico84, j'ai toujours le même résultat tronqué.

[nico84]

Après essai, une string semble limitée à 1023 caractères en VBA !

Si cela est suffisant, il faudrait exécuter le code en pas à pas pour voir à quel endroit la limite passe de 1023 à 255...

[Daniel-Gérald]

Salut nico84, la limite de 1023 me semble parfait pour moi, mais malheureusement je ne trouve pas ou le code fait passer la limite de 1023 à 255.

Merci

[Daniel-Gérald]

Je vient de faire un essai avec le code qu'il y à sur ce forum et j'ai le même problème, les données de mon champ sont tronqué.

Le code

Code :

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

La requête

Code :

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

[fbtsra]

Bonjour,

Dans le dernier cas c'est le DISTINCT qui pose le problème. Le résultat attendu peut être obtenu avec :

Code :

1
2
3
SELECT Tbl_projet.Projet, Recupparticipant(Projet) AS LesParticipants
FROM Tbl_projet
GROUP BY Tbl_projet.Projet;

BCdt

[Daniel-Gérald]

Super ca fonctionne!!!

Mais il i a un petit inconvenient,

j'aimerais savoir s'y il a un moyen de changé le type de données du champs Projet. Il est en numérique et j'aimerais le mettre en texte. Lorsque je change dans les code du module (As long pour as string) ce ne fonctionne pas.

[Daniel-Gérald]

Merci j'ai trouvé en changant le type de données dans ma table par une commande SQL.

Code :

DoCmd.RunSQL "Alter Table [T_projet] Alter Column [Projet] long;"