Discussion :

[Apoulit]

Bonjour, il y a de nombreux posts qui parlent du même sujet mais je n'arrive pas à trouver mon bonheur.
J'ai un formulaire nommé Formulaire_extraction
Dans celui ci il y a un sous formulaire nommé zone_extraction, son contenu est rempli par un code vba qui selon les listes déroulantes de filtration applique un objet source ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

zone_extraction.SourceObject = "Query.R_dis_inst_dep_prix_critere_distributeurs"

Quelque soit son contenu, il y a une colonne d'un champ nommé Prix_mensuel, selon les filtres appliqués la colonne est plus ou moins longue.

Mon sous formulaire "zone_extraction" n'a pas d entête ou de pied de formulaire, peut on sur un champ indépendant venir faire la somme de la colonne "Prix_mensuel" ?

Merci.

[tee_grandbois]

bonsoir,

Mon sous formulaire "zone_extraction" n'a pas d entête ou de pied de formulaire

tu peux créer l'un ou l'autre et le rendre invisible

[Apoulit]

bonsoir,

tu peux créer l'un ou l'autre et le rendre invisible

Si je fais un clic droit il y a pas de "En tête / pied de formulaire" comme pour un formulaire.




Merci.

[tee_grandbois]

Si je fais un clic droit il y a pas de "En tête / pied de formulaire" comme pour un formulaire.

il faut, soit directement ouvrir le sous-formulaire en mode création, soit, depuis le formulaire principal, cliquer sur le sous-formulaire pour le sélectionner, puis sur la barre "Détail" du sous-formulaire et faire clic droit
cela ne fonctionnera pas, je viens de voir que ce sont des sous-formulaires dynamiques chargés avec des source objets de type requête ...
Il n'y a pas de solution simple (voire aucune) avec ce type d'objet

[tee_grandbois]

après reflexion, il y a une possibilité avec la fonction de domaine DSum(), une fois que l'objet source est chargé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim strSQL As String
' récupération du nom de la requête
strSQL = Mid(zone_extraction.SourceObject, InStr(1, zone_extraction.SourceObject, ".") + 1)
' calcul du total
MonChampIndependant = DSum("Prix_mensuel", strSQL)

[Apoulit]

Bonjour Tee granbois, c'est pas 6 étoiles au dessus de ton avatar mais 12 qu'il en faut !!!
Ca fonctionne parfaitement, en gros tu renvoies une variante "zone_extraction.SourceObject" qui change en fonction de mes filtres et tu fais la somme du champ voulu !
J'avais déjà manipulé la fonction Mid et Instr pour extraire un mot spécifique et savoir où il est situé sur la chaîne de caractère mais à mon niveau de débutant ... là c'est du Grand Mendès ( référence cinématographique).
Merci pour ta "réflexion" et merci pour l’intérêt que tu as porté à mon post, tu viens de refaire mon dimanche ... je vais pouvoir continuer.

Bon Dimanche.