Generer Code
salbiah1
Messages postés
52
Date d'inscription
Statut
Membre
Dernière intervention
-
le meruvien Messages postés 1130 Date d'inscription Statut Membre Dernière intervention -
le meruvien Messages postés 1130 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Generer Code
- Code ascii - Guide
- Comment générer un qr code - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
