Bonjour,
Je cherche depuis 2 jours quelle bêtise j'ai fait et je ne trouve pas !
J'ai construit une base de données en Access 2013 et je viens de l'installer sur un nouveau portable équipé d'Access 2016.
Ma base affiche dans un onglet le male et la femelle de l'insecte choisi et cela fonctionne très bien, lorsque je clique sur une image il ouvre XnView pour me l'afficher en plus grand, çà fonctionne très bien également.
J'ai un onglet qui me montre la photo des œufs et un autre la carte de situation et là l'affichage des photos dans l'onglet s'affiche correctement, mais lorsque je clique sur l'image il ouvre XnView mais sans le nom de l'image.
Je pense que c'est une ânerie mais je ne la vois pas.
Merci de votre aide.
Ci dessous le code dans le sous formulaire Œufs :
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 Option Compare Database Dim ManteN As String Dim ManteT As String Dim ManteO As String Dim IMA As String Dim IMA2 As String Dim RIEN As String Dim stAppName As String Private Sub Form_Current() ManteO = MyDrive & "\Mantes2\Fiches d'élevage\ImagesFiche\O " & [NomInsecte] & ".jpg" If Dir(ManteO) <> "" Then Image60.Picture = ManteO Else Image60.Picture = "" End If End Sub Private Sub Image60_Click() ManteO = MyDrive & "\Mantes2\Fiches d'élevage\ImagesFiche\O " & [NomInsecte] & ".jpg" If Dir(ManteO) <> "" Then stAppName = "C:\Program Files (x86)\XnViewMP\xnviewMP.exe " & """" & [ManteO] & """" Call Shell(stAppName, 1) Else End If End Sub
Partager