Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access somme

somme

6 réponses
Avatar
tofuponszen
Bonjour
Dans un formulaire, j'ai un champ dans lequel je souhaite que s'affiche
automatiquement la somme de plusieurs autres champs quand je les
remplis.
J'ai r=E9alis=E9 une requ=EAte mise =E0 jour qui fonctionne tr=E8s bien,
mais voil=E0 je voudrais savoir s'il n'existe pas un module ou autre
chose de plus pratique sachant que j'ai reli=E9 ma requete =E0 un bouton
sur le formulaire mais que je suis paresseuse et que je voudrais que le
calcul se fasse tout seul sans que j'ai besoin d'appuyer sur le bouton.
Est-ce possible ?
Merci
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
david
salut,

Soit Chp1, Chp2 et Chp3 les champs que l'on veux additionner dans Total
:
Il faut créer une proc-event pour la modification de chaque champ Chp
:
private sub Chp1_Change()
dim l as double

on error resume next
lÍbl(Chp1.Text)
if err.number=0 then
updateTotal
else
err.clear
end if
on error goto 0
end sub

private sub updateTotal()
total.text = format(cDbl(Chp1.Text) + cDbl(Chp2.Text) +
cDbl(Chp3.Text), "standard")
end sub
private sub Form_Current()
updateTotal
end sub

Voila, a+, david
Avatar
tofuponszen
Merci David je vais essayer de ce pas !
@ +
Avatar
tofuponszen
Est ce que je dois recopier la proc event depuis le début jusqu'au
deuxième End Sub pour chaque champ?
Est ce que le format des champ est texte ?
(Les miens sont numériques)
Pourquoi dans mon code depuis total.text = jusqu'à "standart") tout
est rouge ?
Merci de m'aider
Avatar
tofuponszen
Est ce que je dois recopier la proc event depuis le début jusqu'au
deuxième End Sub pour chaque champ?
Est ce que le format des champ est texte ?
(Les miens sont numériques)
Pourquoi dans mon code depuis total.text = jusqu'à "standart") tout
est rouge ?
Merci de m'aider
Avatar
Alan Cossey
Il se peut que tu puisses rentrer

=Chp1+Chp2+Chp3

dans la source de données du champ Total?

Alan Cossey

"david" wrote in message
news:
salut,

Soit Chp1, Chp2 et Chp3 les champs que l'on veux additionner dans
Total
:
Il faut créer une proc-event pour la modification de chaque champ Chp
:
private sub Chp1_Change()
dim l as double

on error resume next
lÍbl(Chp1.Text)
if err.number=0 then
updateTotal
else
err.clear
end if
on error goto 0
end sub

private sub updateTotal()
total.text = format(cDbl(Chp1.Text) + cDbl(Chp2.Text) +
cDbl(Chp3.Text), "standard")
end sub
private sub Form_Current()
updateTotal
end sub

Voila, a+, david
Avatar
tofuponszen
Merci Alan,
C'est tout à fait cela dont j'avais besoin!
Encore merci
@+
Togo
Alan Cossey wrote:
Il se peut que tu puisses rentrer

=Chp1+Chp2+Chp3

dans la source de données du champ Total?

Alan Cossey

"david" wrote in message
news:
salut,

Soit Chp1, Chp2 et Chp3 les champs que l'on veux additionner dans
Total
:
Il faut créer une proc-event pour la modification de chaque champ Chp
:
private sub Chp1_Change()
dim l as double

on error resume next
lÍbl(Chp1.Text)
if err.number=0 then
updateTotal
else
err.clear
end if
on error goto 0
end sub

private sub updateTotal()
total.text = format(cDbl(Chp1.Text) + cDbl(Chp2.Text) +
cDbl(Chp3.Text), "standard")
end sub
private sub Form_Current()
updateTotal
end sub

Voila, a+, david