Voilà mon problème j'ai un état basé sur une requête dont l'un des champs
est le nom d'une image en JPG stocké dans un certain répertoire (un chemin
fixe). Je veux que cette image s'affiche sur l'état alors j'ai crée un cadre
d'objet dépendant et j'ai défini un événement Au formatage de la section
détail avec le code suivant :
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
Si tu es en version inférieure à 2003, tu n'a pas besoin de tout ça:
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) On Error Resume Next If Affiche = "(Aucune)" Then ' ou "" ou isnull avec le chemin Me.OLE1.Picture = "" Me.OLE1.Visible = False Else Me.OLE1.Picture = Affiche ' avec le chemin Me.OLE1.Visible = True End If End Sub
tout le reste est dans les propriétés de l'objet et ne change pas. tu trouveras un exemple sur la base: http://officesystem.access.free.fr/telecharger/images.zip -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Rz" a écrit dans le message de news: OaMb%
Bonjour,
Voilà mon problème j'ai un état basé sur une requête dont l'un des champs est le nom d'une image en JPG stocké dans un certain répertoire (un chemin fixe). Je veux que cette image s'affiche sur l'état alors j'ai crée un cadre d'objet dépendant et j'ai défini un événement Au formatage de la section détail avec le code suivant :
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Le probème est que ça ne marche pas au moment de l'exécution du code je reçoit un message d'erreur d'exécution 2793
Quelqu'un a une idée pourquoi ça ne marche pas ?
Merci
RZ
Bonjour.
Si tu es en version inférieure à 2003, tu n'a pas besoin de tout ça:
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
If Affiche = "(Aucune)" Then ' ou "" ou isnull avec le chemin
Me.OLE1.Picture = ""
Me.OLE1.Visible = False
Else
Me.OLE1.Picture = Affiche ' avec le chemin
Me.OLE1.Visible = True
End If
End Sub
tout le reste est dans les propriétés de l'objet et ne change pas.
tu trouveras un exemple sur la base:
http://officesystem.access.free.fr/telecharger/images.zip
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Rz" <ciberhermes@hotmail.com> a écrit dans le message de news:
OaMb%23LYCFHA.3908@TK2MSFTNGP15.phx.gbl...
Bonjour,
Voilà mon problème j'ai un état basé sur une requête dont l'un des champs
est le nom d'une image en JPG stocké dans un certain répertoire (un
chemin
fixe). Je veux que cette image s'affiche sur l'état alors j'ai crée un
cadre
d'objet dépendant et j'ai défini un événement Au formatage de la section
détail avec le code suivant :
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Si tu es en version inférieure à 2003, tu n'a pas besoin de tout ça:
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) On Error Resume Next If Affiche = "(Aucune)" Then ' ou "" ou isnull avec le chemin Me.OLE1.Picture = "" Me.OLE1.Visible = False Else Me.OLE1.Picture = Affiche ' avec le chemin Me.OLE1.Visible = True End If End Sub
tout le reste est dans les propriétés de l'objet et ne change pas. tu trouveras un exemple sur la base: http://officesystem.access.free.fr/telecharger/images.zip -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Rz" a écrit dans le message de news: OaMb%
Bonjour,
Voilà mon problème j'ai un état basé sur une requête dont l'un des champs est le nom d'une image en JPG stocké dans un certain répertoire (un chemin fixe). Je veux que cette image s'affiche sur l'état alors j'ai crée un cadre d'objet dépendant et j'ai défini un événement Au formatage de la section détail avec le code suivant :
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
