Discussion :

[bernard26]

Bonsoir

Mon problème étant compliqué à expliquer je préfère mettre une copie écran et une explication


Dans mon formulaire le champ Total (à droite) est la somme de unités déjà reçues+unités reçues
Dans mon pied de formulaire le champ somme de Total est la somme des champs Total. Lorsque je valide j'ai une procédure événementielle (ci dessus) qui contrôle que cette somme= unités commandées. je n'arrive pas à mettre à jour la quantité unités reçues de la dernière ligne (ou de la seule ligne si je n'en est qu'une). j'ai mis Me.Refresh dans mon événement, mais j'ai le message m'indiquant que le compte n'est pas bon puis à la réponse non de ma part, le champ se calcule

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Valider_Click()
   Dim strMsg As String, strTitre As String
   Dim intStyle As Integer
   Me.Refresh
 
   If (Me![Somme total unités reçues]) <> (Me![Unités commandées]) Then
   strMsg = " La réception n'est pas totale! Si vous validez, vous ne pourrez plus réceptionner le reliquat. Voulez-vous valider?"
   intStyle = vbYesNo + vbQuestion + vbDefaultButton2
   strTitre = "Attention"
 
 
   If MsgBox(strMsg, intStyle, strTitre) <> vbYes Then Exit Sub
   End If
 
   DoCmd.Close acForm, "Réception de commande"
   DoCmd.OpenQuery "Requête réception finale", acViewNormal, acEdit
   DoCmd.Close acForm, "Dialogue réception de commandes"
   End Sub

Merci de votre aide

[bernard26]

je viens de trouver!
il faut mettre au champ unités reçues Me.refresh à après MAJ