Discussion :

[milielf]

bonjour,


j'ai une etat qui liste des parcelles, et leur surface. en plus de cela, un sous-etat complete éventuellement cette liste, avec d'autres surfaces (le sous-etat n'a pas toujours des éléments).

mon but est de faire la somme totale des surfaces..
j'ai donc pensé à une zone de texte qui me ferai la somme de toutes ces surfaces, mais étant la première fois que j'en utilise j'ignore comment faire.

pour récapituler voici comment est formé mon état :

propriétaire -->(groupe)liste de ses parcelles(avec surface1)-->(sous-etat en pied de groupe)liste de terrain supplémentaires(avec surface2)

je cherche en fait tout simplement la formule pour mettre dans ma zone de texte = (somme des surfaces1 + somme des surfaces2)

ou une autre solution que la zone de texte...

[philben]

Bonjour,

J'essayerai un truc comme ça :

1) Dans le pied d'état du sous-état, créer une zone texte appelée par exemple SommeSurfaces2.

2) Ecrire dans la propriété <source controle> de <SommeSurfaces2>
(Je considère que le champ se nomme <Surface2> dans le sous-état) :

Code :

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

1
2
 
=Somme([Surface2])

3) Dans le pied de groupe de l'état, créer une zone texte appelée par exemple <SommeSurfaces1et2>.

4) Ecrire dans la propriété <source controle> de <SommeSurfaces1et2>
(Je considère que mon sous-état se nomme <MonSousEtat> dans l'état et
que le champ se nomme <Surface1> dans l'état) :

Code :

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

1
2
 
= Somme([Surface1])+MonSousEtat.Etat!SommeSurfaces2

J'espère qu'avec mon truc vous allez faire surface...

Philippe

[milielf]

merci!

j'ai juste un petit soucis avec ça : quand mon sous-etat ne contient aucune donnée, la somme finale me marque #erreur. comment puis-je y remedier?

a savoir : le sous-etat devient invisible si vide (et j'aimerai que ça reste ainsi si possible)

[milielf]

ce que je cherche concretement :
comment mettre une valeur par défaut =0 dans une zone de texte ?
ou bien remplacer le # erreur d'Access par 0?

en VBA, est-il possible de donner de nouveaux critères à un zone de texte (à l'ouverture de l'etat par exemple), avec des conditions (if...)?

[philben]

Bonjour,

2 choses à faire, je pense :
1)

Code :

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

1
2
3
4
5
6
7
8
 
Remplacer :
 
=Somme([Surface2])
 
par :
 
=Nz(Somme([Surface2]);0)

Si aucune valeur de surface2 => renvoie 0 au lieu de Null

2)

Code :

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

1
2
3
4
5
6
7
8
 
Remplacer :
 
=Somme([Surface1]) + MonSousEtat.Etat!SommeSurfaces2
 
par :
 
=Somme([Surface1]) + VraiFaux(IsError(MonSousEtat.Etat!SommeSurfaces2);0;MonSousEtat.Etat!SommeSurfaces2)

Si le sous-état est introuvable => test de l'erreur par IsError et renvoi 0 dans ce cas ou la valeur de SommeSurfaces2 si Ok.

A tester...

Philippe

[milielf]

ok, c'est parfait, ça marche du tonnerre!

merci bien!

[milielf]

note : le nz dans le sous-etat ne semble pas necessaire, si je l'enleve, la somme est faite correctement aussi...