Discussion :

[foster53]

Bonjour,
j'ai utiliser dans un formulaire une formule pour additioner deux champs (Volume total= volume a + volume b)
La formule fonction puisque lorsque je rempli les champs j'ai le résultat de l'addition, mais dans le formulaire uniquement, celui-ci ne s'enregistre pas dans la table avec les autre champs. D'où vient ce problème?
Merci d'avance

[nico84]

Bonjour,

- pour que le total soit sauvé il faudrait qu'il y ait un champ correspondant dans la table et pas seulement dans le formulaire
- A quoi ça sert de sauver le total puisqu'il est possible de le recalculer aussi souvent que nécessaire ?
- à partir de la version 2007 je crois qu'il est possible de déclarer un champ calculé, avant il faudra gérer l'addition au niveau du formulaire

[foster53]

Il y a bien un champs correspondant dan sla table, mais il reste vide alors que dans le formulaire il s'affiche. Je dois impréativement avoir un champs totalisant les deux volumes.
Comment déclarer un champs calculé?

[nico84]

Est-ce que le champ du formulaire est bien lié au champ de la table ?

[foster53]

Comment savoir si le champs est lié à la table?

[nico84]

propriété>données>source controle
Il y a probablement écrit =a+b ce qui veut dire qu'il n'est pas lié

A la place il faut mettre le champ de la table c, puis à chaque changement de a ou de b mettre :

Code :

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

1
2
c=a+b
me.refresh

Je ne connais pas les champs calculés car j'ai une version trop ancienne (et j'ai horreur des redondances), je crois qu'ils apparaissent avec la 2007 ou la 2010

[foster53]

Je n'arrive pas à coder c=a+b car l'expression doit commencer par le signe égal, de plus je ne sais pas comment utiliser la fonction me.refresh car je n'ai jamais utilisé le language sql.
Merci d'avance

[yoyo88]

Petite question dans quel version D'Acess a tu?

Sinon plusieurs possibilité.
passé par une requête MAJ
avec :

VolumeC
=Volume1+Volume2

et lancer la requete soit en vba, ou via une macro.

ou alors directement en VBA avec

Code :

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

1
2
me.VolumeC.value=me.VolumeB.value+VolumeA.value
(code à vérifier tous de même :?)

sur un évènement.

[nico84]

- le champ doit être lié à c (tout court) pour que la table soit mise à jour
- ensuite il faut mettre une procédure évènementielle "after update" sur les champs a et b : propriétés>évènements>apres Maj - choisir [procedure evenementielle], cliquer sur ... puis taper le code suivant :

Code :

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

1
2
3
4
private sub a_afterupdate
c=a+b
me.refresh
end sub

idem pour b