OVH Cloud OVH Cloud

Concaténation pour champ photo

1 réponse
Avatar
Kyvu
Bonjour,

J'ai un formulaire et un sous-formulaire li=E9 par le champ=20
ReferenceArticle. Le sous-formulaire contient un=20
champ "Photo". L'affichage de ce sous-formulaire est en=20
mode continu.

L'id=E9e c'=E9tait de faire une concat=E9nation sur les=20
champs "ReferenceBrut" du formulaire principal=20
et "SousTraitant" du sous-formulaire pour afficher la=20
photo correspondante.


Private Sub Form_Current()
On Error Resume Next
Me.Fille02.Form.PhotoEmballageSousTraitant.Picture =3D ""
Me.Fille02.Form.PhotoEmballageSousTraitant.Picture =3D=20
CurrentProject.Path & "\PhotoEmballageSousTraitant\" &=20
Me.Fille02.Form.SousTraitant & Me.ReferenceBrut & ".jpg"
End sub


Malheureusement, lorsqu'il y a plusieurs entr=E9es dans le=20
sous-formulaire, c'est toujours la m=EAme image jpeg qui est=20
affich=E9e.

Quelqu'un aurait-il une solution?

Merci!

@micalement.



Kyvu On Line!

1 réponse

Avatar
Raymond [mvp]
Bonsoir.
au lieu de placer sur le form_current du formulaire principal place le sur
le form_current du sous-formulaire.
Private Sub Form_Current()
On Error Resume Next
PhotoEmballageSousTraitant.Picture = ""
PhotoEmballageSousTraitant.Picture CurrentProject.Path & "PhotoEmballageSousTraitant" & SousTraitant &
Me.ReferenceBrut & ".jpg" ' a voir le chemin exact
End sub

Non testé et non approuvé.

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


"Kyvu" a écrit dans le message de
news:397b01c3e29c$abc5ac20$
Bonjour,

J'ai un formulaire et un sous-formulaire lié par le champ
ReferenceArticle. Le sous-formulaire contient un
champ "Photo". L'affichage de ce sous-formulaire est en
mode continu.

L'idée c'était de faire une concaténation sur les
champs "ReferenceBrut" du formulaire principal
et "SousTraitant" du sous-formulaire pour afficher la
photo correspondante.


Private Sub Form_Current()
On Error Resume Next
Me.Fille02.Form.PhotoEmballageSousTraitant.Picture = ""
Me.Fille02.Form.PhotoEmballageSousTraitant.Picture CurrentProject.Path & "PhotoEmballageSousTraitant" &
Me.Fille02.Form.SousTraitant & Me.ReferenceBrut & ".jpg"
End sub


Malheureusement, lorsqu'il y a plusieurs entrées dans le
sous-formulaire, c'est toujours la même image jpeg qui est
affichée.

Quelqu'un aurait-il une solution?

Merci!

@micalement.



Kyvu On Line!