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

 1224103 visiteurs

 10 visiteurs en ligne

Nous contacter

Contact

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 : Les mémos - Tables
Page lue 9845 fois
Vous êtes ici :   Accueil » Concaténer une colonne