Discussion :

[lio33]

Bonjour,

J'utilise un champ de type pièce jointe dans une de mes tables pour y enregistrer une image associée à chaque utilisateur (un tampon).
J'arrive sur des états à visualiser le contenu (l'image) de ces pièces jointes.

Je cherche à afficher de même ce contenu sur un formulaire dans un contrôle indépendant de type pièce jointe.

J'ai du mal à trouver la formulation correcte pour permettre l'affichage des images contenues dans les PJ. Voici ce que j'ai tenté mais cela ne passe pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        ....
        Set monRcs = maBase.OpenRecordset("SELECT Tampon from tbl_utilisateurs_tampons WHERE ID_TAMPON=" & Me.z_ID_Tampon)
        With monRcs
            If Not monRcs.NoMatch Then
                With monRcs.Fields(0).Value
                    'z_imageTampon est de type pièce jointe
                    Me.z_ImageTampon = monRcs.Fields(0)
                End With
            End If
        End With
        monRcs.Close
        .....

Faut-il utiliser un ctrl de type image ou de type pièce jointe ?
Serait-il possible d'affecter le contenu de cette pièce jointe à un contrôle de type image ?

Merci pour votre aide.

[titi95]

Bonjour

Moi j’essaierais avec Image. Jamais eu de problème avec.

titi95

[lio33]

Merci pour ta réponse,
Tu l'initialiserais comment ton contrôle image à partir d'un champ de type pièce jointe ?

[titi95]

Mon habitude :
Dans le formulaire, le contrôle Image n'est lié à rien ; pas de données.
J'affecte l'image à ce contrôle par VBA. Pour les enregistrements sans image, il faut créer une image "vide" (couleur de fond du formulaire)

titi95

[lio33]

Oui c'est bien ce que je fais puisque sur mon formulaire tous mes contrôles sont indépendants.

Mon problème est : comment affecter, en VBA, à cette image, l'image réelle dont le contenu est enregistré dans un champ de type "Pièce jointe" ?

Un champ de type pièce jointe étant en fait un recordset avec les informations suivantes, FileName, FileType, FileData.

[titi95]

Bonjour

Un exemple de récupération d'une image dans une table d'images en PJ :

Code :

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

1
2
3
4
Dim Enregistrement As DAO.Recordset
Dim ImagePJ As DAO.Recordset
Set Enregistrement = CurrentDb.OpenRecordset("SELECT [img] FROM [t_ImagesBase] WHERE [id]='toto.jpg' ", dbOpenSnapshot)
Set ImagePJ = Enregistrement.Fields("img").Value

titi95

[lio33]

Merci pour ton exemple, mais c'est justement ce que je ne veux pas faire..

J'aimerai avoir un exemple, si c'est possible, pour affecter directement à un contrôle de type Image, et le visualiser sur un formulaire, le contenu d'une pièce jointe contenant un fichier JPG.

[titi95]

Bonjour

Une précision : "ImagePJ" est bien le nom du contrôle type Image créé dans le formulaire.
Mon exemple de code permet donc d'afficher dans un formulaire une image stockée en PJ dans une table.
A toi d'adapter avec tes noms de tables, champs, contrôles...

titi95