[AC-2007] Gestions des pièces jointes avec RecordSet sous VBA [Résolu]

[Oxopor]

Bonjour,

Je voudrais transférer des pièces jointes d'une table1 à une table2.
Pour cela, j'ai un formulaire lié à ma table 2 avec une liste déroulante regroupant les enregistrements de la table 1. AprèsMaj de ma liste me permet de récupérer des données contenues dans la table 1 et de les inclure dans la table 2. Pour les données textes, pas de problème, mais pour les pièces jointes, pas possible.

Mon code est:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Dim ChoixGroupeTaille As String
Dim oRst3 As DAO.Recordset
 
ChoixGroupeTaille = Me.Groupe_taille.Text
 
Set oRst3 = CurrentDb.OpenRecordset("SELECT [Image] FROM [TblGroupe_Taille] WHERE [Num_Groupe]='" & ChoixGroupeTaille & "'", _
dbOpenSnapshot)
 
Me.Photo_Groupe_Taille = oRst3.Fields("Image").Value
 
oRst3.Close
Set oRst3 = Nothing

Avec Image= le champs contenant la pièce jointe dans la table TblGroupe_Taille (table 1)
Photo_Groupe_Taille = le champs devant réceptionner la pièce jointe (table 2)
Groupe_taille = la liste permettant de choisir l'enregistrement de la table 1

J'ai regardé le dossier http://www.developpez.net/forums/d17...s-jointes-vba/, mais je n'arrive pas à réutiliser le code.

Quelqu'un pourrai t il m'aider?

Merci par avance

[marot_r]

Quel est le type du champ [TblGroupe_Taille].[Image] ?

Quel est le type de Me.[Photo_Groupe_Taille] ?

A+

[Oxopor]

Merci marot_r de te soucier de mes problèmes.

[TblGroupe_Taille].[Image] est de type pièce jointe et Me.[Photo_Groupe_Taille] est de type image.

J'ai repris l'aide access et au final j'enregistre le contenu de mon champs sur le disque, je le charge dans ma table et je l'efface du disque. Ça donne :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
'Enregistrement de l'Image sur le disque C
    Dim oRst3 As DAO.Recordset
    Dim SaveImageTaille As DAO.Recordset
 
    Set oRst3 = CurrentDb.OpenRecordset("SELECT [Image] FROM [TblGroupe_Taille] WHERE [Num_Groupe]='" & ChoixGroupeTaille & "'", _
            dbOpenSnapshot)
    Set SaveImageTaille = oRst3.Fields("Image").Value
 
    While Not SaveImageTaille.EOF
        SaveImageTaille.Fields("FileData").SaveToFile _
                  "C:\"
        SaveImageTaille.MoveNext
 
    Wend
 
    oRst3.Close
    Set oRst3 = Nothing
    Set SaveImageTaille = Nothing
 
 
'Récupération de l'Image du disque dans la base et suppression de l'Image sur le disque
    Dim oRst4 As DAO.Recordset
    Dim LoadImageTaille As DAO.Recordset
 
    Set oRst4 = CurrentDb.OpenRecordset("SELECT [Photo_Groupe_Taille] FROM [TblPlante] WHERE [Nom_Botanique]='" & NomPlante & "'")
 
    oRst4.Edit
    Set LoadImageTaille = oRst4.Fields("Photo_Groupe_Taille").Value
 
    LoadImageTaille.Delete
    LoadImageTaille.AddNew
    LoadImageTaille.Fields("FileData").LoadFromFile "c:\" & ChoixGroupeTaille & ".bmp"
    LoadImageTaille.Update
    oRst4.Update
 
    Kill "c:\" & ChoixGroupeTaille & ".bmp"
 
    oRst4.Close
    Set oRst4 = Nothing
    Set LoadImageTaille = Nothing

Ce code fonctionne très bien, par contre il est un peut long et comme j'ai beaucoup d'enregistrement, j'ai peur qu'il ralentisse le programme.

Si tu as des conseils ou une autre façon de faire, je suis preneur.

Merci encore de venir à mon aide.
A +

[marot_r]

Désolé pas de meilleur idée que la la tienne.

A+

[Oxopor]

Ok, merci.

A+