Affichage de plusieurs pièces jointes dans microsoft access 2010, des formulaires et des rapports

J'ai cherché ce pour un problème similaire. J'ai plusieurs pièces jointes par champ. J'ai l'intention d'utiliser le champ pour stocker un .format jpg et .pdf pour deux contrôles d'image que j'ai créé en faisant glisser le champ à partir des propriétés de la forme. J'ai nommé ctlImage et ctlFeatures. Je suis en utilisant ce formulaire non modal popup à partir d'un bouton plus d'infos sur le catalogue de produits de forme. Jusqu'à présent, je suis en mesure de rechercher des enregistrements dans le catalogue de produits et utiliser le listbox résultat de recherche pour ouvrir le formulaire avec une clause where pour définir le formulaire de détails de l'enregistrement en cours. Lorsque j'essaie de manipuler le ctlImage à la recherche pour le type d'image de la seule propriété qui montre dans intellisense est ctlImage.de la valeur. J'espérais attribuer ctlImage jpg et ctlFeatures au format pdf Ici est la frmProducts btnMoreInfo_Click code et le frmCatalogDetails code au cas où l'un joue de l'autre.

Private Sub btnMoreInfo_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim str As String
    Dim row As Long
    Set db = CurrentDb
    Set rs = db.OpenRecordset("tblProducts", dbOpenSnapshot)

        If Me.lstSearchResults.ItemsSelected.Count > 0 Then

            ' Debug.Print Me.lstSearchResults.Column(0)
            row = Me.lstSearchResults.Column(0)
            rs.MoveFirst
            rs.FindFirst "ProductID=" & row
            Debug.Print rs("Description")
            DoCmd.OpenForm "frmCatalogDetails", acNormal, , "ProductID=" & Me.lstSearchResults.Column(0, Me.lstSearchResults.ItemsSelected), acFormReadOnly, acWindowNormal

        Else
            MsgBox "You must select a product"
            Exit Sub
        End If
End Sub

et Catalogue de détails

Option Compare Database
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim fld As DAO.Field

Private Sub Form_Load()

    Set db = CurrentDb

    'Set rs = db.OpenRecordset("tblProducts", dbOpenSnapshot)


    'Set fld = rs("image")

    Debug.Print rs("ProductID")
    Debug.Print rs("Description")
    'me.ctlImage.ControlSource =

    'Me.ctlImage.CurrentAttachment = fld.Value    
End Sub

La rs déclarations sont commentées parce que je vais avoir des ennuis avec ce formulaire en reconnaissant la rs dans le formulaire parent. Je suis une variable bloc with non définie, mais si je ne rs.openRecordSet puis le jeu d'enregistrements remonte à la première ligne. En dehors de votre réponse ci-dessus, j'ai vu très peu de choses sur la manipulation de l'objet de la pièce jointe et l'aide a été difficile, car il ne couvre même pas l'accès à l'intérieur du champ de la pièce jointe. Je suis à un point où je vais faire poser plus de questions que de répondre sur ce sujet, et j'apprécie beaucoup le temps, de nombreuses de vous prendre pour élaborer une réponse.
Rollin
Devise: Demander de l'aide si nécessaire, de donner de l'aide lorsque demandé, et n'oubliez pas d'où vous venez.

OriginalL'auteur Rollin Shultz