Discussion :

[basto]

Bonjour,

Je possède une base contenant pour chaque individu la liste des formations qu'on lui à proposer et sa réponse.

Pour bien préciser les choses, j'ai donc une liste d'individu et une autre avec l'ensemble des formations proposées (il peut y avoir plusieurs fois la même et des causes de refus différentes).

Je souhaite faire un rapport me permettant de visualiser par collaborateur la liste des formations proposées et pour chaque formation (et c'est la le hic) la liste des causes sur la même ligne (donc j'ai besoin de concatener les causes séparées par des ";").

Un exemple :
toto formation_1 "acceptée"
titi formation_2 "en congé;malade;acceptée"
...

et non
toto formation_1 "acceptée"
titi formation_2 "en congé"
titi formation_2 "malade"
titi formation_2 "acceptée"

Merci à toutes (honneur à vous) et à tous pour votre aide ou conseil ou suggestion ou ....

A+

[marot_r]

Il va te falloir faire un peu de VBA et mettre la fonction suivante dans un module.

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
21
22
23
24
25
 
Public function ConcatenerRaison(prmCodeUtilisateur as variant, prmCodeFormation as variant) as variant
   dim result as variant
 
   if not isnull(prmCodeUtilisateur) and not isnull(prmCodeFormation) then
     dim db as database:set db=currentdb
     dim r as recordset:set r=db.openRecorset("SELECT * FROM TableAssUtilisateurRaison WHERE CodeUtilisateur=" & prmCodeUtilisateur & " AND CodeFormation=" & prmCodeFormation &";")
 
     do while not r.eof
 
        if result<>"" then
          result=result &";"
        end if
 
        result=result & r![Raison]
        r.movenext
     loop
 
     r.close:set r=nothing
     db.close:set db=nothing
   end if
 
   ConcatenerRaison=result
 
end function

Note j'ai choisi des Variant pour pouvoir passer des 'null' sans pb.

Après dans ta requète tu n'as plus qu'à définir un cahmp dont la valeur est :

ConcatenerRaison([CodeUtilisateur],[CodeFormation])

A+

[basto]

Merci pour ton aide.

Je me lance dans l'implementation dès que je fini le rapport sur lequel je suis

Encore merci

A+