Discussion :

[nicole789]

Bonjour,

Voici mon problème galère :
- j'ai créé une requête avec 3 champs : [insee] et [nom] proviennent d'une table de communes, et un autre créé champ3:[nom]&" "&[insee].
- Dans un état existant, je voudrais intégrer un sous-état avec tous les champ3 résultant de la requête.

Sur le principe ça ne me pose pas de difficulté ... SAUF que je veux que mon sous-état montre un affichage tel que : champ3 ; champ3 ; champ3; etc

Je ne sais pas si c'est clair, mais mon souhait est d'afficher dans le sous-état les résultats de la requête sous une forme de zone unique avec ";" comme séparateur.

Pouvez-vous m'aider en ce sens ?

Merci d'avance.

[marot_r]

Bonjour.

Tu ne peux pas avec les outils standards.
Il faut faire du code VBA pour faire la concaténation des données dans un seul champ dans la source et afficher ce champ.

Idée qui ne nécessite pas de code, pourquoi ne pas faire des colonnes dans ton sous-état ?

A+

[nicole789]

Bonjour et merci de votre retour

Pour info, il s'agit de remplir un état agrégé par d'autres organismes qui obligent à lister les communes sélectionnées sous la forme :
Commune1 (insee1) ; Commune2 (insee2) ; etc

Après avoir cherché toute la journée, je me doutais qu'il fallait du code VBA. Mais lequel ? Je sais pas l'écrire ; par contre je sais aller le mettre dans la fenêtre propriétés d'une zone de texte indépendante que je pourrai créer dans mon état.

Si quelqu'un a une idée quant à l'écriture de ce code, je suis preneur.

Merci beaucoup.

[marot_r]

Bonjour.

par contre je sais aller le mettre dans la fenêtre propriétés d'une zone de texte indépendante que je pourrai créer dans mon état.

C'est bien mais ce n'est pas ce qu'il faut faire.
Il faut aller modifier la source du rapport.
si c'est une table, il faut créer une requête.
Y mettre un champ calculé qui va te donner la liste.
Afficher ce champ calculé dans le rapport (comme n'importe quel autre champ)

Pour le calcul, c'est assez simple.

Il te faut créer un module ou utiliser un module existant.
Le code ressemble à cela (à adapter à ta réalité) :

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
public function Concatener(prmCritereSelCommune as variant) as string
   dim result as string
   dim db as dao.database: set db=currentdb
   dim rData as dao.recordset: set rData=db.openrecordset("NomTaSourceDonnees", dbOpenSnapshot) 'Accède à ce qui va donner la liste des communes concernées
   dim rCommune as dao.recordset: set rCommune=db.openRecordset("reqCommune", dbOpenSnapshot) 'Àccède à la liste des communes.
 
   dim critere as string : critere="[NumINSEE]=" & rdata![NumINSEE] 'Suppose le critère numérique et sur un seul champ. 
 
   call rData.FindFirst(critere)    do while not rData.eof
       'Tant qu'il y a des communes
       call rCommune.findfirst("[NumINSEE]=" & rdata![NumINSEE]) 'Cherche le numéro de la commune dans la liste des communes.
       if result<>"" then
           result=result & "; " 'Ajoute le séparateur
       end if
       result=resullt & rCommune ![Nom] & " (" & rCommune![NumINSEE] & ")"
       call rFindNext(critere) 'prochaine commune 
   loop
 
   rCommune.close: set rCommune=nothing 'ferme après usage
   rData.Close: set rData=nothing 
   db.close: set db=nothing
   Concatener=result 'retourne le texte concaténé
end function

dans ta requête source tu mets dans une colonne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ListeCommune:Concatener([CritereSelCommune])

A+