Pour n'autoriser, par exemple, que les pièces-jointes avec une extension *.txt, l'idéal serait de définir la propriété Valide Si du champ en mode création. Malheureusement, cette propriété n'est pas disponible. Solution : créer le champ avec VBA (c'est le seul moyen d'accéder à cette propriété).

Dim oDb As DAO.Database
Dim oTbl As DAO.TableDef
Dim oFld As DAO.Field2
Set oDb = CurrentDb
Set oTbl = oDb.TableDefs("Clients")
With oTbl
    'Crée le champ
    Set oFld = .CreateField("PhotoClient", dbAttachment)
    'Définit la propriété Valide Si
    oFld.ValidationRule = "*.txt"
    .Fields.Append oFld
 
End With

Seul bémol, si l'utilisateur tente d'insérer un autre type de pièce-jointe, l'application lèvera l'erreur -3703 dont le message est peu explicite.

www.developpez.com vous propose :

A la découverte d'Access 2007 : les pièces-jointes et les objets FileDialog par l'exemple par Christophe Warin

Dans la continuité de l'article sur les champs multi-valués, je vous propose d'étudier deux autres nouveautés d'Access 2007 : Les pièces-jointes et les FileDialog

[Access 2007 - Nouveautés] Les pièces-jointes

Un débat sur cette nouveauté. Venez-y vous exprimer et donner votre avis et vos conseils