Discussion :

[antoine0207]

La mort dans l'ame j'ouvre un sujet ...

Je voudrais mettre une image dans un état (je l'ai déja fait dans un formulaire avec les memes images) en sachant que j'ai le chemin stocké dans un txt

J'ai essayé le tutoriel de cafeine, j'ai essayé la recherche forum avec des sujets qui veulent comme moi et qui selon les gens marchent ... mais pas chez moi

Soit je suis une bille, soit j'ai pas les yeux en face des trous, soit quelquechose m'échape

Mon code est

Code :

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

1
2
3
4
5
6
7
Private Sub Report_Activate(Cancel As Integer)
If Not IsNull(Me.emplacementphoto) Then
Me.Photo.Picture = Me.emplacementphoto
Else
Me.Photo.Picture = "I:\base de données\photos\pas de photo.jpg"
End If
End Sub

En sachant que j'ai essayé aussi
Private Sub Report_Open(Cancel As Integer) et
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
qui selon des gens (tous de meches à mon avis ) marche

Moi mon état continue encore et toujours a afficher la photo d'origine

Merci d'avance

[antoine0207]

Je me permet de redemender si quelqu'un a une idée ?

[antoine0207]

j'évite la deuxieme page
je remonte
peut etre ma question est elle mal posée
si c'est le cas dites moi pourquoi

et si c'est le fait que personne n'ait le temps de répondre

ne vous inquietez pas je comprends

[scorpion1611]

Peut-être un début d'idées par là :

http://www.developpez.net/forums/sho...=suite+%E9tats

[Domi2]

Bonjour,

Je ne suis pas sûr d'avoir tout compris.

Mais si tu veux que la photo change à chaque enregistrement, tu dois utiliser la propriété au formatage de la section détail.

Ensuite, met ton champ "emplacementphoto" dans la même section.

Ainsi, tu pourras visualiser le chemin et vérifier s'il est correct...

Domi2

[antoine0207]

Merci : il me manquait "que" la variable locale parce que j'avais déja essayé le Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)

Je comprend pas pourquoi ça marche mieux maintenant du point de vue du code mais bon des fois faut pas trop se poser de question

(j'avais opourtant fait (comme toi je l'imagine) une recherche sur le forum

Merci

(je pose mon code si quelq'un en a besoin)

Code :

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

1
2
3
4
5
6
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
    Dim ctl As Access.Image
 
    Set ctl = Me!Photo
    ctl.Picture = Me![emplacementphoto]
End Sub

et oui c'est tout

je vais l'améliorer parce que pour l'instant il bloque quand il n'y a pas de photo

[antoine0207]

oups je voulais pas poster tout de suite je preparais juste un message (sa me permet de reperer mes erreurs que de poser une question)