Discussion :

[Stargate SG1]

Bonjour,
Je suis entrain de réaliser une Bdd sur les risques chimiques en entreprise.
Pour cela je recense dans ma Bdd tous les produits utilisés.
Pour chaque produit, chaque risque est identifié par un symbole normalisé (triangle orange avec un dessin spécifique au risque rencontré).

Je dois réalisé pour chaque produit un état de synthèse comprenant entre autres ces symboles qui sont stockés dans une table.
Je sais faire un état qui m'affiche ces images mais en colonne.

Ma question: comment faire pour afficher ces images en lignes?

Merci.

[helas]

Je propose de distribuer les données de la table d'origine dans une seconde table comprenant autant de champs qu'il y a de symboles par lignes avec ce code par exemple
ici il y a 3 symboles par lignes affichées dans l'état avec leur description

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
 
Sub Distribution()
 Dim t As DAO.Recordset, t2 As DAO.Recordset
 
 Set t = CurrentDb.OpenRecordset("table1")
 Set t2 = CurrentDb.OpenRecordset("table2")
 Do
  If t.EOF Then Exit Do
  t2.AddNew                         'nouvelle ligne 
  t2!symbole1 = t!symbole          '1er symbole
  t2!description1 = t!description
  t.MoveNext: If t.EOF Then t2.Update: Exit Do
  t2!symbole2 = t!symbole          '2eme symbole 
  t2!description2 = t!description
  t.MoveNext: If t.EOF Then t2.Update: Exit Do
  t2!symbole3 = t!symbole          '3eme symbole
  t2!description3 = t!description
  t2.Update
  t.MoveNext
 Loop
 t.Close: t2.Close
End Sub

Il est possible d'insérer d'autres champs avec le symbole

[Stargate SG1]

Merci, mais je crois avoir résolu mon problème de manière simple.
J'ai crée un état étiquette qui me permet de gérer l'affichage en ligne.
Merci quand même.