Bonjour à tous,
il y a quelques semaines, j'avais déjà posté un problème à propos des chemins relatifs de photos dans les états. Grâce à Domi2, j'avais résolu mon souci, mes photos se modifiaient bien en fonction du chemin d'accés que j'avais simplement saisi dans une table.
Ce matin, j'ai voulu faire la même chose dans un formulaire : mes photos sont stockées dans un dossier qui est dans le même répertoire que ma base de données ce qui m'évite de les importer dans ma base et donc l'allège énormément.
J'ai créer un premier formulaire où tout s'est bien passé. Au lieu d'intégrer le code dans la section détail, comme pour l'état, je l'ai mis dans le formulaire sur "on current". Je vous montre le code qui a bien fonctionné :
Mes photos sont dans un dossier nommé "PhotoREC" et le nom de la photo est stocké dans le champ "FEMRECPICT" de ma table.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Private Sub Form_Current() Me!ImageFrame.Picture = CurrentProject.Path & "\PhotoREC\" & Me.FEMRECPICT.Value 'MsgBox CurrentProject.Path & "\PhotoREC\" & Me.FEMRECPICT.Value End Sub
Le control image que j'ai inséré dans mon formulaire s'appelle ImageFrame.
Maintenant, j'ai voulu faire exactement la même manip pour une autre série de photos, qui sont dans le dossier "PhotoPanMAL", et le champ de mon autre table s'appelle "MALPANPICT". j'ai donc créée un formulaire depuis cette table, j'ai ajouté un control image que j'ai nommé ImageFrame2. j'ai aussi ajouté une message box comme m'avait conseillé Domi2 pour voir quel chemin d'accés me renvoyait mon code.
Voici ce que ça donne :
Je ne comprends pas ce qui se passe, en effet, lorsque j'active la message box, à chaque fois que je change d'enregistrement, elle m'affiche le bon chemin avec le nom correspondant, cependant lorsque je veux regarder les photos, je reste tout le temps sur le même photo. Rien ne change, pourtant, je change bien d'enregistrement, et j'ai à l'affichage aussi le nom de la photo (stocké dans ma table), et il change bien en fonction de l'enregistrement sur lequel je suis.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Private Sub Form_Current() Me!ImageFrame2.Picture = CurrentProject.Path & "\PhotoPanMAL\" & Me.MALPANPICT.Value ' MsgBox CurrentProject.Path & "\PhotoPanMAL\" & Me.MALPANPICT.Value End Sub
Il me semblait avoir fait la même manip que pour le premier formulaire ... mais j'ai du faire une petite boulette que je n'arrive pas à détecter ...
Merci d'avance pour votre aide !!
Partager