ACC : Comment faire pour afficher des images dans un formulaire ou dans un état sans le stockage des images dans une table

Retour au début

Dans Microsoft Access 97 et 7.0

Création de la table pour fichier de magasin et chemin d'accès des données

1. Ouvrez la base de données Comptoir.mdb.
2. Créer une nouvelle table est nommée Imagetable, puis ajoutez un champ texte nommé ImagePath.
3. Ouvrez la table Imagetable en mode feuille de données, puis ajoutez le chemin d'accès et le nom d'un fichier bitmap à chaque enregistrement. Les exemples suivants illustrent la façon dont les enregistrements peuvent s'afficher :

         c:\windows\circles.bmp
         c:\windows\waves.bmp
         c:\windows\tiles.bmp
         c:\windows\bubbles.bmp
   					

Affichage des images dans un formulaire

1. Utilisez le formulaire instantané : colonne simple Assistant pour créer un nouveau formulaire est basé sur la table ImageTable.
2. Ouvrez le formulaire Imageform en mode Création, puis ajoutez un contrôle image au formulaire à l'aide de l'outil image dans la boîte à outils. Vous êtes invité à sélectionner une image à insérer. Sélectionnez n'importe quelle image disponible sur votre ordinateur. Nommez le contrôle ImageFrame.
3. Définir la propriété SurActivation (OnCurrent) du formulaire Imageform à la procédure événementielle suivante :

         Private Sub Form_Current()
            On Error Resume Next
            Me![ImageFrame].Picture = Me![ImagePath]
         End Sub
   						

4. Définir la propriété AprèsMAJ de la zone de texte ImagePath à la procédure événementielle suivante :

         Private Sub ImagePath_AfterUpdate()
            On Error Resume Next
            Me![ImageFrame].Picture = Me![ImagePath]
         End Sub
   						

5. Ouvrez le formulaire Imageform en mode formulaire. Notez que le formulaire affiche l'image bitmap correspondante pour chaque enregistrement.

Affichage des images dans un état

1. Vous pouvez utiliser l'Assistant État instantané pour créer un nouveau rapport est basé sur la table ImageTable. Nommez l'état ImageReport.
2. Ouvrez ImageReport en mode Création, puis ajoutez un contrôle image pour le rapport à l'aide de l'outil image dans la boîte à outils. Vous êtes invité à sélectionner une image à insérer. Sélectionnez n'importe quelle image est disponible sur votre ordinateur. Nommez le contrôle ImageFrame.
3. La valeur de l'événement de format de la section «Détails» du rapport sur la procédure événementielle suivante :

         
         Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
            Me![Imageframe].picture = me![Imagepath]
         End Sub 
   						

4. Ouvrez le ImageReport en mode Aperçu avant impression. Notez que le rapport affiche l'image bitmap correspondante pour chaque enregistrement.

Retour au début

Dans Microsoft Access 2.0

Création de la table pour fichier de magasin et chemin d'accès des données

1. Ouvrez la base de données exemple Comptoir.mdb.
2. Créer une nouvelle table est nommée Imagetable, puis ajoutez un champ texte nommé ImagePath.
3. Ouvrez la table Imagetable en mode feuille de données, puis ajoutez le chemin d'accès et le nom d'un fichier bitmap à chaque enregistrement. Les exemples suivants illustrent la façon dont les enregistrements peuvent s'afficher :

         c:\windows\circles.bmp
         c:\windows\waves.bmp
         c:\windows\tiles.bmp
         c:\windows\bubbles.bmp

Affichage des images dans un formulaire

1. Utilisez l'Assistant formulaire instantané pour créer un nouveau formulaire est basé sur la table ImageTable. Nommez le formulaire Imageform.
2. Ouvrez le formulaire Imageform en mode Création, puis ajoutez un cadre d'objet indépendant à l'aide de l'outil cadre d'objet indépendant dans la boîte à outils. Nommez le contrôle ImageFrame.
3. Définir la propriété SurActivation (OnCurrent) du formulaire Imageform à la procédure événementielle suivante :

         Private Sub Form_Current()
            On Error Resume Next
            If Not IsNull(Me![ImagePath]) Then
            Me![ImageFrame].OLETypeAllowed = 1
            Me![ImageFrame].SourceDoc = Me![Imagepath]
            Me![ImageFrame].Action = 0
            End If
         End Sub
   						

4. Définir la propriété AprèsMAJ de la zone de texte ImagePath la procédure événementielle suivante :

         Sub ImagePath_AfterUpdate ()
            On Error Resume Next
            Me![ImageFrame].OLETypeAllowed = 1
            Me![ImageFrame].SourceDoc = Me![Imagepath]
            Me![ImageFrame].Action = 0
         End Sub
   						

5. Définissez les propriétés suivantes pour le cadre d'objet indépendant ImageFrame :

          Enabled: Yes<BR/>
          Locked: No
       
   					

6. Ouvrez le Imageform en mode formulaire. Notez que le formulaire affiche l'image bitmap correspondante pour chaque enregistrement.

Retour au début