OVH Cloud OVH Cloud

Les images dans les états

1 réponse
Avatar
Romain BOUSSARD
Bonjour a tous et toutes,
Je reviens avec une nouvelle question suite au message que je vous ai laissé
il y a quelques jours et à vos précieuses réponses !
Une fois le problème résolu dans mon formulaire, je suis embêté avec l'état.
En effet, j'ai des enregistrements qui possèdent une image et d'autres pas.
Alors j'ai défini le code suivant au formatage de l'état :

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)

If IsNull(Me.Chemin) Then
Me.Photo.Picture = ""
Else
Me.Photo.Picture = Me.Chemin
End If

End Sub

L'affichage des images (dans l'objet image Photo) dans l'état dépend donc de
la présence (ou non) d'un chemin dans le champ homonyme.

Problème : cette condition actualise l'image lorsque j'ai un chemin, mais
quand il n'y en a pas, elle me laisse l'image de l'enregistrement précedent.

Question : comment réitérer cette vérification à chaque enregistrement ? (ou
plus exactement à chaque page)

Merci beaucoup de votre interet pour ma question !!!


> "3stone" <3stone_@_skynet_be> a écrit dans le message de news:
> e%23v4rATyFHA.2848@TK2MSFTNGP15.phx.gbl...
>> Salut,
>>
>> "Romain BOUSSARD"
>> | Cela fait un petit moment que j'ai un problème lorsque j'intègre des
>> images
>> | dans un formulaire access.
>> |
>> | Je m'explique : lorsque je cherche à inserer une image (à partir d'un
>> | fichier) dans un cadre d'objet dépendant (champ OLE dans la table),
>> Access
>> | m'affiche selon les PCs :
>> | - soit l'image (c'est le résultat escompté),
>> | - soit le chemin d'accès à cette image,
>> | - soit une icone malgré que cette option soit décochée dans l'étape
>> | précédente....
>> |
>> | Quelle est donc la manipulation à réaliser pour que l'intégration et
>> | l'affichage d'une image dans un champ OLE marche à coup sûr ?
>>
>>
>> De manière générale, il faut éviter d'inclure des images _dans_ une base
>> Access.
>> Il est plus interessant de les placer dans un répertoire et de ne sauver
>> dans la base
>> que le chemin d'accès...
>>
>> voir : http://www.self-access.com/access/grenier/acRedir.php?id=10
>>
>> Quant au problème d'affichage, c'est sûrement dû au manque de "filtre"
>> approprié.
>> Installer "MS Photo Editor" résoudra le problème car il apporte le
>> serveur
>> ole.
>>
>>
>> --
>> A+
>> Pierre (3stone) Access MVP
>> Perso: http://users.skynet.be/accesshome/
>> Conseils MPFA: http://users.skynet.be/mpfa/
>>
>>
>
>

1 réponse

Avatar
3stone
Salut,

"Romain BOUSSARD"
| Je reviens avec une nouvelle question suite au message que je vous ai laissé
| il y a quelques jours et à vos précieuses réponses !
| Une fois le problème résolu dans mon formulaire, je suis embêté avec l'état.
| En effet, j'ai des enregistrements qui possèdent une image et d'autres pas.
| Alors j'ai défini le code suivant au formatage de l'état :
|
| Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
|
| If IsNull(Me.Chemin) Then
| Me.Photo.Picture = ""
| Else
| Me.Photo.Picture = Me.Chemin
| End If
|
| End Sub
|
| L'affichage des images (dans l'objet image Photo) dans l'état dépend donc de
| la présence (ou non) d'un chemin dans le champ homonyme.
|
| Problème : cette condition actualise l'image lorsque j'ai un chemin, mais
| quand il n'y en a pas, elle me laisse l'image de l'enregistrement précedent.
|
| Question : comment réitérer cette vérification à chaque enregistrement ? (ou
| plus exactement à chaque page)


Cela fonctionne à condition que Me.Chemin ne soit pas autre chose
que Null ou un chemin valide !!!

Si tu as autre chose... problème !

Pour faire "béton", tu peux tester l'existance de l'image:

If Dir(Me.Chemin)="" Then
Me.Photo.Picture = ""
Else
Me.Photo.Picture = Me.Chemin
End If


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/