Discussion :

[nathansenouf]

Bonjour à tous,

Je suis entrain de travailler sur une BDD avec un fichier client mais je bloque sur un point : la gestion des logos avec un rst.

J'ai deux petits problèmes :

1) Je m'explique, pour créer un nouveau client, j'ai fais un formulaire d'ajout avec des champs à remplir et je me sers d'un rst.AddNew pour enregistrer le nouvel enregistrement.
Le seul problème que j'ai, c'est que je ne sais pas comment gérer les logos des entreprises (un pour chaque). J'ai lu qu'il fallait mieux passer par le biais d'une pièce jointe plutôt d'un objet OLE.

2) Dans mon formulaire de visualisation des entreprises, j'ai une zone de liste. Au clic, j'ai un code qui s'exécute pour afficher les détails de l'entreprises. Tout s'affiche bien sauf le logo. Le code qui me permet d'afficher le logo est le suivant mais il ne fonctionne pas ..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'Ajout du logo de l'obtenteur dans le formulaire d'affichage
Dim SQLPJ As String
Dim rstpj As Recordset
Dim IDO As Long
 
IDO = Me.L_Obtenteurs.Column(0)
 
Dim Enregistrement As DAO.Recordset
Dim ImagePJ As DAO.Recordset
 
SQLC = "SELECT T_Obtenteur.Logo " & _
"FROM T_Obtenteur " & _
"WHERE (((T_Obtenteur.ID)= " & IDO & "));"
 
Set rstpj = CurrentDb.OpenRecordset(SQLC, dbOpenSnapshot)
 
Forms("F_Obtenteurs_Visuel").Controls("PJ_Logo") = rstpj.Fields(0)
 
rstpj.Close

Auriez vous une réponse à m'apporter ?

Merci d''avance,

Bonne soirée,

[EricDgn]

Bonjour,

Pas beaucoup de réponses! Travailler avec des champs de type "Pièce jointe" n'est pas très simple. En attaché une mini bdd permettant de voir ce que j'ai trouvé possible de faire avec des images.

Cordialement.