Discussion :

[bartimeus35]

Bonjour,
J'ai le formulaire et le sous formulaire ci-dessous.


Je voudrais afficher soit l’icône OK soit l’icône NOK ( icônes qui sont superposées dans mon SF)
Via un code du genre dans le SF:

Sub check_somme()
If Total_lignes <> Me.Parent.Montant Then
Me.OK.Visible = False
Me.NOK.Visible = True

Else
Me.OK.Visible = True
Me.NOK.Visible = False
End If
Me.Refresh


End Sub

Mon pb: je n’arrive pas à trouver où je dois appeler ce code pour que cela fonctionne correctement . ( en cas de modif , ou de suppression)
Mon champ Total_lignes est Somme([Montant]) (de chaque ligne)
J'ai tentés ca

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
Private Sub Form_AfterDelConfirm(Status As Integer)
check_somme
End Sub
 
Private Sub Form_AfterUpdate()
check_somme
End Sub
 
Private Sub Form_Current()
check_somme
End Sub
 
Private Sub Form_Load()
check_somme
End Sub

Mais ça ne fonctionne pas , comme sur mon screen shot ou le total est bon mais l’icône n'est pas la bonne.

[tee_grandbois]

re,
à priori, After_Update ou Current devrait fonctionner

essaie : CMonnaie(Somme([Montant]))

[bartimeus35]

Voila mon fichier qui me pose problème.

Code :

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

CMonnaie(Somme([Montant]))

ne résout pas le problème.
Je sauve les modifs en cliquant sur le bouton avec la coche verte de mon formulaire F_commandes_unique

[tee_grandbois]

je ne vais pas pouvoir faire grand chose avec ce raccourci vers ta base ...

[bartimeus35]

et voila la base
JE suis un

[tee_grandbois]

ne me demande pas pourquoi (car je ne m'en souviens plus) mais DLookup semble mieux fonctionner qu'un contrôle en pied du formulaire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub check_somme()
Dim total_lig As Currency
tot_lig = Nz(DSum("Montant", "T_lignes_commande", "fk_commande=" & Me.Parent.id), 0)
    If tot_lig <> Me.Parent.Montant Then
        Me.OK.Visible = False
        Me.NOK.Visible = True
 
    Else
        Me.OK.Visible = True
        Me.NOK.Visible = False
    End If
    Me.Refresh
 
End Sub