concatener plusieurs enregistrements [Résolu]

[@rkane]

Bonjour tout le monde,
Je me pose la question de savoir s’il est possible de récupérer dans un champ texte plusieurs enregistrements provenant d’un même champ dans une table.
Plus clairement :
Aujourd’hui j’ai 3 employés en arrêt de travail, je les enregistre dans une table avec la date correspondante. Ca donne donc 3 lignes d’enregistrements.
Je veux récupérer ces 3 noms (après filtrage sur la date bien sûr), concaténés dans un champ texte du formulaire. Est-ce faisable ?
J’ajoute les noms à partir d’une liste déroulante et j’insère l’enregistrement dans la table en validant avec un bouton, donc dans l’idéal, à chaque nom ajouté, il faudrait que la concaténation soit mise à jour.
Je sais filtrer mais je ne vois pas comment rabouter les enregistrements ensemble…

[jpcheck]

Hello,

une solution est disponible dans la
http://access.developpez.com/sources...QLLigneColonne

bien penser a utiliser la avant de poster

[@rkane]

Merci pour la réponse JP

effectivement j'ai crié avant d'avoir mal....

j'ai trouvé cet article juste après avoir posté, et effectivement ça semble correspondre pile poil à ce dont j'ai besoin.

Vous pouvez supprimer mon post qui ne sert donc à rien ni à personne, toutes mes excuses...

[@rkane]

J’ai commencé à tester ce petit bout de code avant de l’adapter à mes besoins

Code :

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     "Projet = " & 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

j’ai une erreur 3464 « type de données incompatibles dans l’expression du critère » sur la ligne

Code :

Set res = CurrentDb.OpenRecordset(SQL)

[jpcheck]

hello,

ton champ projet est-il bien de type numerique ?
quelle valeur as-tu teste dans ton exemple ?
la reference pour DAO est-elle bien cochee ?

[@rkane]

bonjour JP

autant pour moi, mon champ etait en mode texte... mauvaise manip en fermant la table car je l'avais bien mis en numérique au départ. Je continue donc mes essais.

[@rkane]

1re question, dans cette string pourquoi n'y a t'il pas le ;" à la fin ?

Code :

SQL = "SELECT Malade FROM Malades where Projet = " & Projet

2eme question dans mon cas, vacation est un format date, quelle est la bonne synthaxe ? la précédente etant reservee aux champs numerique.

Code :

SQL = "SELECT Malade FROM Malades where "vacation = '" & vacation & "'"

Mais les cotes me donne une erreur de synthaxe

[jpcheck]

1ere reponse, le ; n'est pas une necessite dans notre cas

2eme reponse, le format de date est #MM/DD/YYYY# sous Access

[@rkane]

bon voilà comment j'ai ecrit ça :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function RegroupMalades(Projet As Long) As String
Dim res As DAO.Recordset
Dim sql As String
'Selectionne les participant du projet
sql = "SELECT Malade FROM Malades where format(vacation,""mm/dd/yyyy"") = #format(vacation,""mm/dd/yyyy"")#;"
Set res = CurrentDb.OpenRecordset(sql)
'Concatene les différents enregistrement
While Not res.EOF
RegroupMalades = RegroupMalades & res.Fields(0).Value & " "
res.MoveNext
Wend
'Enleve le dernier espace
RegroupMalades = Left(RegroupMalades, Len(RegroupMalades) - 1)
'libere la mémoire
Set res = Nothing
End Function

mais j'ai une erreur de synthaxe
Parallèlement, je ne comprends pas le principe de cette ligne, puisque on a pas de critère de comparaison ???

[jpcheck]

attention, tu dois sortir ta fonction format et enlever les # dans ce cas

Code :

sql = "SELECT Malade FROM Malades where format(vacation,'mm/dd/yyyy') = format(vacation,'mm/dd/yyyy');"

par contre il doit manquer a un endroit une variable, car vacation = vacation et donc le filtre est inoperant

[@rkane]

ben oui mais alors pourquoi dans ce cas dans le code d'origine je devrais retrouver le même problème, hors ça fonctionne bien.
J'ai vérifié le code du module je n'ai plus l'erreur de synthaxe sur la date dans la ligne sql, mais quand je lance la requete j'ai
"trop peu de paramètres. 1 attendu"

Les 2 codes sont identiques si ce n'est que modifié quelques denominations et que j'ai changé :

Code :

Public Function RegroupParticipant(Projet As Long) As String

par

Code :

Public Function RegroupMalades(Vacation As Date) As String

je joins le fichier d'essai si tu veux jeter un oeil.

[jpcheck]

ok,en fait tu pensais habiller pierre mais tu etais encore sur paul

Avec les bons parametres en entree (Vacation as Date)

on arrive a ceci :

Code :

sql = "SELECT Malade FROM Malades where format(vacation,'mm/dd/yyyy') = '" & Format(Vacation, "mm/dd/yyyy") & "';"

marche aussi avec

Code :

sql = "SELECT Malade FROM Malades where vacation = #" & Format(Vacation, "mm/dd/yyyy") & "#;"

[@rkane]

Code :

ok,en fait tu pensais habiller pierre mais tu etais encore sur paul

comment ça, comprends pas ?

ça "(Vacation as Date)" ok je l'avais déjà modifié

mais même avec tes 2 sql j'ai toujours la même erreur

[jpcheck]

en fait je faisais reference a ce post ci

Envoyé par @rkane

bon voilà comment j'ai ecrit ça :

Code :

mais j'ai une erreur de synthaxe

ton champ Malade n'existe pas dans ta table malades aussi

[@rkane]

pu.... la honte ! ! !


accessoirement le format dd/mm/yyyy fonctionne bien

en tous cas merci à toi JP

[jpcheck]

donc si tu penses que l'on a atteint l'objectif, pense a cliquer sur le bouton