En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1086811 visiteurs

 10 visiteurs en ligne

Concaténer une colonne

Concaténer toutes les valeurs texte d'un champ (d'une colonne) d'une table

Public Function WholeColumn(sT As String, sC As String) As String
    '//
    '// Usage: Debug.Print WholeColomn("LaTable","LeChamp")
    '//
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sTmp As String
    sTmp = ""
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Select [" & sC & "] FROM [" & sT & "];")
    Do Until rs.EOF
        If Len(sTmp) = 0 Then
            sTmp = rs(sC)
        Else
            sTmp = sTmp & ";" & rs(sC)
        End If
        rs.MoveNext
    Loop
    WholeColumn = sTmp
End Function

Catégorie : - Tables
Page lue 8875 fois

Vous êtes ici :   Accueil » Concaténer une colonne