Banque d’images : supprimer une image
Dans la série « Gérer une banque d’images sur Access« , voici une question posée par un visiteur du blog : Comment supprimer une image à l’aide d’un bouton ?
Méthode manuelle
Sans bouton, Access permet déjà de supprimer l’enregistrement en cours. Petit rappel si vous avez oublié 🙂
- Cliquez sur le sélecteur d’enregistrement à gauche du formulaire.
- Appuyez sur la touche
[Suppr]
du clavier, ou cliquez sur l’icône Supprimer l’enregistrement du ruban Access 2007 (sur Access 2003 : menu Enregistrement / Supprimer l’enregistrement).
Méthode par bouton
Si vous souhaitez automatiser cela par un bouton :
- Ajoutez le bouton sur votre formulaire (le mien est nommé
btnSupprimer
). - Définissez l’événement
Sur clic
du bouton de cette manière :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Private Sub btnSupprimer_Click() ' Pas de suppression possible si on se trouve sur ' l'enregistrement vierge en "fin" de formulaire If Me.NewRecord Then MsgBox "Suppression impossible.", vbInformation Exit Sub End If ' Demande de confirmation If MsgBox("Confirmez-vous la suppression de cette image ?", _ vbQuestion + vbYesNo) = vbNo Then Exit Sub End If ' On désactive les avertissements d'Access DoCmd.SetWarnings False ' On supprime l'enregistrement DoCmd.RunCommand acCmdDeleteRecord ' On réactive les avertissements DoCmd.SetWarnings True End Sub |
Si vous optez pour la solution ci-dessus, vous pouvez maintenant masquer le sélecteur d’enregistrement :
- Ouvrez votre formulaire en mode Création.
- Faites apparaître ses propriétés, onglet Format.
- Réglez la propriété
Sélecteur d'enregistrement
surNon
.
Merci Hervé! Le code marche. Super!
A bientot…
Christian > A vue de nez, le code donnerait quelque chose comme :
sachant que
[Dossier]
est supposé se terminer par un backslash.Bonjour Hervé, merci du tuyau, je vais essayer la Bibliothèque d’images de Microsoft. Mais j’aimerai tout de même essayer de finaliser mon application et comprendre notemment comment utiliser Application.FollowerHyperLink.
Pour ouvrir une page sur le Web je n’ai pas de problème mais je n’arrive pas à ouvrir l’image présente sur le formulaire. J’ai fouillé sur le blog mais je n’ai pas trouvé comment utiliser Application.FollowerHyperLink pour acceder à un fichier sur l’ordinateur et aussi comment rassembler les champs Dossier et Nom Fichier pour former l’adresse.
Quel serait le code du bouton qui me permettrait d’afficher mon image dans Internet Exploreur?
Christian > Dans ce cas, pour ouvrir l’image dans un autre programme, tu peux utiliser
Application.FollowerHyperLink
ouShellExecute
, au choix. Les 2 sont traités sur ce blog.Autre piste : je n’ai pas testé sur 35000 images (seulement 15000 et 500 dossiers environ) mais la Bibliothèque d’images de Microsoft est pratique pour l’indexation, le marquage (tagging) des fichiers images ou vidéos. A voir maintenant si elle passe le cap des 35000… 🙂
Bonjour Hervé, oui, mon but est de pouvoir ouvrir l’image dans un autre programme pour pouvoir la voir dans sa véritable taille et pas seulement dans un champ de formulaire dont la taille est fixe (ce qui est déjà très bien). Je pense que si l’on utilise un lien hypertexte l’image s’ouvrira dans internet exploreur ou dans le navigateur par défault. En ce qui me concerne, cela me va, mon but étant de pouvoir accéder d’une manière ou d’une autre à l’image en grand format. Ma collection de photo étant elle-meme rangé dans une « collection » de dossier: à l’heure actuelle environ 35 000 photos dans 4 000 dossiers, ces photos étant rangées par pays, régions, ect… Le but final de l’application serait de pouvoir acceder à n’importe laquelle de ces photos sans passer par l’explorateur windows. J’ai déjà essayer avec la base de donnée prévue à cet effet proposée par ACDSEE, le problème est qu’à partir d’un grand nombre d’image ACDSEE plante ou s’arrete tout seul. A terme je construirai donc des tables continents, régions de continents, pays, ect… qui par un savant mélange de relations, listes déroulantes et autres requètes, me permetront d’effectuer des tris sur les photos.
Christian Ferrer > Ouvrir l’image de quelle manière ? L’afficher dans Access ou l’ouvrir dans un autre programme ?
J’ai modifié le champ Dossier du formulaire fmrImages pour que ce dernier m’affiche simplement le champ Dossier de la table tblImages. J’aimerai créer un bouton ou un lien hypertexte pour pouvoir ouvrir l’image de l’enregistrement en cours, sachant que nous possèdons par l’intermédiaire des champs Nom du fichier et Dossier son adresse complète.