OVH Cloud OVH Cloud

image sur état

4 réponses
Avatar
ben
Bonjour,
Dans une table j'ai des champs avec le chemin d'une image=20
et son nom.
Dans un =E9tat, je souhaite afficher l'image =E0 l'aide du=20
code suivant :

Private Sub D=E9tail_Format(Cancel As Integer, FormatCount=20
As Integer)
Dim strChemin As String
On Error Resume Next
strChemin =3D Me.Cheminphoto & "\" & Me.Nomphoto & ".jpg"
Me.Photographie.Picture =3D strChemin
End Sub

Mon image est toujourts en en-t=EAte de l'=E9tat.
Sur certains =E9tat cela fonctionne mais sur deux autres,=20
l'image ne s'affiche pas si je la positionne en en-t=EAte=20
d'=E9tat mais elle veut bien s'afficher si je la positionne=20
en d=E9tail.

D'autre part, si j'exporte mon =E9tat sur Word, elle ne=20
s'exporte pas.
Merci de votre r=E9ponse,
Ben.

4 réponses

Avatar
Raymond [mvp]
Bonjour.

il parait normal que ton image dont le chemin apparaît dans la section
détail, apparaisse sans problème dans la section détail. Que tu positionnes
une image dans un entête avec des éléments de la section détail peut être
totalement aléatoire, en fonction même du serveur OLE utilisé (photo éditor
ou autres). Je pense qu'il faudrait que tu mettes la même procédure en
entête que tu mets dans le détail pour synchroniser le chemin pris dans
l'enregistrement détail et un objet image placé dans l'entête, ceci restant
à confirmer.
Concernant l'export, effectivement tu ne peux pas exporter les éléments
graphiques d'access vers word ( y compris images, graphiques et autres
dessins). on ne peut exporter que par un fichier pdf ou SNP.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ben" a écrit dans le message de news:
2ee501c4a22c$719b2430$
Bonjour,
Dans une table j'ai des champs avec le chemin d'une image
et son nom.
Dans un état, je souhaite afficher l'image à l'aide du
code suivant :

Private Sub Détail_Format(Cancel As Integer, FormatCount
As Integer)
Dim strChemin As String
On Error Resume Next
strChemin = Me.Cheminphoto & "" & Me.Nomphoto & ".jpg"
Me.Photographie.Picture = strChemin
End Sub

Mon image est toujourts en en-tête de l'état.
Sur certains état cela fonctionne mais sur deux autres,
l'image ne s'affiche pas si je la positionne en en-tête
d'état mais elle veut bien s'afficher si je la positionne
en détail.

D'autre part, si j'exporte mon état sur Word, elle ne
s'exporte pas.
Merci de votre réponse,
Ben.
Avatar
ben
"Je pense qu'il faudrait que tu mettes la même procédure
en
entête que tu mets dans le détail pour synchroniser le
chemin pris dans
l'enregistrement détail et un objet image placé dans
l'entête, ceci restant
à confirmer." : cela veut dire que je dois
remplacer : "Private Sub Détail_Format(Cancel As Integer,
FormatCount As Integer)" ?
Quelle est le code à écrire SVP ?
Merci


-----Message d'origine-----
Bonjour.

il parait normal que ton image dont le chemin apparaît
dans la section

détail, apparaisse sans problème dans la section détail.
Que tu positionnes

une image dans un entête avec des éléments de la section
détail peut être

totalement aléatoire, en fonction même du serveur OLE
utilisé (photo éditor

ou autres). Je pense qu'il faudrait que tu mettes la
même procédure en

entête que tu mets dans le détail pour synchroniser le
chemin pris dans

l'enregistrement détail et un objet image placé dans
l'entête, ceci restant

à confirmer.
Concernant l'export, effectivement tu ne peux pas
exporter les éléments

graphiques d'access vers word ( y compris images,
graphiques et autres

dessins). on ne peut exporter que par un fichier pdf ou
SNP.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ben" a écrit dans
le message de news:

2ee501c4a22c$719b2430$
Bonjour,
Dans une table j'ai des champs avec le chemin d'une image
et son nom.
Dans un état, je souhaite afficher l'image à l'aide du
code suivant :

Private Sub Détail_Format(Cancel As Integer, FormatCount
As Integer)
Dim strChemin As String
On Error Resume Next
strChemin = Me.Cheminphoto & "" & Me.Nomphoto & ".jpg"
Me.Photographie.Picture = strChemin
End Sub

Mon image est toujourts en en-tête de l'état.
Sur certains état cela fonctionne mais sur deux autres,
l'image ne s'affiche pas si je la positionne en en-tête
d'état mais elle veut bien s'afficher si je la positionne
en détail.

D'autre part, si j'exporte mon état sur Word, elle ne
s'exporte pas.
Merci de votre réponse,
Ben.



.



Avatar
Raymond [mvp]
Non, tu laisses la procédure actuelle, mais tu rajoutes :

si image dans entete état:
Private Sub EntêteÉtat_Format(Cancel As Integer, FormatCount As Integer)
Dim strChemin As String
On Error Resume Next
strChemin = Me.Cheminphoto & "" & Me.Nomphoto & ".jpg"
Me.photoenteteétat.Picture = strChemin
End Sub

si image dans entete page:
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer)
Dim strChemin As String
On Error Resume Next
strChemin = Me.Cheminphoto & "" & Me.Nomphoto & ".jpg"
Me.photoentetepage.Picture = strChemin
End Sub

sous toute réserve.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ben" a écrit dans le message de news:
22bb01c4a235$09fa6df0$
"Je pense qu'il faudrait que tu mettes la même procédure
en
entête que tu mets dans le détail pour synchroniser le
chemin pris dans
l'enregistrement détail et un objet image placé dans
l'entête, ceci restant
à confirmer." : cela veut dire que je dois
remplacer : "Private Sub Détail_Format(Cancel As Integer,
FormatCount As Integer)" ?
Quelle est le code à écrire SVP ?
Merci
Avatar
ben
Cela fonctionne.
Merci !