[FAQ] [Access 2007] Gestion des pièces jointes en VBA

[Tofalu]

Access 2007 amène une nouvelle version des recordset : les recordset2 qui sont en fait des sous recordset. Un champ peut maintenant contenir un ensemble d'enregistrement.

La gestion des pièces jointes se fait par un recordset2. Celui ci est décrit ainsi :

Liste des champs : FileData, FileFlags, FileName, FileTimeStamp, FileType, FileUrl

Lors d'un ajout, il suffit de valoriser FileName et appliquer la méthode LoadFromFile

Sub list()
Dim orst As DAO.Recordset
Dim orst2 As DAO.Recordset2


Set orst = CurrentDb.OpenRecordset("Table1")
'Ajoute le fichier c:\test.txt
Set orst2 = orst.Fields("PJ").Value
With orst2
.AddNew
.Fields("FileData").LoadFromFile "c:\test.txt"
.Update
End With

End Sub

Soit en plus simple :

Sub list()
Dim orst As DAO.Recordset

Set orst = CurrentDb.OpenRecordset("Table1")
'Ajoute le fichier c:\test.txt
With orst.Fields("PJ").Value
.AddNew
.Fields("FileData").LoadFromFile "c:\test.txt"
.Update
End With

End Sub

où le champ PJ contient les pièces jointes

[Tofalu]

Quant à la suppression elle est toute aussi facile

Ici je supprime une pièce jointe en fonction du nom

Sub supprimerPieceJointe()
Dim orst As DAO.Recordset
Dim bolOk As Boolean

'ofld.SaveToFile
Set orst = CurrentDb.OpenRecordset("Table1")
'Accède à la liste des pièces jointes
With orst.Fields("PJ").Value
'Parcours les PJ
While Not .EOF
'Si la piece se nomme test.txt, on la supprime
If .Fields("FileName") = "test.txt" Then
.Delete
bolOk = True
End If
'On passe au suivant
.MoveNext
Wend
End With

'avertit l'utilisateur
If bolOk Then
MsgBox "Pièces jointes supprimées"
Else
MsgBox "Aucune pièce jointe ne porte ce nom"
End If
End Sub

[Tofalu]

On pourrait aussi décider de supprimer en fonction du type du fichier en l'occurence pour les fichiers textes :

Sub supprimerPieceJointe()
Dim orst As DAO.Recordset
Dim bolOk As Boolean

'ofld.SaveToFile
Set orst = CurrentDb.OpenRecordset("Table1")
'Accède à la liste des pièces jointes
With orst.Fields("PJ").Value
'Parcours les PJ
While Not .EOF
'Si la piece est un fichier texte
If .Fields("FileType") = "txt" Then
.Delete
bolOk = True
End If
'On passe au suivant
.MoveNext
Wend
End With

'avertit l'utilisateur
If bolOk Then
MsgBox "Pièces jointes supprimées"
Else
MsgBox "Aucune pièce jointe ne porte ce nom"
End If
End Sub

[Tofalu]

Pour la suppression, le mode SQL peut aussi être envisagé :

DELETE PJ.Filename
FROM Table1
WHERE PJ.FileType="txt"

[Tofalu]

Avec le mode SQL on peut effectuer de nombreux listing tels :

N° est un autre champ de ma table

Lister l'ensemble des enregistrements avec leurs pièces jointes

SELECT Table1.[N°], Table1.[PJ].[Value].[FileName] AS Fichier
FROM Table1;

Lister l'ensemble des enregistrements avec leurs pièces jointes en se limitant aux fichiers textes

SELECT Table1.[N°], Table1.[PJ].[Value].[FileName] AS Fichier
FROM Table1
WHERE Table1.[PJ].[Value].[FileType]="txt";

Lister les enregistrements possédant au moins une pièce jointe

SELECT T.[N°], T.[PJ].[Value].[FileName] AS Fichier
FROM Table1 AS T
WHERE (
SELECT Count(Table1.[PJ].[Value]) FROM Table1 WHERE N°=T.N°
)>0;