Comment faire qu'a chaque clic sur la case à cocher valider

Bonjour
Je souhaite afficher une somme de PrixAchat
en cochant les case Valider nécessaire au calcul d'un sous formulaire
J'ai fait la formule de Calcul en VBA, mais lorsque je le relie a Valider_afterupdate, j'ai un clic de retard sur la mise à jour de la somme,

Comment faire qu'a chaque clic sur la case à cocher valider la somme se mette à jour tout de suite.

Merci de votre aide :roll:

Salut,
Utilise l'évènement Sur clic.

J'ai déja essayé ca fait la meme chose :
j'ai toujours un clic de retard sur la mise à jour de la somme :lol:

Fais voir ton code.

Ah.... zut :(
Envoi ton code pour voir...
parce que dès que tu cliques sur la case à cocher, ça devrait exécuter ton code qui effectue la somme.

Voila mon code

Code:

---

1 2 3

Private Sub Valider_AfterUpdate() Forms![SF_DétailDevis]!PrixAchat.Value = Nz(DSum("[PrixAchat HT]", "R_Calcul Total Achat", "[Valider]"), 0) End Sub

---

un clic de retard

Si je le lie à l'évenement entrée sur PrixAchat, ca marche, mais ca m'oblige à cliquer sur la case, je voudrais que la somme se mettre à jour automatiquement.
:roll:

essai ça pour voir:

Code:

---

1 2 3

Private Sub Valider_Click() Forms![SF_DétailDevis]!PrixAchat.Value = Nz(DSum("[PrixAchat HT]", "R_Calcul Total Achat"), 0) End Sub

---

@+

Désolé mais ca ne marche pas !

Dans R_Calcul Total Achat , J'ai selectionner "Valider= vrai "sinon il me fait la somme de toutes les lignes.

Tu devrais faire un algo du genre :

Code:

---

1 2 3 4 5

Pour toute case à cocher dans la collection case à cocher si case à cocher = -1 alors somme = somme + NomChamp fin si suivant

---