Discussion :

[SBIBobinette]

Bonjour à tous,
Je suis en train de finaliser mon application il me reste un dernier bug (enfin j'espère )
J'ai un formulaire qui contient 4 sous formulaires. Chaque sous formulaire contient une liste de valeurs et la somme de ces valeurs est faite dans le sous forumlaire.
La valeur est reportée dans un champ du formulaire afin de pouvoir faire la somme des valeurs des 4 sous formulaires. Hélas quand il n'y a pas de valeurs (de lignes dans le sous formulaire j'ai un message d'erreur dans le champ de repport du total du sous formulaire. Pourtant j'utilise la fonction Nz.

Dans mon sous formulaire j'ai un champ NbHeure
Dans le pied de page de mon sous formulaire j'ai un champ:

Code :

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

SommeMoisConges=Nz(Somme([NbHeures]);0)

(j'ai essayé aussi sans le Nz à ce niveau)
Dans mon formulaire j'ai un champ de repport de la valeur du sous formulaire:
J'ai essayé deux syntaxes:

Code :

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

CHampRepport=[SsF_SaisieHeures_ListeCongesMois].[Formulaire]![SommeMoisConges]

=> avec cette syntaxe dans le champ de repport j'ai un message d'erreur : #Erreur!

Code :

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

CHampRepport=Nz([SsF_SaisieHeures_ListeCongesMois].[Formulaire]![SommeMoisConges];0)

=> avec cette syntaxe dans le champ de repport j'ai un message d'erreur : #Taille!
Pourtant les formats dans le sous formulaire et le formulaire sont les mêmes (fixe une décimale)
Je ne vois pas comment régler le problème. Je ne comprends pas ce que je ne fais pas bien avec la fonction Nz.
Si quelqu'un a une idée... je suis preneuse!
Cordialement

Sabine

[GuyDuLac]

Bonjour SBIBobinette,

J'ai déjà eu un problème semblable. Maintenant plutôt que de faire un champ calcul SommeMoisConges=Nz(Somme([NbHeures]);0) j'utilise Dsum pour faire mes calculs

DSum ( expression, domain, [criteria] ) et j'additionne les résultats dans une variable.


Bonne continuation

[SBIBobinette]

Bonjour,
Je te remercie pour ta réponse.
J'ai testé ta solution et le total ramené est celui de toute la table.
Le sous formulaire est conditionné sur plusieurs paramètres et cela va être très compliqué de mettre tous ces paramètres dans la condition.
Le contexte est celui-ci:
J'ai un formulaire indépendant contenant plusieurs sous formulaires.
A l'ouverture de ce formulaire le visa de l'utilisateur est stocké dans le formulaire grace à sa session windows d'ouverte. (chez nous les nom d'utilisateurs windows sont nos visa)
Sur ce formulaire j'ai 4 sous formulaires (un par catégorie d'heures) qui affiches toutes les heures déjà saisies par l'utilisateur (lien entre les sous formulaire et le formulaire par le champ visa du formulaire qui est renseigné à l'ouverture du formulaire), pour le mois en cours (chaque sous formulaire est basé sur une requete affichant les valeurs du mois en cours).
Lorsque dans le sous formulaire de saisie une personne réalise une nouvelle saisie et sauvegarde les sous formulaires listant l'historique sont mis à jour. et donc une nouvelle ligne apparait dans le sous formulaire correspondant à la catégorie concernée.
Afin de permettre le suivi de l'état d'avancement de la saisie j'ai un champ total qui est basé sur la somme de 4 champs (un par sous formulaires).
Dans chaque sous formulaire j'ai un total et je repporte chaque sous total dans le formulaire principal (avant de faire la somme). c'est là qu'est le problème car si un sous formulaire ne contient pas de ligne! j'ai un message d'erreur et au final le total des 4 champs a aussi un message d'erreur.
J'ai appliqué la méthode DSum au champ de mon sous formulaire sans condition:
J'ai tapé

Code :

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

=DSum("NbHeures";"[T_Heures]")

Mon code a automatiquement été changé en :

Code :

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

=SomDom("NbHeures";"[T_Heures]")

il fait donc le total de la table des heures (ne tient compte ni du visa ni de la catégorie d'heures ni de la date)...
Si je dois rentrer tous mes critères dans la fonction... j'ai peur d'avoir quelques difficultés...
Est ce normal déjà que mon code DSum soit automatiquement changé? est ce juste un problème de version vba langage français anglais.....???
J'ai déjà constaté ce phénomène avec month qui est automatiquement changé en mois...

Cordialement

sabine

PS... j'ai exactement le même problème pour mon état récapitulatif la solution sera donc doublement utilisée!!!
La seule différence dans mon état étant que le récapitulatif est triée par semaine et que pour chaque semaine j'ai un sous état par jour afin de présentaer sous forme de calendrier semaine!!

[GuyDuLac]

Bonjour,

Pourquoi ne pas créer une requête qui récupère seulement les enregistrements voulus et ensuite mettre ta requête comme Domain

Code :

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

variable = DSum ( champAcalculer, TaRequete)

[SBIBobinette]

Bonsoir,
Le problème est résolu, plutôt que de faire une requête, j'ai pris mon courage à deux mains pour ajouter les critères de sélection à la fonction SomDom.
J'ai appliqué Nz au résultat afin d'afficher 0 si il n'y a pas d'enregistrement répondant aux critères et donc j'ai pu faire la somme de tous mes champs!!!
Le code donne donc cela:

Code :

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

ChampFormulaire=Nz(SomDom("[NbHeures]";"T_Heures";"[LienConstitutionEquipeHeure] = Forms![F_SaisieHeuresVisa]![FiltreVisa] And [LienCategorieHeure]=1 And Month([DateRealisationHeures])= Month (Forms![F_SaisieHeuresVisa]![DateJour]) And Year([DateRealisationHeures])= Year(Forms![F_SaisieHeuresVisa]![DateJour])");0)

et pour une fois j'ai pas eu de problème pour concaténer mes critères!!!
Merci encore pour votre aide.
Bonne continuation

Sabine