Discussion :

[laweil]

Bonjour à toutes & à tous,

J'ai deux formulaires sur ma base access. Pour faire simple, l'un est composé de 3 cases à cocher (L8,L9 & L10). L'autre est composé d'un certains nombres d'images. Mon but serait de lier ces images à ces cases à cocher. Par exemple, si je coche L8 & L10, je ne vais afficher que les images liées à ces deux libellés.

Mon problème est le suivant : comment faire correspondre une image au libellé d'une case à cocher (image 1 en lien avec L8, image 2 avec L10, etc.)

Merci d'avance pour vos réponses

[ClaudeLELOUP]

Bonjour,

Tu devrais nous expliquer où se trouvent les images. Dans la BDD ?, dans une table, dans un répertoire hors de la BDD ?

Nous dire aussi suivant quelle logique tu veux associer images et cases.

[laweil]

Les images sont stockées hors bdd (répertoire C:\Images). Par contre, je ne comprends pas la question "suivant quelle logique tu veux associer les images?"

[ClaudeLELOUP]

donne un exemple concret comme par exemple :

lorsque je coche L8, je voudrais l'image qui a le chemin : c:\Images\Monimage.Bmp

[laweil]

J'ai 5 images img1, img2, .., img5 dans mon répertoire c:\images
lorsque je coche L8, je tombe sur l'image c:\images\img1 et c:\images\img3, lorsque je coche sur L9, je tombe sur c:\images\img4 et lorsque je coche sur L10, je tombe sur les deux restantes

[ClaudeLELOUP]

Excuse-moi d'insister : si tu veux de l'aide, il faut que tu sois précis dans tes détails.
D'abord "img4", ce n'est pas un nom de fichier "image" : tu dois avoir une extension comme .bmp ou .jpg ...

Si je comprends lorsque du coches une certaine case dans un formulaire, tu voudrais que dans un autre formulaire (est-il ouvert ? comment s'appelle-t-il?) apparaissent une ou deux images (comment s'appellent les contrôles qui doivent accueillir ces images ?)

[laweil]

pour les fichiers images, j'ai oublié en effet l'extension .jpg derrière les fichiers (c:\images\img1.jpg jusqu'à img5.jpg).
Les 3 cases à cocher (L8, L9 et L10) sont contenues dans le formulaire Nom_Projet. Une fois la casé cochée, je voudrais qu'en appuyant sur un bouton (bouton_1) de ce même formulaire apparaissent sur un second formulaire (Pont_Thermique) les images sélectionnées.

Exemple : Sur le formulaire Nom_Projet, je coche la case L8. Puis j'appuie sur le bouton_1.
Apparait alors le formulaire Pont_Thermique avec les images img1.jpg et img3.jpg, contenues dans le repertoire c:\images\img1.jpg et c:\images\img3.jpg.

[ClaudeLELOUP]

voici le code que tu dois associer à chacune des cases à cocher.
Essaie de comprendre le code.
J'ai mis des commentaires pour t'aider.
Tu peux aussi placer ton curseur sur un mot de code et enfoncer F1 ---> tu ouvres l'aide Access à la bonne page.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Compare Database
Option Explicit
 
Private Sub L10_AfterUpdate()
If Me.ActiveControl = -1 Then   'si coché
 
      ' ouvrir "Pont_Thermique" si ce ne l'est déjà
   If Not CurrentProject.AllForms("Pont_Thermique").IsLoaded Then DoCmd.OpenForm "Pont_Thermique"
      ' Aménager les images correspondantes
   Forms!Pont_Thermique!Image0.Picture = "c:\Images\image2.jpg"
   Forms!Pont_Thermique!Image1.Picture = "c:\Images\image5.jpg"
Else
End If
 
End Sub
 
Private Sub L8_AfterUpdate()
If Me.ActiveControl = -1 Then   'si coché
 
      ' ouvrir "Pont_Thermique" si ce ne l'est déjà
   If Not CurrentProject.AllForms("Pont_Thermique").IsLoaded Then DoCmd.OpenForm "Pont_Thermique"
      ' Aménager les images correspondantes
   Forms!Pont_Thermique!Image0.Picture = "c:\Images\image1.jpg"
   Forms!Pont_Thermique!Image1.Picture = "c:\Images\image3.jpg"
Else
End If
 
End Sub
 
Private Sub L9_AfterUpdate()
If Me.ActiveControl = -1 Then   'si coché
 
      ' ouvrir "Pont_Thermique" si ce ne l'est déjà
   If Not CurrentProject.AllForms("Pont_Thermique").IsLoaded Then DoCmd.OpenForm "Pont_Thermique"
      ' Aménager les images correspondantes
   Forms!Pont_Thermique!Image0.Picture = "c:\Images\image4.jpg"
   Forms!Pont_Thermique!Image1.Picture = ""
Else
End If
End Sub

[laweil]

Je vais regarder ça attentivement. En tout cas, je vous remercie beaucoup!