FORUM MP | Access : Concaténation

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Serv: irc.irc-land.org

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

Concaténation
	Forum : ACCESS Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ ACCESS
		SUIVI PAR MAIL INACTIF
		SUJET NON RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

FORUM ACCESS
	Page précedente	Page suivante

BLA94
Nouveau membre

Inscrit : 10/06/2008
Messages : 2

#154069 Posté le 10/06/08 à 18:02

Bonjour,
Je cherche à concaténer (si j'puis dire) le même champ sur différents enregistrements ayant un facteur commun (Client).
J’ai donc une requête, ou une table, avec une colonne CLIENT et une autre GERANT, exemple :
Client / Gerant
A / Annie
A / Doudou Galak
A / Rene
B / Toto
B / Sylvie
B / Marc

Je souhaiterais obtenir une table ou une requête avec les enregistrements suivants :

Client / Gerant
A / Annie - Doudou Galak – Rene
B / Toto – Sylvie - Marc

Pourriez-vous m’aider SVP ?
Merci.

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

francisHop
Membre newbie

Inscrit : 11/05/2008
Messages : 52

#154124 Posté le 12/06/08 à 08:16

Bonjour,

La table-->tbl_Client

La requête :
SELECT tbl_Client.Client, tbl_Client.Gerant,
ConcanEnQuery("Client",[Client],
"[Gerant]","tbl_Client"," - ") AS Gestion
FROM tbl_Client
ORDER BY tbl_Client.Client;

Le code dans un module :

Function ConcanEnQuery(strRegroup As String, fldRegroup As String, _ strConcat As String, strTable As String, _ Optional strSepar As String = "/") As String Dim db As DAO.Database Dim rst As DAO.Recordset Dim strResulta 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 strResulta = "" Then strResulta = .Fields(strConcat) Else strResulta = strResulta & strSepar & .Fields(strConcat) End If .MoveNext Loop End If End With rst.Close: Set rst = Nothing db.Close: Set db = Nothing ConcanEnQuery = strResulta End Function

Cordialement.
__________________________
Le peu que je sais, c'est à mon ignorance que je le dois. Sacha Guitry

HAUT DE PAGE

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.