Réorganisation de données

Fermé
jpl81 Messages postés 17 Date d'inscription mercredi 14 mars 2018 Statut Membre Dernière intervention 23 février 2023 - 16 nov. 2018 à 17:18
yg_be Messages postés 22731 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2024 - 17 nov. 2018 à 11:25
Bonjour à tous,
Je dispose d'une requête avec 3 colonnes et 3 à 5 lignes se disposant comme suis:
Date n° lot articles
16/11/18 13 bijoux
16/11/18 13 voitures
16/11/18 13 animaux
je cherche la solution pour synthétiser cela en une seule ligne avec mes différents articles en colonne car je souhaite faire une étiquette donnant ainsi:
Date n°lot Art1 Art2 Art3
16/11/18 13 bijoux Voitures Animaux

Ainsi sur la même étiquette, j'ai l'ensemble de mes données alors que dans mon cas j'ai 3 étiquettes

Si quelqu'un a une idée je le remercie par avance pour son amabilité.
Bonsoir

2 réponses

yg_be Messages postés 22731 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2024 1 477
16 nov. 2018 à 20:23
bonjour, je propose de faire ainsi, en remplaçant jpl81 par le nom de ta table, que tu as omis de mentionner:
tu crées un module dans lequel tu mets ceci:
Option Compare Database
Option Explicit

Function jplcaty(req As String, ch As String) As String
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset(req)
Do While Not rs.EOF
    If jplcaty = "" Then
        jplcaty = rs.Fields(ch)
    Else
        jplcaty = jplcaty & ", " & rs.Fields(ch)
    End If
    rs.MoveNext
Loop
End Function

tu crées une requête dans laquelle tu mets ceci:
SELECT dt as [Date], nl as [n° lot],
 jplcaty("select articles from jpl81 where format([Date],'yyyymmdd') = '" & format(dt,"yyyymmdd") & "' and [n° lot]= " & nl,"articles" )
FROM (select distinct [Date] as dt, [N° lot] as nl from jpl81)
;
puis tu exécutes la requête.
0
jpl81 Messages postés 17 Date d'inscription mercredi 14 mars 2018 Statut Membre Dernière intervention 23 février 2023
17 nov. 2018 à 10:36
Bonjour,
Je tiens à vous remercier de votre réponse, mais là c'est vraiment au dessus de mes compétences,
Personnellement j'utilise ACCESS avec les fonctions de base c'est à dire les boutons à ma disposition dans la barre du haut,
Je ne connait pas la notion de Module, pouvez vous m'expliquer plus simplement car je sais pas du tout comment accéder à ses fonctions? Est ce dans la requête ou ailleurs?
Je sais pas non plus si votre programmation correspond bien à ma recherche,
Désolé d'être aussi ignorant ou limité mais je suis un simple utilisateur d'ACCESS qui aimerait résoudre ses interrogations mais aussi comprendre ce qu'il fait afin de pouvoir refaire les choses,
Je vous remercie
0
yg_be Messages postés 22731 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2024 1 477
17 nov. 2018 à 11:25
dans la barre du haut, sous "créer", tu vas trouver un bouton "module".
0