Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonsoir.
si tu veux utiliser une variable il ne faut pas utiliser oldvalue. tu peux faire: Dim X As String Private Sub Texte1_GotFocus() ' entrée X = Me.Texte1 End Sub
Private Sub Texte1_LostFocus() ' sortie If X = Me.Texte1 Then MsgBox "égalité" Else MsgBox "différent" End If End Sub
tu peux aussi mettre une procédure dans AfterUpdate car s'il y a changement, cet événement sera déclanché. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jean-Claude" a écrit dans le message de news: 422f432c$0$31347$
Bonsoir. Je voudrais stocker une valeur en entrant dans un champ et la comparer en sortant de ce meme champ.
J'utilise le systeme champ.value et en sortant old.value
Je voudrais utiliser une variable et la comparer.
Comment faire ?
Merci d'avance
Bonsoir.
si tu veux utiliser une variable il ne faut pas utiliser oldvalue.
tu peux faire:
Dim X As String
Private Sub Texte1_GotFocus() ' entrée
X = Me.Texte1
End Sub
Private Sub Texte1_LostFocus() ' sortie
If X = Me.Texte1 Then
MsgBox "égalité"
Else
MsgBox "différent"
End If
End Sub
tu peux aussi mettre une procédure dans AfterUpdate car s'il y a changement,
cet événement sera déclanché.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jean-Claude" <arlequin7520@hotmail.com> a écrit dans le message de news:
422f432c$0$31347$636a15ce@news.free.fr...
Bonsoir.
Je voudrais stocker une valeur en entrant dans un champ et la comparer en
sortant de ce meme champ.
J'utilise le systeme champ.value et en sortant old.value
si tu veux utiliser une variable il ne faut pas utiliser oldvalue. tu peux faire: Dim X As String Private Sub Texte1_GotFocus() ' entrée X = Me.Texte1 End Sub
Private Sub Texte1_LostFocus() ' sortie If X = Me.Texte1 Then MsgBox "égalité" Else MsgBox "différent" End If End Sub
tu peux aussi mettre une procédure dans AfterUpdate car s'il y a changement, cet événement sera déclanché. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jean-Claude" a écrit dans le message de news: 422f432c$0$31347$
Bonsoir. Je voudrais stocker une valeur en entrant dans un champ et la comparer en sortant de ce meme champ.
J'utilise le systeme champ.value et en sortant old.value
