Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Gestion logo en recordset


Sujet :

VBA Access

  1. #1
    Futur Membre du Club
    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 :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,

  2. #2
    Membre émérite
    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.

###raw>template_hook.ano_emploi###