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 :
Pièce jointe 221789

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 :
Pièce jointe 221791

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.

Bonjour,

C'est le même type de formule mais dans une requete sql qui va servir de source au graphique :

Code:

---

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

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.

Citation:

---

Envoyé par Tristan8776

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 :oops:
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...