Discussion :

[Fredri]

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

[Lou Pitchoun]

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

[Fredri]

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

[keita]

Fais voir ton code.

[Lou Pitchoun]

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.

[Fredri]

Voila mon code

Code :

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

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.

[keita]

essai ça pour voir:

Code :

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

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

@+

[Fredri]

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.

[Lou Pitchoun]

Tu devrais faire un algo du genre :

Code :

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

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