Access intégration d’images dans les formulaires continus

Cours Access intégration d’images dans les formulaires continus, tutoriel & guide de travaux pratiques en pdf.

Code VBA

Cette application ne possède qu’une procédure VBA qui utilise FileDialog et File. Christophe WARIN a développé le sujet dans son tutoriel Les pièces jointes par l’exemple : nous n’allons pas reprendre ces explications mais simplement les compléter un peu.
Ce code va permettre d’afficher la boîte de dialogue Windows pour sélectionner la photo à insérer dans le cadre image. Ce qu’il faut que vous assimiliez, c’est que nous ne stockons pas l’image dans le champ de la table mais le chemin pour y accéder. Avant cela nous allons effectuer une copie de l’image sélectionnée dans le dossier images.
VII-A – Déclarations des Variables
Pour disposer de cette fonctionnalité vous devez sélectionner la référence
Microsoft Office xx.x Object Library
Access 2007 par l’exemple : Intégration d’images dans les Formulaires Continus par Morgan BILLY (Espace Perso de Dolphy35)
Nous allons utiliser 2 variables dans ce code, strFichier qui stockera le nom de l’image sélectionnée et oFD objet de type FileDialog qui est l’instance de la boîte de dialogue ouvrir.
‘Déclaration des variables Dim strFichier As String Dim oFD As FileDialog

Boîte de dialogue Ouvrir

Nous allons paramétrer l’objet FileDialog afin d’obtenir ce type de boîte :
Access 2007 par l’exemple : Intégration d’images dans les Formulaires Continus par Morgan BILLY (Espace Perso de Dolphy35)
Il s’agit d’une boite ouvrir elle sera donc obtenue par :
Set oFD = Application.FileDialog(msoFileDialogOpen)
– Ajout des filtres de la boîte, il est possible de mettre plusieurs extensions dans un même filtre en les séparant par  » ; « .
With oFD ‘Ajoute les filtres pour fichiers images et tous With .Filters .Clear .Add « Fichiers images », « *.jpg;*.jpeg;*.bmp;*.gif », 1 .Add « Tous », « *.* », 2 End With
– Le Titre.
.Title = « Insérer une image »
– Répertoire par défaut lors de l’ouverture. Dans cet exemple nous allons ouvrir la boîte dans Mes documents\Mes images de l’utilisateur connecté. -> La variable d’environnement USERPROFILE retourne le chemin d’accès du répertoire spécifique de l’utilisateur: C:\Documents and Settings\Dolphy35
.InitialFileName = Environ(« USERPROFILE ») & « \Mes documents\Mes images »
– Pour interdire la sélection multiple des fichiers, qui génèrerait automatiquement une erreur, il vous faut définir la propriété .AllowMultiSelect à False.
.AllowMultiSelect = False
Access 2007 par l’exemple : Intégration d’images dans les Formulaires Continus par Morgan BILLY (Espace Perso de Dolphy35)
– Grande nouveauté d’Access12, le paramétrage de l’affichage des fichiers dans la boîte de dialogue en une seule ligne, dans notre exemple nous allons forcer l’affichage en type Apperçu
.InitialView = msoFileDialogViewPreview
– Vous pouvez également mettre l’affichage dans la boîte en Miniatures