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

 1263830 visiteurs

 5 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 10062 fois

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