OVH Cloud OVH Cloud

Objet OLE & Photo

3 réponses
Avatar
Jules
Dans ma base de données Access j'aimerais voir la photo des étudiants
lorsque je consulte leur dossier. Dois-je créer un champ Objet OLE? Si
oui, comment y associer la photo de l'élève? Si non, comment faire pour
voir la photo de chacun des dossiers?

Merci!

Jules

3 réponses

Avatar
Raymond [mvp]
Bonjour.

tu trouveras des idées sur la page: http://access.seneque.free.fr/images.htm

--
@+
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


"Jules" a écrit dans le message de
news:
Dans ma base de données Access j'aimerais voir la photo des étudiants
lorsque je consulte leur dossier. Dois-je créer un champ Objet OLE? Si
oui, comment y associer la photo de l'élève? Si non, comment faire pour
voir la photo de chacun des dossiers?

Merci!

Jules




Avatar
Jules
Lorsque j'écris =setImagePath() dans les Sub je reçois le message d'erreur
de compilation: "Attendu: numéro de ligne ou étiquette ou instruction ou fin
d'instruction". Probablement une erreur de syntaxe, mais laquelle?
J'utilise la verion 2000 en français.

Function setImagePath()
Dim strImagePath As String
On Error GoTo PictureNotAvailable
strImagePath = Me.txtImageName
Me.ImageFrame.Picture = strImagePath
Exit Function
PictureNotAvailable:
strImagePath = "C:WindowsNoPicture.jpg"
Me.ImageFrame.Picture = strImagePath
End Function

Private Sub Form_AfterUpdate()
=setImagePath()
End Sub

Private Sub Form_Current()
=SetImagePath()
End Sub
---------------------------
Jules
"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

tu trouveras des idées sur la page:
http://access.seneque.free.fr/images.htm


--
@+
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


"Jules" a écrit dans le message de
news:
Dans ma base de données Access j'aimerais voir la photo des étudiants
lorsque je consulte leur dossier. Dois-je créer un champ Objet OLE? Si
oui, comment y associer la photo de l'élève? Si non, comment faire pour
voir la photo de chacun des dossiers?

Merci!

Jules








Avatar
Eric
Bonjour

Private Sub Form_Current()
SetImagePath
End Sub

Devrait suffire je pense.

Si tu fais précéder d'un signe = c'est que tu veux faire une affectation,
donc il faut avant le = une variable ou une propriété de controle.


A+
Eric


"Jules" écrivait
news::

Lorsque j'écris =setImagePath() dans les Sub je reçois le message
d'erreur de compilation: "Attendu: numéro de ligne ou étiquette ou
instruction ou fin d'instruction". Probablement une erreur de
syntaxe, mais laquelle? J'utilise la verion 2000 en français.

Function setImagePath()
Dim strImagePath As String
On Error GoTo PictureNotAvailable
strImagePath = Me.txtImageName
Me.ImageFrame.Picture = strImagePath
Exit Function
PictureNotAvailable:
strImagePath = "C:WindowsNoPicture.jpg"
Me.ImageFrame.Picture = strImagePath
End Function

Private Sub Form_AfterUpdate()
=setImagePath()
End Sub

Private Sub Form_Current()
=SetImagePath()
End Sub
---------------------------
Jules
"Raymond [mvp]" a écrit dans le message
de news:
Bonjour.

tu trouveras des idées sur la page:
http://access.seneque.free.fr/images.htm


--
@+
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


"Jules" a écrit dans le message de
news:
Dans ma base de données Access j'aimerais voir la photo des
étudiants lorsque je consulte leur dossier. Dois-je créer un champ
Objet OLE? Si oui, comment y associer la photo de l'élève? Si
non, comment faire pour voir la photo de chacun des dossiers?

Merci!

Jules