Generer Code

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