OVH Cloud OVH Cloud

cancel ?

3 réponses
Avatar
Stéphane Lavergne
Bonjour,

Je remarque que dans l'événement sur ouverture d'un formulaire,
il y a 1 paramètre Cancel :
Private Sub Form_Open(cancel As Integer)

Par contre, ce paramètre n'est pas présent dans l'événement sur mis à jour
d'un contrôle zone de texte :
Private Sub Champs_AfterUpdate()

Comment annuler en VBA la mise à jour ?
Sinon je ne vois que la sauvegarde du contenu du contrôle dans 1 variable
temporaire à partir de l'événement BeforeUpdate,
à réutiliser en cas d'annulation.

Merci d'avance,

--
Cordialement,

Stéphane Lavergne

3 réponses

Avatar
Jeff
Bonjour

Tu peux utiliser AfterUpdate pour ta condition et rétablir l'ancienne valeur
du champ avec la propriété .OldValue

Cependant tu peux "capturer" l'évènement BeforeUpdate du formulaire
pour effectuer des traitements avant mise à jour et tu auras la possibilité
d'annuler par Cancel = 1

--
Cordialement

Jeff

Charte du forum : http://users.skynet.be/mpfa/

"Stéphane Lavergne" a écrit dans le message de
news:
Bonjour,

Je remarque que dans l'événement sur ouverture d'un formulaire,
il y a 1 paramètre Cancel :
Private Sub Form_Open(cancel As Integer)

Par contre, ce paramètre n'est pas présent dans l'événement sur mis à jour
d'un contrôle zone de texte :
Private Sub Champs_AfterUpdate()

Comment annuler en VBA la mise à jour ?
Sinon je ne vois que la sauvegarde du contenu du contrôle dans 1 variable
temporaire à partir de l'événement BeforeUpdate,
à réutiliser en cas d'annulation.

Merci d'avance,

--
Cordialement,

Stéphane Lavergne




Avatar
3stone
Salut,

"Stéphane Lavergne" a écrit:
| Je remarque que dans l'événement sur ouverture d'un formulaire,
| il y a 1 paramètre Cancel :
| Private Sub Form_Open(cancel As Integer)
|
| Par contre, ce paramètre n'est pas présent dans l'événement sur mis à jour
| d'un contrôle zone de texte :
| Private Sub Champs_AfterUpdate()


Pas dans le AfterUpfate, c'est trop tard...

regarde dans beforeUpdate.


--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------
Avatar
Stéphane Lavergne
Merci Jeff
Merci Pierre


"3stone" a écrit dans le message de
news:3f93d6fb$0$277$
Salut,

"Stéphane Lavergne" a écrit:
| Je remarque que dans l'événement sur ouverture d'un formulaire,
| il y a 1 paramètre Cancel :
| Private Sub Form_Open(cancel As Integer)
|
| Par contre, ce paramètre n'est pas présent dans l'événement sur mis à
jour

| d'un contrôle zone de texte :
| Private Sub Champs_AfterUpdate()


Pas dans le AfterUpfate, c'est trop tard...

regarde dans beforeUpdate.


--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------