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

IHM Discussion :

Sélectionner en VBA une valeur dans une liste modifiable


Sujet :

IHM

  1. #1
    Membre habitué
    Homme Profil pro
    Inscrit en
    Août 2007
    Messages
    184
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Août 2007
    Messages : 184
    Points : 188
    Points
    188
    Par défaut Sélectionner en VBA une valeur dans une liste modifiable
    En Access 97
    Dans un formulaire (cf. copie écran), j'ai une zone de liste modifiable TauxMarge1 basée sur une table, avec 3 colonnes

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    SELECT Marges.Libelle, Marges.TauxMarge, Marges.Cle FROM Marges;
    La colonne liée est la 2, donc le champ cle (1 -> 9)


    Libelle TauxMarge Cle
    COPAV 15.00 1
    PORC 18.00 2
    VOLAILLE 20.00 3
    VOLAILLE VACCIN 15.00 4
    CANINE 83.00 5
    DIVERS 50.00 7
    MARGE 0 0.00 8
    LIBERALE 30.00 9


    Je conserve le paramètre Marge1 dans une table. (qui correspond à la clé, de 1 à 9)

    A l'ouverture du formulaire, je voudrais que la valeur conservée comme paramètre soit celle sélectionnée dans la liste déroulante, (ce qui active un calcul de prix de vente Ht et TTC.)

    J'ai fait différents essais, ler dernier étant
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Private Sub Form_Open(Cancel As Integer)
    ....
     
    Call LecParam("Marge1", Annee, Prochain, Commentaire)
    Me.TauxMarge1 = Me.TauxMarge1.ItemData(Prochain-1)
    Call TauxMarge1_AfterUpdate
    DoCmd.Requery "TauxMarge1"
    (La première ligne étant une function qui lit les paramètres)

    Je me suis inspiré de la FAQ http://access.developpez.com/faq/?page=zdl#SelLignZdlm


    J'ai aussi essayé du SendKeys...

    Le résultats est imparfait.
    si la clé est 1 (=premier) = pas sélectionné
    si la clé est 9 (le dernier) = pas sélectionné

    Où fais je une erreur ? Avez vous une piste ?
    Merci.

  2. #2
    Rédacteur/Modérateur
    Avatar de loufab
    Homme Profil pro
    Entrepreneur en solutions informatiques viables et fonctionnelles.
    Inscrit en
    Avril 2005
    Messages
    12 017
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Entrepreneur en solutions informatiques viables et fonctionnelles.
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2005
    Messages : 12 017
    Points : 24 547
    Points
    24 547
    Par défaut
    Bonjour,

    1 - LecParam est une fonction mais à aucun moment sa valeur renvoyée n'est utilisée ni stockée !

    2 - Dans le cas ou LecParam renvoi bien un item valide de la liste Marge1 alors faire simplement :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Me.TauxMarge1 = LecParam("Marge1", Annee, Prochain, Commentaire)
    Prendre la précaution de vérifier ce que renvoi Me.TauxMarge1 (un ID de 1 à 9 ou le contenu afficher ?) et LecParam(...) doit renvoyer la même valeur.

    Cordialement,

Discussions similaires

  1. Réponses: 1
    Dernier message: 13/04/2015, 11h17
  2. Réponses: 15
    Dernier message: 26/01/2015, 19h37
  3. Réponses: 5
    Dernier message: 17/02/2011, 21h12
  4. ajouter des valeurs dans une ComboBox (zone de liste modifiable)
    Par ghosty04 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 01/12/2008, 18h11
  5. Recherche une valeur d'une cellule dans une colonne d'une autre feuille
    Par kourria dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 21/06/2007, 13h48

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