OVH Cloud OVH Cloud

Photo dans état

4 réponses
Avatar
James Linden
Bonjour,

J'aimerais imprim=E9 dans un =E9tat une fiche personnalis=E9 de=20
personnes avec photo.

J'ai une photo de chaque personne en format bmp. Le nom du=20
fichier est le num=E9ro unique de la personne. Ex.:=20
98712.bmp.

J'ai une table qui contient les renseignement personnels=20
de chaque personne. Dans ma table on retrouve le num=E9ro=20
unique de la personne.=20

Ma table contient 1200 personnes. Comment faire pour=20
qu'Access lie la bonne personne et sa photo=20
automatiquement?

Merci,

James Linden

4 réponses

Avatar
3stone
Salut,

"James Linden"
J'aimerais imprimé dans un état une fiche personnalisé de
personnes avec photo.

J'ai une photo de chaque personne en format bmp. Le nom du
fichier est le numéro unique de la personne. Ex.:
98712.bmp.

J'ai une table qui contient les renseignement personnels
de chaque personne. Dans ma table on retrouve le numéro
unique de la personne.

Ma table contient 1200 personnes. Comment faire pour
qu'Access lie la bonne personne et sa photo
automatiquement?

------------------------------------------------------

Dans ton état, crée un simple controle image...
Dans l'événement "Au formatage" de la section détail, tu mets :

Me.MonControlImage.Picture = "C:LeChemin" & [MonChampNoPersonne] & ".bmp"


Ok ?


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------
Avatar
James Linden
Merci pour la réponse,

Le seul problème est que je n'ai pas encore les photos de
tout le monde. Présentement le code plante parce qu'il ne
trouve pas une photo par personne.

Est-ce que dans le code je pourrais mettre un if, si tu ne
trouve pas la photo, insert une image par défaut?

Merci encore

James Linden

-----Message d'origine-----
Salut,

"James Linden"
J'aimerais imprimé dans un état une fiche personnalisé de
personnes avec photo.

J'ai une photo de chaque personne en format bmp. Le nom du
fichier est le numéro unique de la personne. Ex.:
98712.bmp.

J'ai une table qui contient les renseignement personnels
de chaque personne. Dans ma table on retrouve le numéro
unique de la personne.

Ma table contient 1200 personnes. Comment faire pour
qu'Access lie la bonne personne et sa photo
automatiquement?

------------------------------------------------------

Dans ton état, crée un simple controle image...
Dans l'événement "Au formatage" de la section détail, tu
mets :


Me.MonControlImage.Picture = "C:LeChemin" &
[MonChampNoPersonne] & ".bmp"



Ok ?


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------




.



Avatar
3stone
Salut,

"James Linden"
Le seul problème est que je n'ai pas encore les photos de
tout le monde. Présentement le code plante parce qu'il ne
trouve pas une photo par personne.

Est-ce que dans le code je pourrais mettre un if, si tu ne
trouve pas la photo, insert une image par défaut?



Bien sûr... un simple test sur la présence de la photo...



If Dir("C:LeChemin" & [NoIndividu] & ".bmp") <>"" then

Me.MonControlImage.Picture = "C:LeChemin" & [NoIndividu] & ".bmp"

Else

Me.MonControlImage.Picture = ""
'ou logo par défaut...

End If


Ok ?


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------
Avatar
James Linden
Merci beacoup,

James
-----Message d'origine-----
Salut,

"James Linden"
Le seul problème est que je n'ai pas encore les photos de
tout le monde. Présentement le code plante parce qu'il ne
trouve pas une photo par personne.

Est-ce que dans le code je pourrais mettre un if, si tu ne
trouve pas la photo, insert une image par défaut?



Bien sûr... un simple test sur la présence de la photo...



If Dir("C:LeChemin" & [NoIndividu] & ".bmp") <>"" then

Me.MonControlImage.Picture = "C:LeChemin" &
[NoIndividu] & ".bmp"


Else

Me.MonControlImage.Picture = ""
'ou logo par défaut...

End If


Ok ?


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------




.