[Image] Chemin absolu à la création modifié par VBA après.

Version imprimable

06/04/2006, 15h40
Caroline1

[Image] Chemin absolu à la création modifié par VBA après.

Je sais, les questions concernant les images pullulent en ce moment... J'ai lu tuto, anciens messages et autres doc-recherche-google mais je n'ai pas trouvé la confirmation que je cherche.

Sur tous mes formulaires, je répète un logo d'entête (lié). J'aurais bien aimé pouvoir mettre '=CurrentProject.Path & "ressources/images/NomFichier.bmp"' directement dans la fenêtre propriété Image d'Access mais ça ne fonctionne pas. CurrentProject.Path n'est pas interprété et Access chiale parce que le chemin n'est pas valide.

La seule solution me semble être de préciser un chemin absolu valide à la création et de changer ensuite la propriété sur le OnLoad du formulaire.

Ou y'a une autre méthode?

Merci :-)
Caroline

Correction: sur le OnOpen du formulaire.
06/04/2006, 15h44
cafeine
Hello,

une idée non testée ... tu pourrais utiliser une fonction
Code:

1 2 3 Function GetImgPath(byval strImg as String) As String GetImgPath = currentproject.path & strImg End Function
et en propriété

Code:

=GetImgPath("ressources\images\bidule.bmp")
06/04/2006, 15h51
Arkham46

slt,

le chemin du fichier est vérifié en mode création il me semble

donc la solution c'est de mettre l'affectation du fichier image dans l'événement "sur chargement" du formulaire

tu peux vider la propriété image du contrôle pour éviter de stocker inutilement l'image dans la base
06/04/2006, 15h54
Caroline1

Citation:

Envoyé par cafeine

tu pourrais utiliser une fonction

Négatif négatif. Déjà essayé. J'obtiendrais (et j'obtiens d'ailleurs : j'ai retenté juste pour faire sûr) la même erreur à savoir "Microsoft Office Access ne peut pas ouvrir le fichier 'GetImgPath(""ressources\images\bidule.bmp"")'"
06/04/2006, 16h06
Caroline1

Citation:

Envoyé par Arkham46

slt, le chemin du fichier est vérifié en mode création il me semble

Oui...

Citation:

donc la solution c'est de mettre l'affectation du fichier image dans l'événement "sur chargement" du formulaire

"Sur chargement", "Sur ouverture"... j'ai testé et ça fonctionne également les deux. J'aurais pensé que "Sur ouverture" était mieux puisqu'il se produit avant. Pourquoi préfères-tu "Sur chargement"?

Citation:

tu peux vider la propriété image du contrôle pour éviter de stocker inutilement l'image dans la base

Vider... vider où? À partir de la fenêtre Propriété d'Access? Si c'est bien ça, non, ça ne marche pas. Access (2003, XP) me demande alors "Supprimer l'image du formulaire?". Si je répond Oui, le contrôle Image est supprimer complètement. Si je répond Non, la propriété est réinitialisé avec la valeur que je tentais de vider.

En plaçant l'image en "attachée", elle ne devrait pas être stockée dans le projet, non?
06/04/2006, 16h16
Caroline1

Un truc rigolo :

Dans la doc : "le paramètre par défaut est (aucune)". Sauf qu'à la création d'un contrôle image, il ne semble y avoir aucun moyen de définir la propriété Image sur "aucune". Si tu ne précises pas un fichier, le contrôle est supprimé. Si tu essaies d'écrire "(aucune)", Access chiale (Le fichier '(aucune)' est introuvable). Le seul truc : provoquer une erreur. Charger un fichier qui n'est pas une image... ne provoque pas d'erreur mais initialise la propriété image à (aucune). lol.

Mais ça ne répond pas vraiment à ma question.
06/04/2006, 16h20
Arkham46

Citation:

"Sur chargement", "Sur ouverture"... j'ai testé et ça fonctionne également les deux. J'aurais pensé que "Sur ouverture" était mieux puisqu'il se produit avant. Pourquoi préfères-tu "Sur chargement"?

"Sur ouverture" se produit avant l'affichage des enregistrements du formulaire, c'est peut-être mieux en fait

Citation:

Vider... vider où? À partir de la fenêtre Propriété d'Access? Si c'est bien ça, non, ça ne marche pas. Access (2003, XP) me demande alors "Supprimer l'image du formulaire?". Si je répond Oui, le contrôle Image est supprimer complètement. Si je répond Non, la propriété est réinitialisé avec la valeur que je tentais de vider.

En plaçant l'image en "attachée", elle ne devrait pas être stockée dans le projet, non?

Oui c'est bien là.
C'est pas grâve si l'image se vide, elle est mise à jour à l'ouverture du formulaire.
Si tu l'attaches tu risques d'avoir des messages d'erreurs quand tu déplaceras tes fichiers, non? et je n'y vois aucun intérêt en fait.
06/04/2006, 16h35
Caroline1

Citation:

Envoyé par Arkham46

Si tu l'attaches tu risques d'avoir des messages d'erreurs quand tu déplaceras tes fichiers, non? et je n'y vois aucun intérêt en fait.

C'est un autre point, que je crois avoir réglé. J'enregistre mes images dans un champs OLE (on tape pas... enfin, pas tout de suite) en binaire. À l'ouverture de l'appli, je teste si le répertoire ressource existe dans le même répertoire que mon application et si non, je crée le répertoire et recopie (toujours en binaire) toutes mes images de la bd. Faut comprendre que j'ai une dizaine d'images (dont le logo qui est la plus grosse. Les autres, c'est surtout de petites icônes) qui se répètent sur la majorité des formulaires et que je dois avoir une trentaine de formulaires.

J'ai fait quelques tests avant d'arriver à cette solution. J'ai comparé la taille du projet

1-si les images sont intégrées
2-si les images sont liés
3-si les images sont stockées dans une table et lié.

La solution 3 donne une application moins volumineuse que la solution 1 tout en réglant le problème de déplacement de fichier de la solution 2. Je crois que ça vaut la peine.

Ou peut-être que je me casse trop la tête pour quelques malheureux octets.

À votre avis, le formulaire se charge-t-il plus vite avec des images intégrées?
06/04/2006, 16h43
Caroline1

Citation:

C'est pas grâve si l'image se vide, elle est mise à jour à l'ouverture du formulaire.

C'est peut-être nos version d'Access qui ne sont pas les même? Quand j'essaie de vider la propriété Picture, ce n'est pas l'image qui se vide, c'est le contrôle qui disparaît. Access veut toujours un chemin valide en mode création ou alors, il supprime le contrôle. À moins de bidouiller pour obtenir la valeur par défaut "(aucune)", comme j'ai expliqué juste avant. Avoue que c'était un peu tordue à deviner.
06/04/2006, 19h03
Caroline1

Merci pour vos réponses. Il ne semble pas y avoir moyen d'éviter de passer par le code.

Caroline
06/04/2006, 19h57
Arkham46

non j'ai jamais réussi à me passer du code pour faire ça

par contre c'est bizarre quand je supprime la propriété picture le contrôle n'est pas supprimé, l'image est vide et donc le contrôle est transparent (juste avec une bordure fine)

j'ai access 2003 mais je crois me rappeler que c'est pareil sur 2000 et 97
07/04/2006, 12h42
Invité
Salut,

Pour palier à ce problème j'utilise l'activeX Microsof Form 2.0 Image, par programmation on fait :
Code:

1 2 me.imgMontre.Picture = LoadPicture(strChemImage & "\Montre.gif")
et strChemImage stock le chemin relatif

Starec
07/04/2006, 14h27
Caroline1

Citation:

Envoyé par Starec

j'utilise l'activeX Microsof Form 2.0 Image [...] LoadPicture

Merci. Je vais regarder du côté de LoadPicture aussi. Ça ne permettrait pas d'améliorer la rapidité de chargement de l'image et du formulaire, aussi?

Citation:

Envoyé par Arkham46

Si tu l'attaches tu risques d'avoir des messages d'erreurs quand tu déplaceras tes fichiers, non? et je n'y vois aucun intérêt en fait.

Réflexions d'hier soir... quand tu vas écrire dans le code imgX.Picture = CurrentProject.path & "monImage.bmp", qu'elle soit en lié ou attaché, Access ira quand même d'abord rechercher l'image dans le répertoire externe. Si tu déplaces les fichiers, le problème reste le même. Non?
07/04/2006, 15h05
Arkham46

Citation:

Envoyé par Caroline1

Merci. Je vais regarder du côté de LoadPicture aussi. Ça ne permettrait pas d'améliorer la rapidité de chargement de l'image et du formulaire, aussi?

La grosse différence que j'ai vue est que LoadPicture est synchrone, et que la fenêtre de dialogue de conversion n'apparaît pas.

Citation:

Envoyé par Caroline1

qu'elle soit en lié ou attaché, Access ira quand même d'abord rechercher l'image dans le répertoire externe. Si tu déplaces les fichiers, le problème reste le même. Non?

Je ne vois pas bien la différence entre liée et attachée...
Ce que je veux dire c'est que si tu charges l'image avec du code il est inutile de laisser en plus le lien dans le contrôle.
Si l'image n'est plus au bon emplacement il y a aura une erreur en mode création. En mode affichage je ne sais pas trop.
Le message d'erreur au chargement dans le code n'est pas gênant en tout cas, vu qu'on peut gérer l'erreur.
(Mais bon j'ai tendance à pinailler)

Sinon ce que peux également faire pour travailler avec une image intégrée sans avoir à la mettre dans tous les formulaires :
- tu crées un formulaire FImages que tu ouvres en mode caché
- dans ce formulaire FImages tu as un contrôle image ImgLogo
- dans les formulaires où tu veux mettre le logo (avec bien sûr un contrôle image ImgLogo dans le formulaire),à l'ouverture tu mets

Code:

Me.ImgLogo.PictureData = Forms("FImages").ImgLogo.PictureData

Comme tu ne t'embêtes plus avec des images externes et tu ne fais pas énormément grossir la base vu que l'image n'y est stockée qu'une seule fois.
C'est pratique pour mettre des images de logo ou de boutons qu'on retrouve dans tous les formulaires.

Chaque solution a ses avantages et ses inconvénients. :roll:
07/04/2006, 15h21
Caroline1

Citation:

Envoyé par Arkham46

Je ne vois pas bien la différence entre liée et attachée...

Je fesais référence à cette propriété :

Citation:

Envoyé par Doc M VBA

La propriété Type image (PictureType) vous permet de spécifier si Microsoft Access conserve l'image d'un objet comme objet lié ou incorporé.

Incorporé (Valeur par défaut) : L'image est incorporée dans l'objet et fait partie du fichier de base de données.
Lié : L'image est liée à l'objet. Microsoft Access stocke un pointeur vers l'emplacement de l'image sur le disque.

Je comprends mieux ce que tu voulais dire. En tout cas j,ai assez de munitions pour mieux évaluer chaque solution :-). Merci pour ton temps et tes réponses détaillées.

Caroline
22/10/2007, 11h14
El_Manu

Citation:

Envoyé par Arkham46

...
Me.ImgLogo.PictureData = Forms("FImages").ImgLogo.PictureData
...

SMACK !!!

Grand merci, tu viens de me faire gagner une poignée de cheveux gris.