Discussion :

[User]

Bonsoir !

Voila je dispose d'un champ1 (Unbound) et d'un champ2 (Unbound) et je souhaiterai sur beforeUpdate ou afterUpdate et si (champ1<Champ2) annuler la maj du champ1 (revenir à la valeur précedente du champ1),
J'ai essayé undo, cancel, cancelevent mais rien ne marche

Merci pour votre aide !

Denis

[Tofalu]

Mouais......

Je pense qu'il y a plus simple, mais je ne trouve pas


Donc pour des champs indépendants :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim TempChamp1 As Integer
Private Sub champ1_AfterUpdate()
If champ1 > champ2 Then
champ1 = TempChamp1
End If
End Sub
 
Private Sub champ1_GotFocus()
TempChamp1 = CInt(Nz(champ1, "0"))
End Sub

Sinon, pour des champs dépendants, le undo devrait faire l'affaire sinon, regarde du coté de OldValue

[Makinator]

Sinon tu peux eventuellement faire un sendkeys ctrl+z

sur evenement apres MAJ

Code :

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

1
2
3
4
Private Sub TonControl_AfterUpdate()
If champ1 < champ2 Then
SendKeys "^z"
End Sub

[User]

Merci pour vos réponse !

En fait les champs de mon form sont associés aux propriétés d'un objet (instance de class) et pour revenir à la valeur précédente du champ j'ai fait:

Code :

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

1
2
3
4
5
 
Private Sub Champ1_AfterUpdate() 
If champ1 < champ2 Then 
Champ1=Objet1.Champ1
End Sub

Désolé je n'avais pas vu cette possibilité,
cela dit vos codes vont surement en intéresser d'autres !