Generer Code

Fermé
Signaler
Messages postés
52
Date d'inscription
mercredi 12 juin 2013
Statut
Membre
Dernière intervention
24 avril 2017
-
Messages postés
1007
Date d'inscription
vendredi 12 août 2011
Statut
Membre
Dernière intervention
6 décembre 2021
-
Bonjour
J'ai deux Tables Table Vente et table de Depense
je veux lorsque je saisie depense total de vente duminie

Option Compare Database
Public Ancien

Private Sub Depense_Enter()
Ancien = Depense
End Sub

Private Sub Depense_AfterUpdate()
If Depense - Ancien > Vente Then
If MsgBox("Le Montant est trop", vbOKOnly) = vbOK Then
SendKeys "{ESC}", True
Depense.SetFocus
Depense = ""
End If
Else

Dim MajDepot As Integer
MajDepot = Vente + Ancien - Depense
Vente = MajDepot
End If

1 réponse

Messages postés
1007
Date d'inscription
vendredi 12 août 2011
Statut
Membre
Dernière intervention
6 décembre 2021
43
bonjour,
??? bizare, alors tu veut quoi exactement ??