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 :

Code VBA pour éxécution d'une requête via un formulaire/état


Sujet :

VBA Access

  1. #1
    Membre à l'essai
    Homme Profil pro
    ingénieur environnement
    Inscrit en
    Août 2016
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : ingénieur environnement

    Informations forums :
    Inscription : Août 2016
    Messages : 9
    Points : 11
    Points
    11
    Par défaut Code VBA pour éxécution d'une requête via un formulaire/état
    Bonjour à tous,

    Je travaille sur un projet que je vous présente succintement ci-dessous :

    J'ai créée une base de données sur les obstacles à l'écoulement en rivière (seuils, petits barrages,etc..)

    Grace à ma base de données, des indicateurs de pressions sont consultables à différentes échelles hydrographiques (3 échelles via 3 formulaires).

    La structure de mes formulaires est la suivante :
    Nom : Strcuture_BDD_.PNG
Affichages : 330
Taille : 74,6 Ko

    1) Selection de la zone géographique (1ere liste déroulante)
    2) Consultation des infos à l'échelle hydrographique choisie via le choix du formulaire (lien vers formulaire depuiis une page d'accueil)
    3) Selection d'une entité hydrographique pour consulter les informations des obstacles à l'écoulement sur cette entité (2eme liste déroulante)

    Ce que je souhaiterai maintenant faire concerne principalement le dernier sous_formulaire. Je vous explique :

    Chaque obstacles à l'écoulement possède plusieurs caractéristiques dont son POINT KILOMETRIQUE (PK) et sa HAUTEUR DE CHUTE (H_CHUTE).

    Lorsque l'on choisit dans la base une entité hydrographique, j'aimerai que les ouvrages se trouvant sur ce linéaire soient classés par point kilométrique (de l'aval vers l'amont) et que les hauteurs de chute soient cumulées dans ce sens.

    Ce me permettrai d'éditer des graphiques hauteur de chute cumulées = f(point kilométrique), et consituerait un élement d'interprétation visuel de ma base de données.

    Pour l'instant, j'obtiens cela de la manière suivante :

    Via une première requête, je selectionne mon entité hydrographique via un filtre qui appelle son code de référence :
    Nom : RQT1.PNG
Affichages : 237
Taille : 26,4 Ko

    Une seconde requete est liée à celle présentée ci-dessus. Lorsque j'execute la première, la seconde me classe mes ouvrages par Pk (tri décroissant) et cumule mes hauteurs de chute (via la fonction somdom)=> HCHUTE_PK: SomDom("[H_CHUTE]";"TBL_TEMP_PK";"[POINT_KM] >= " & Remplacer([POINT_KM];",";"."))



    Comment intégrer ce calcul à mon formulaire via du VBA ?¨Par exemple lorsque je choisis mon entité hydrographique (2eme liste déroulante ci dessus, ici la masse d'eau) j'aimerais que ça me sorte ce graphique

    Désolé pour le message un peu long mais je voulais vous présenter les choses clairement. j'espère que c'est le cas.

    En vous remerciant par avance?

    Tristan.

  2. #2
    Expert confirmé Avatar de nico84
    Homme Profil pro
    Consultant/développeur ERP
    Inscrit en
    Mai 2008
    Messages
    3 107
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Consultant/développeur ERP
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2008
    Messages : 3 107
    Points : 5 230
    Points
    5 230
    Par défaut
    Bonjour,

    C'est le même type de formule mais dans une requete sql qui va servir de source au graphique :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    select m.pk, (select sum(x.h_chute) from matable x where x.px<=m.pk) as cumul from matable m order by 1
    Ca marche pareil avec dsum mais c'est moins standard

  3. #3
    Membre à l'essai
    Homme Profil pro
    ingénieur environnement
    Inscrit en
    Août 2016
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : ingénieur environnement

    Informations forums :
    Inscription : Août 2016
    Messages : 9
    Points : 11
    Points
    11
    Par défaut
    Merci pour ta réponse nico84,

    En fait j'ai trouvé une solution pour selectionner mon entité hydrographique via la seconde liste déroulante de mon formulaire en appliquant le code suivant dans ma requête qui fait le calcul avec "SomDom" :

    [Forms]![FORM_ME_1]![FRM_ME_2].[Form]![Modifiable3]

    L'idée est maintenant la suivante, j'aimerai éditer un état comme fiche de synthèse : par exemple par masse d'eau je fais cette sfiche avec les infos principale et ce fameux graphe hauteurs de chutes cumulées = f(point kilométrique)

    Pour faire ce graphe, j'ai crée un formulaire basé sur ma requete et que j'affiche en mode graphique croisé dynamique que j'insère dans mon état.

    A ce point j'ai 2 questions :

    - Comment faire pour que mon graphe ait toujours la même mise en forme quand je rafraichis ma requete (selection d'une autre masse d'eau) ? pour l'instant je dois reconstruire mon graphe a chaque fois dans mon état en mode page.

  4. #4
    Expert confirmé Avatar de nico84
    Homme Profil pro
    Consultant/développeur ERP
    Inscrit en
    Mai 2008
    Messages
    3 107
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Consultant/développeur ERP
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2008
    Messages : 3 107
    Points : 5 230
    Points
    5 230
    Par défaut
    Citation Envoyé par Tristan8776 Voir le message
    A ce point j'ai 2 questions :

    - Comment faire pour que mon graphe ait toujours la même mise en forme quand je rafraichis ma requete (selection d'une autre masse d'eau) ? pour l'instant je dois reconstruire mon graphe a chaque fois dans mon état en mode page.
    Ca ne fait qu'une question
    C'est dans les paramètres du graphique me semble-t-il mais j'avoue en faire assez rarement avec access et jamais dans un état
    Quand je mets à jour la requete sous-jacente le graphique se modifie aussi dans son format

    J'ajoute que je fait tout en VBA donc tes syntaxes me parlent assez peu...

Discussions similaires

  1. [XL-2013] Code VBA pour envoi d'une alerte échéance dans une bal Yahoo
    Par mwasikitoko dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 03/03/2015, 15h56
  2. [XL-2010] Code VBA pour ajout d'une date lorsqu'elle n'existe pas
    Par Jey14 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 25/10/2013, 13h39
  3. [AC-2007] Friltrer une requête via un formulaire
    Par kedmard dans le forum IHM
    Réponses: 6
    Dernier message: 20/06/2012, 13h12
  4. Réponses: 1
    Dernier message: 09/01/2012, 13h52
  5. [AC-2007] Alimentation d'une requête via un formulaire
    Par Oliv'83 dans le forum Requêtes et SQL.
    Réponses: 9
    Dernier message: 16/07/2009, 16h59

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