Discussion :

[Baichette]

Bonjour à Tous,

J'ai une requête qui a le code 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Public Function Toto(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
Toto = strResult
 
End Function

La ligne : strResult = .Fields(strConcat) ne marche pas et renvoit une erreur 3265.

Pour tout dire j'ai récupéré ce code sur internet: concaténation de valeurs d'un même champ d'une table. En revanche moi j'essaye de le faire fonctionner pour concaténer les valeurs d'un même champ d'une requête. Est-ce que ça vient de là?

Ca fait plusieurs heures que je rame... Si quelqu'un peut m'aider, ce serait d'un grand secours.

Merci

Baichette

[LedZeppII]

Bonjour, et bienvenue sur le forum.

Je dirai que la fonction toto est appelée avec un mauvais nom de champ dans strConcat.
Si dans une requête, un champ portant le même nom est sélectionné dans plus d'une table, son nom est NomTable.NomChamp.
Ouvre ta requête et vérifie le nom de la colonne correspondant à ton champ strConcat.

A+

[vodiem]

bienvenu Baichette et salut LedZeppII

bien que cela n'est pas en rapport avec l'erreur 3265, je voulais faire remarquer que la condition .bof n'est pas une condition suffisante pour déterminer qu'un recordset est vide. il faut lui adjoindre .eof sinon tester le .recordcount

bien qu'il soit peu probable qu'après une ouverture on se trouve sur un .bof avec des enregistrements qui fausserait la fonction.

ps: erreur 3265 => le champ <strConcat> n'est pas présent dans le recordset.
autrement la fonction, fonctionne.