Gestion logo en recordset
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:
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,