FAQ access 2007

Sommaire > Pi�ces-jointes > Programmer le contr�le Pi�ce-jointe
        Comment changer de pi�ce jointe ?
        Comment connaitre la taille de la pi�ce-jointe s�lectionn�e ?
        Comment conna�tre les propri�t�s du fichier s�lectionn� ?
        Comment conna�tre le nombre de pi�ces-jointes affich�es ?
        Comment ex�cuter une action lorsque l'utilisateur s�lectionne une pi�ce-jointe ?
        Comment savoir si un contr�le est de type pi�ce-jointe ?
        Comment se positionner sur la derni�re pi�ce jointe ?

��

��

��

Comment changer de pi�ce jointe ?

[haut]

auteur : Christophe Warin

Pour se d�placer dans un contr�le pi�ce jointe, il existe deux possibilit�s :

Programmer les m�thodes de d�filement Avant / Pr�c�dent
Atteindre le fichier par son num�ro d'ordre

La premi�re est obtenue gr�ce aux m�thodes Forward et Back. La seconde, en fixant la propri�t� CurrentAttachment.


With Me.attPhotos
    'Premi�re pi�ce jointe
    .CurrentAttachment = 0
    'Suivant
    .Forward
    'Pr�c�dent
    .Back
    'Troisi�me pi�ce jointe
    .CurrentAttachment = 2
End With

Comme vous pouvez le remarquer, la premi�re pi�ce jointe porte le num�ro d'ordre 0.

Comment connaitre la taille de la pi�ce-jointe s�lectionn�e ?

[haut]

auteur : Christophe Warin

Le contr�le pi�ce-jointe (Attachment) ne propose pas de propri�t� retournant la taille du fichier. Le seul moyen disponible est d'interroger directement les donn�es via un recordset. L'astuce consiste donc � s�lectionner la m�me pi�ce-jointe dans le recordset et dans le contr�le Attachment. N'oublions pas que la propri�t� CurrentAttachment retourne le num�ro de la pi�ce-jointe dans le contr�le.

Si oRst repr�sente un champ de type pi�ce-jointe et AttPhotos un contr�le de type pi�ce-jointe, la syntaxe oRst.Move Me.attPhotos.CurrentAttachment permet � coup s�r de se positionner sur le bon fichier.

Un exemple d'utilisation :


Private Sub attPhotos_AttachmentCurrent()
Dim oRst As DAO.Recordset
'Acc�de au recordset du champ pi�ce jointe
Set oRst = Me.Recordset.Fields("Photos").Value
oRst.Move Me.attPhotos.CurrentAttachment
With oRst
    Me.txtNom = .Fields("FileName")
    Me.txtTaille = .Fields("FileData").FieldSize
    Me.txtType = .Fields("FileType")
End With
End Sub

Ici, il s'agit d'afficher les propri�t�s du fichier dans 3 zones de texte.

Comment conna�tre les propri�t�s du fichier s�lectionn� ?

[haut]

auteur : Christophe Warin

Deux propri�t�s permettent de conna�tre le type et le nom de la pi�ce-jointe s�lectionn�e. Ces deux propri�t�s sont respectivement : FileType et FileName.

Comment conna�tre le nombre de pi�ces-jointes affich�es ?

[haut]

auteur : Christophe Warin

La propri�t� AttachmentCount du contr�le pi�ce-jointe retourne le nombre de fichiers de l'enregistrement courant.

Comment ex�cuter une action lorsque l'utilisateur s�lectionne une pi�ce-jointe ?

[haut]

auteur : Christophe Warin

Le contr�le pi�ces-jointes (Attachment) est assimilable � un formulaire. Il fournit des m�thodes, et des �v�nements relatifs aux enregistrements qu'il affiche.

Ainsi l'�v�nement Sur la pi�ce-jointe activ�e se produit d�s qu'une pi�ce-jointe est s�lectionn�e par l'utilisateur. En VBA, cet �v�nement est nomm� AttachmentCurrent.

Comment savoir si un contr�le est de type pi�ce-jointe ?

[haut]

auteur : Christophe Warin

Parfois, vous avez besoin de parcourir tous les contr�les d'un formulaire pour y appliquer un traitement en masse. Pour savoir si le contr�le est un contr�le pi�ce-jointe, il est possible d'utiliser ces deux proc�d�s.


Dim oCtl As Control
For Each oCtl In Me.Controls
    If oCtl.ControlType = acAttachment Then
        'il s'agit d'un contr�le pi�ce jointe
    End If
Next


Dim oCtl As Control
For Each oCtl In Me.Controls
    If TypeOf oCtl Is Attachment Then
        'il s'agit d'un contr�le pi�ce jointe
    End If
Next

Comment se positionner sur la derni�re pi�ce jointe ?

[haut]

auteur : Christophe Warin

Pour se d�placer dans un contr�le Attachment, il est possible d'utiliser sa propri�t� CurrentAttachment. La derni�re pi�ce jointe sera donc atteinte de la mani�re suivante :


With ControlAttachment
  .CurrentAttachment= .AttachmentCount - 1
End With

��

Consultez les autres F.A.Q's

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2009 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.