Discussion :

[ClaudeLELOUP]

Bonjour,

Ce tutoriel décrit UNE méthode pour garder, hors de la base de données, les images qui garnissent un formulaire ou un état.

Access permet de stocker des images directement dans la base de données. Que ce soit en tant que valeur du champ OLE d'une table ou en tant que propriété Image (Picture) d'un formulaire, d'un état ou d'un contrôle de l'un de ces deux objets.
Toutefois, cela peut très vite alourdir la base de données si l'on a un grand nombre d'images en jeu.
Cafeine dans son tutoriel Gestion de photos par formulaire a montré comment externaliser les images : ce sont les adresses qui sont stockées dans la table et non les images elles-mêmes.
Ici, j'ai abordé le côté statique : l'affichage des images fixes qui décorent les formulaires et les états de la base de données.
Certes le problème du poids de ces images dans la base de données se pose d'une manière moins aiguë que lorsqu'il s'agit de tables contenant des milliers d'enregistrements avec des champs OLE, cependant pensez à une base avec quelques dizaines de formulaires et autant d'états, tous décorés du logo de l'entreprise, ça commence à peser...

Cordialement.

[djibril]

Bel article !

[St-Jean]

J'hallucine. Je programme en VBA access depuis des années, je lis des quantités de tutoriaux et articles de forum ou autres, parce qu'il y a toujours des bonnes idées à glâner, et c'est la première fois que je tombe sur codecontextobject! Quand je pense à toutes les fois où cette référence m'aurait rendu service et au temps que j'aurais gagné!

Cela m'amène à m'interroger. Pourquoi une référence d'objet si utile n'est-elle pas plus souvent employée dans les forums, sites d'astuces et autres tutoriaux? Y aurait-il un revers à la médaille, comme, par exemple, une lenteur à l'exécution? A priori' je ne penserai pas, mais je trouve ça surprenant.

Au moins pour ça, un grand merci!

[ClaudeLELOUP]

Je ne connaissais pas non plus avant cet autre tutoriel (vois § 8.c).
Et c’est Arkham46 qui m’a refilé le tuyau…

[Domi2]

Pour ce qui me concerne, c'est l'utilisation astucieuse de la propriété "Remarque" que j'apprécie particulièrement.

En résumé, un excellent tuto, qui devrait ouvrir des perspectives aux débutants !

Et rappeler aux membres plus confirmés que certaines propriétés ou certains événements sont sous-exploités.

Merci Claude pour cet excellent article !

[Claude_paul_louis]

Bonjour,
Merci pour votre réponse.
En fait j'avais déjà essayé votre tutoriel, mais la réponse est toujours que l'image est dans un format invalide pour le contrôle. En fait, il semble que les images indépendantes d'Access n'acceptent que le format BMP. Il semble aussi qu'il faudrait des "filtres" spécifiques pour qu'il accepte autre chose...mais je n'ai pas trouvé... de quoi il s'agit!
De plus, même en format BMP, Access affiche correctement l'image mais seulement à condition que celle-ci soit de dimensions inférieures au cadre prévu. Toute modification d'échelle est faite mais très mal et l'image résultante est inacceptable en terme de qualité. Or il est difficile, dans un formulaire d'adapter le cadre à la dimension de l'image...sans défaire toute l'esthétique de celui-ci.
Seule solution, recadrer les images pour s'assurer qu'elles rentrent dans les dimensions du contrôle.
Il me reste un dernier problème pour compléter ce que je veux faire, c'est de trouver comment, par programmation, je peux retrouver et modifier l'adresse d'un objet OLE...
Merci pour votre collaboration,
C'est plus facile pour moi en Lisp, Scheme ou autre langage fonctionnel...

Claude

[ClaudeLELOUP]

Bonjour Claude_paul_louis,

Merci pour l'intérêt porté à ce billet.


Pour trouver réponse à ta question :
dans l'aide Access (<F1>), choisis l'onglet "Aide intuitive" et saisis

Filtres graphiques et formats de fichier pouvant être utilisés par Microsoft Access

.

Cordialement.


P.-S. Vois aussi cette Q/R.

[Kytel]

Très intéressant cet article. Cependant il n'a pas l'air de fonctionner même sur l'exemple donné. J'utilise la version 2013.
Pouvez vous m'aider?

[ClaudeLELOUP]

Bonjour Kytel et bienvenue chez nous.

Merci pour l'intérêt porté à ce tutoriel.

As-tu bien décompressé toute l'archive dans un répertoire ?

Tu dois avoir cette arborescence :

[Kytel]

Merci pour votre retour rapide.
Oui j'ai bien décompressé le .zip et ça me donne bien le répertoire Images avec les différentes images et le fichier Access

[Arkham46]

Bonjour,

Je viens de tester sur 2016, la propriété d'image n'est pas "(aucune)" mais "(aucun)" dans ma version...
C'est peut-être pareil sur 2013.

Plutôt que de tester cette propriété, il vaut mieux tester la nullité de PictureData.

En remplace dans le module mFonctions :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CodeContextObject.Picture = "(aucune)"

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IsNull(CodeContextObject.PictureData)

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ctrl.Picture = "(aucune)"

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IsNull(Ctrl.PictureData)

[ClaudeLELOUP]

Merci Thierry,

Je viens de corriger le tutoriel.
https://claudeleloup.developpez.com/...onnees-access/

[Kytel]

Merci pour vos retours et corrections.
L'exemple fonctionne maintenant. Par contre j'ai toujours un message d'erreur dans ma base: "Erreur de compilation: Variable ou procédure attendue, et non un module" au niveau de l'appel du module AmnImages voir captaure d'écran ci-dessous:

[ClaudeLELOUP]

Bonjour Kytel,

C'est probablement encore une subtilité due à la différence de nos versions.
Désolé de ne pas pouvoir t'aider.
Espérons qu'un autre forumeur mieux équipé vienne prendre le relais.

[tee_grandbois]

bonjour Kytel,

Par contre j'ai toujours un message d'erreur dans ma base: "Erreur de compilation: Variable ou procédure attendue, et non un module" au niveau de l'appel du module AmnImages

Regarde dans la fenêtre base de données type d'objets Modules ou dans VBA, dans la fenêtre explorateur de projets : aurais-tu appelé le module et la fonction AmnImages ?
Si c'est le cas, renomme ton module autrement.

[Kytel]

En effet l'erreur de compilation venait de ça. Merci.
Maintenant j'arrive à affaicher une image fixe comme dans l'exemple. Mais je voudrai compliquer un peu en affichant l'image qui est contenu dans le champ d'une table. Comment puis je procéder pour appeler ce champ?

[ClaudeLELOUP]

Bonjour Guy,
Merci pour le relais.

Bonjour Kytel,

En effet l'erreur de compilation venait de ça. Merci.

C’est donc que tu n’utilisais pas la base proposée par le tutoriel !

Mais je voudrai compliquer un peu en affichant l'image qui est contenu dans le champ d'une table.

Ceci s’écarte de l’esprit de ce tutoriel qui vise précisément à éviter d’intégrer les images dans une table !
Je te suggère d’ouvrir une autre discussion pour poser ta question.

[Kytel]

Non justement je ne veux pas intégrer les images dans ma table, j'ai juste mis le nom des images dans ma table.

[ClaudeLELOUP]

Alors comme je le mentionne :



Regarde donc ici : https://cafeine.developpez.com/access/tutoriel/photos/

[Kytel]

Merci pour le lien. je vais m'en inspirer.