IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Utiliser un code pour plusieurs contrôles [AC-2003]


Sujet :

VBA Access

  1. #1
    Membre habitué
    Homme Profil pro
    Inscrit en
    Août 2005
    Messages
    660
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 78
    Localisation : France, Val d'Oise (Île de France)

    Informations forums :
    Inscription : Août 2005
    Messages : 660
    Points : 165
    Points
    165
    Par défaut Utiliser un code pour plusieurs contrôles
    Bonjour,

    Sur mon formulaire j'ai plusieurs contrôles qui se nomment:
    ImageFrame1
    ImageFrame2
    ImageFrame3
    Etc.........

    et à chaque contrôles [Procédure événementielle], j'ai ce code:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Private Sub ImagePath1_AfterUpdate()
          'Affiche une photo après l'avoir sélectionnée.
          On Error Resume Next
               showErrorMessage1
               showImageFrame1
     
            If (IsRelative(Me.Controls(ImagePath1)) = True) Then
                Me.Controls("ImageFrame1").Picture = path & "\" & Me.Controls("ImagePath1")
            Else
                Me.Controls("ImageFrame1").Picture = Me.Controls("ImagePath1")
            End If
    End Sub
    Est-ce possible d'avoir ce seul code pour tous les contrôles ?

    Si oui ? pouvez-vos me donner une piste ?

    Merci pour votre aide.

    Salutations

  2. #2
    Expert éminent
    Avatar de jimbolion
    Homme Profil pro
    Moulticien
    Inscrit en
    Janvier 2013
    Messages
    3 150
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Moulticien
    Secteur : Santé

    Informations forums :
    Inscription : Janvier 2013
    Messages : 3 150
    Points : 7 001
    Points
    7 001
    Billets dans le blog
    2
    Par défaut
    Jmde bonjour,

    Tu peux créer une fonction dans ton formulaire permettant de traiter tous ces cas. Cette fonction sera appelée sur événement après mise à jour de chacun des contrôles impactés.

    Ta fonction récupère alors le contrôle actif du formulaire et agit avec le code que tu souhaites générer.

    Regarde cette propriété qui devrait répondre à tes attentes :

    http://msdn.microsoft.com/fr-fr/libr...ffice.15).aspx

    N'hésites pas à revenir vers moi si nécessaire

    JimBoLion
    N'oubliez pas le Tag si la réponse donnée vous a été utile et pour une réponse pertinente.
    Retrouvez-moi sur le chat en salon base de données

  3. #3
    Membre habitué
    Homme Profil pro
    Inscrit en
    Août 2005
    Messages
    660
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 78
    Localisation : France, Val d'Oise (Île de France)

    Informations forums :
    Inscription : Août 2005
    Messages : 660
    Points : 165
    Points
    165
    Par défaut
    Bonsoir jimBolion,

    Merci pour tes explications et ton lien, cela à permis
    de résoudre mon problème

    Salutations

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Code pour plusieurs feuilles
    Par jacfld49 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 07/03/2010, 10h14
  2. [XL-2003] Avoir le même code pour plusieurs feuilles
    Par NEC14 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 07/01/2010, 13h29
  3. généralisation d'un code pour plusieurs lignes XL
    Par oliver75 dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 20/07/2007, 17h58
  4. Même code pour plusieurs shapes
    Par El-Diablo- dans le forum C++Builder
    Réponses: 10
    Dernier message: 24/05/2007, 19h40
  5. Réponses: 4
    Dernier message: 06/11/2003, 10h37

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo