IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Concaténer enregistrements dans plusieurs colonnes


Sujet :

VBA Access

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    208
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2004
    Messages : 208
    Points : 76
    Points
    76
    Par défaut Concaténer enregistrements dans plusieurs colonnes
    Bonjour,

    J'ai utilisé l'excellent tuto : http://access.developpez.com/sources/?page=Requete
    pour concaténer plusieurs enregistrements sur une colonne

    Est il possible d'adapter le module repris :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
     
    Public Function RecupParticipant(Projet As Long) As String
    Dim res As DAO.Recordset
    Dim SQL As String
    'Selectionne les participant du projet
    SQL = "SELECT NomParticipant FROM Tbl_Projet WHERE Projet=" & Projet
    Set res = CurrentDb.OpenRecordset(SQL)
    'Concatene les différents enregistrement
    While Not res.EOF
    RecupParticipant = RecupParticipant & res.Fields(0).Value & " "
    res.MoveNext
    Wend
    'Enleve le dernier espace
    RecupParticipant = Left(RecupParticipant, Len(RecupParticipant) - 1)
    'libere la mémoire
    Set res = Nothing
    End Function
    Pour l'appliquer à plus d'un champs?
    Par exemple à partir d'une table avec les champs suivants

    id | champs1 | champs2

    obtenir : id | champs1 concaténé | champs2 concaténé

    Merci à toutes et tous

  2. #2
    Modérateur

    Homme Profil pro
    Inscrit en
    Octobre 2005
    Messages
    15 323
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations forums :
    Inscription : Octobre 2005
    Messages : 15 323
    Points : 23 758
    Points
    23 758
    Par défaut
    Pour obtenir
    id | champs1 concaténé | champs2 concaténé
    Il ne faut pas travailler sur plusieurs champs en même temps mais plusieurs fois sur un champ à la fois.

    Donc voici une version modifiée du code qui te permet de faire cela.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
     
    Public Function RecupParticipant(prmNomChamp as string, Projet As Long) As String
     
    dim db as dao.database:set db=currentdb
     
    Dim res As DAO.Recordset
    Dim SQL As String
    'Selectionne les participant du projet
    SQL = "SELECT " & prmnomChamp & " FROM Tbl_Projet WHERE Projet=" & Projet
    Set res = CurrentDb.OpenRecordset(SQL)
    'Concatene les différents enregistrement
    While Not res.EOF
    RecupParticipant = RecupParticipant & res.Fields(0).Value & " "
    res.MoveNext
    Wend
    'Enleve le dernier espace
    RecupParticipant = Left(RecupParticipant, Len(RecupParticipant) - 1)
    'libere la mémoire
    Set res = Nothing
    End Function
    Il faudrait aussi changer le nom de la procédure.

    A+
    Vous voulez une réponse rapide et efficace à vos questions téchniques ?
    Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
    Et aussi regardez dans la FAQ Access et les Tutoriaux Access. C'est plein de bonnes choses.

  3. #3
    Membre régulier
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    208
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2004
    Messages : 208
    Points : 76
    Points
    76
    Par défaut
    Merci beaucoup pour l'aide mais à vrai dire je ne comprends pas tout
    J'ai une table maTable comprenant les champs : id, shipping,vendor, subvendor
    avec shipping type Entier
    vendor type String
    subvendor type String

    que je voudrais concaténer dans 3 champs distincts : ( concat_shipping,concat_vendor et concat_subvendor ) pour chaque id

    Si je reprends ton code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Public Function concat(shipping_id As Integer, vendor As String,subvendor as String) As String
    Dim db As DAO.Database: Set db = CurrentDb
    Dim res As DAO.Recordset
    Dim SQL As String
    Et là je coince ... Pourquoi id n'est il pas repris ?

    Merci pour ton aide

  4. #4
    Modérateur

    Homme Profil pro
    Inscrit en
    Octobre 2005
    Messages
    15 323
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations forums :
    Inscription : Octobre 2005
    Messages : 15 323
    Points : 23 758
    Points
    23 758
    Par défaut
    Ce que tu veux

    à partir de

    • ID1, VendorA, SubContractorA
    • ID1, VendorB, SubContractorB
    • ID1, VendorC, SubContractorC


    c'est :

    a) ID1, VendorA, SubContractorA, VendorB, SubContractorB, VendorC, SubContractorC

    ou

    b) ID1, VendorA, VendorB, VendorC, SubContractorA, SubContractorB, SubContractorC

    ?

    Et tout cela dans une seule chaine de caractères ?

    A+
    Vous voulez une réponse rapide et efficace à vos questions téchniques ?
    Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
    Et aussi regardez dans la FAQ Access et les Tutoriaux Access. C'est plein de bonnes choses.

  5. #5
    Expert éminent sénior

    Avatar de Tofalu
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Octobre 2004
    Messages
    9 501
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Octobre 2004
    Messages : 9 501
    Points : 32 311
    Points
    32 311
    Par défaut
    Bonjour

    Il suffit de concatener les deux appels fonctions. En reprenant la fonction donnée par marot, on aura :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    SELECT DISTINCT Tbl_projet.Projet, Recupparticipant(champ1,Projet) & " " & Recupparticipant(champ2,Projet) AS LesParticipants
    FROM Tbl_projet;
    Et on aura bien : id | champs1 concaténé | champs2 concaténé

Discussions similaires

  1. compter dans plusieur colonne
    Par fabrice44 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 23/04/2007, 18h19
  2. Réponses: 4
    Dernier message: 28/03/2007, 18h27
  3. Réponses: 1
    Dernier message: 08/03/2007, 13h35
  4. Recherche dans plusieurs colonnes d'une table
    Par yoline dans le forum Access
    Réponses: 4
    Dernier message: 26/07/2006, 12h58
  5. Concaténer des lignes d'enregistrements dans une colonne
    Par dany13 dans le forum MS SQL Server
    Réponses: 10
    Dernier message: 08/07/2005, 22h56

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo