Access 2007 par l'exemple : Intégration d'images dans les Formulaires Continus

Il s'agit d'un formulaire de saisie d'employés (Nom, prénom, salaire, poste et photo). Ce formulaire se présente sous forme de fiche.

Ce formulaire permet également de saisir les employés (Nom, prénom, salaire, poste et photo). Toutefois et contrairement au précédent, il est en mode continu ce qui signifie qu'il affiche tous les enregistrements les uns en dessous des autres.

Créez un nouveau formulaire :

Il vous suffit simplement d'ajouter les différents contrôles depuis la liste des champs. La source du formulaire est la table tblEmployes. Ne pas oublier le bouton Insérer photo.

Pour insérer le cadre destiné à contenir l'image, sélectionnez bien le bouton image comme indiquer sur la photo ci-dessous.

Maintenant il faut lier les contrôles aux champs de la table par la propriété Source (onglet données). Effectuez un clic droit sur les contrôles puis sélectionnez
Propriétés -> Onglet Données -> Source -> sélectionnez le champs correspondant.

Grande nouveauté d'Access 2007 :
Il est maintenant possible de lier un contrôle image à un champ de la table.
C'est ce que nous allons effectuer avec le contrôle image qui sera lié au champ Photos de la table tblEmployes

Propriétés du Formulaire :

• Affichage par défaut => Formulaire Unique.
• Affichage Sélecteur => Non

• Source => tblEmployes

Créez alors le second formulaire :

Faites un copier/coller du Formulaire 1 en modifiant ces paramètres.

Propriétés du Formulaire :

• Affichage par défaut => Formulaire Continus.
• Affichage Sélecteur => Non

• Source => tblEmployes

Pour disposer de cette fonctionnalité vous devez sélectionner la référence

Microsoft Office xx.x Object Library

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

Nous allons paramétrer l'objet FileDialog afin d'obtenir ce type de boîte :

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

- 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

.InitialView = msoFileDialogViewThumbnail

- Personnalisation du bouton Ouvrir.

.ButtonName = "Insérer"

- Affichage de la boîte de dialogue.

If .Show Then

Appel de la Gestion de l'erreurs.

On Error GoTo fini

Si le fichier chargé dans le contrôle n'est pas une image l'erreur 2220 est levée ce qui nous permet d'afficher un message personnalisé.
Pour les autres erreurs, nous afficherons simplement le N° d'erreur et sa description.

fini:
Select Case Err
	Case 2220
		MsgBox "L'importation du fichier ne s'est pas effectué normalement.", _
			vbCritical, "Erreur fichier Image"
	Case Else
		MsgBox Err.Number & Chr(13) & Err.Description
	End Select

Affichage dans le contrôle du fichier sélectionné et renvoie une erreur si ce n'est pas une image.

Me.Image1.Picture = .SelectedItems(1)

Si l'erreur n'est pas levée nous effaçons l'image que l'on vient de charger, ceci dans un but purement d'esthétique.

Me.Image1.Picture = ""

Extraction du nom du fichier sélectionné pour la copie.

strFichier = Mid(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))

Copie de l'image sélectionnée dans le dossier images du répertoire courant de la base.

FileCopy .SelectedItems(1), CurrentProject.Path & "\images" & strFichier

Chargement du chemin de l'image du sous dossier dans le champ de la table.

Me.Photos = CurrentProject.Path & "\images" & strFichier

Rafraichissement du Formulaire.

Me.Refresh

Voici le code complet à mettre dans l'événement sur clic du bouton Insérer.

Private Sub btnInserer_Click()
'Déclaration des variables
Dim strFichier As String
Dim oFD As FileDialog
'Paramètre la fenêtre Ouvrir
Set oFD = Application.FileDialog(msoFileDialogOpen)
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
    'Renseignement du titre
    .Title = "Insérer une image"
    'Ouvre l'explorateur dans le fichier 'Mes documents' du User connecté.
    .InitialFileName = Environ("USERPROFILE") & "\Mes documents\Mes images"
    'Interdit la multi sélection
    .AllowMultiSelect = False
    'Permet de choisir le mode d'affichage dans l'explorateur (ici apperçu)
    .InitialView = msoFileDialogViewPreview
    'Permet de personnaliser le bouton.
    .ButtonName = "Insérer"
    'Affiche la fenêtre
    If .Show Then
        On Error GoTo fini  'gestion erreur pour control importation
        'Retourne un erreur si pas fichier image.
        Me.Image1.Picture = .SelectedItems(1)
        'Vide du cadre image.
        Me.Image1.Picture = ""
        'Extraction du nom du fichier à copier.
        strFichier = Mid(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))
        'Copie du fichier sélectionné vers le sous dossier de la base.
        FileCopy .SelectedItems(1), CurrentProject.Path & "\images" & strFichier
        'Chargement dans control du chemin de l'image (sous dossier base).
        Me.Photos = CurrentProject.Path & "\images" & strFichier
        'Rafraîchit le Formulaire.
        Me.Refresh
    End If
End With
Exit Sub
fini:
    Select Case Err
        Case 2220
            MsgBox "L'importation du fichier ne c'est pas effectué normalement.", _
                vbCritical, "Erreur fichier Image"
        Case Else
            MsgBox Err.Number & Chr(13) & Err.Description
    End Select
End Sub