Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Re: Concatenation de champs d'enregistrements consécutifs

avatar
01/11/13 19:13
Oui. Il faut dans ce cas passer par un Recordset, et le parcourir en concaténant le champ concerné. De loin, ça pourrait ressembler à ça :
Langage: Visual Basic
Public Function ConcatenerChamp( _ ByVal strSource As String, _ ByVal strChamp As String) As String   Dim rst As DAO.Recordset Dim strResultat As String   Set rst = CurrentDb.OpenRecordset(strSource, dbOpenSnapshot) strResultat = "" While Not rst.EOF If strResultat <> "" Then strResultat = strResultat & ", " strResultat = strResultat & Nz(rst(strChamp), "")   rst.MoveNext Wend   rst.Close Set rst = Nothing ConcatenerChamp = strResultat End Function

La fonction s'appellera de la façon suivante :
Langage: Visual Basic
Dim strTest As String   strTest = ConcatenerChamp("Nom d'une table ou requête", "Nom du champ") MsgBox strTest
Le champ de la table ou de la requête est concaténé, ses valeurs séparées par des virgules. On pourrait encore améliorer la fonction en permettant de choisir le séparateur, ou en améliorant les possibilités de filtres. Mais le principe est là... smiling smiley

Ouala !

-- Hervé Inisan.
SujetAuteurEnvoyé le

Concatenation de champs d'enregistrements consécutifs

phidel1401/11/13 17:41

Re: Concatenation de champs d'enregistrements consécutifs

Hervé Inisan01/11/13 19:13

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter