Bonjour,
dans un formulaire "tally2", j'ai un champ "t_ce_jour" qui est la somme d'une vingtaine de champs( valeur calculée)
Un champ " solde" est egal à "t_ce_jour"- "valeur recupérée" code suivantsur mise a jour du champ " t_ce_jour"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Public Sub MajResu() Dim ValA As Long 'total ce jour Dim ValB As Long 'total travers Dim Diff As Long ValA = (Forms!tally2.Controls("t_ce_jour").Value) ValB = DLookup("total", "total_travers2") Diff = ValB - ValA Forms!tally2.Controls("solde").Value = Diff End Sub
Cela fonctionne lors de l'entrée de donnée dans un des vingt champs mais ne fonctionne plus lors de l'entrée de donnée dans un autre champ servant au calcul de "t_ce_jour" alors ce dernier champ est bien mis à jour.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub t_ce_jour_AfterUpdate() MajResu End Sub
Merci
Partager