Créer un message d'alerte evenement "sur changement"

**samsab** · 01/03/2011, 15h04

Bonjour à tous
je débute......
dans un formulaire, il est possible très facilement de changer la valeur d'un champs si on ne fait pas attention.
Il est simple de verrouiller les champs, mais cela est trop restrictif.
Comment créer un message d'alerte, apparaissant quand la valeur du champs non verrouillé est modifiée, permettant ainsi d'exiger une confirmation pour que le changement soit pris en compte et remonte jusqu'à la table?

merci pour votre patience à me lire et surtout à me répondre.
A+
Emmanuel

**loufab** · 01/03/2011, 21h06

Bonjour,

Il s'agit d'un question purement IHM (je transfere sur le bon forum).

Utilise l'événement Avant Maj (avant mise à jour) du champ concerné.
Il y a le Cancel qui te permet d'annuler la mise à jour.

Regarde le tuto sur les événements http://loufab.developpez.com/tutorie...ss/evenements/ pour y voir plus clair.

Cordialement,

**dok flint** · 02/03/2011, 09h05

Bonjour ,

Tu pourra mettre sur l'événement "Avant mise à jour" un petit code du style :

Code :

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

1
2
3
4
5
6
 
If MsgBox("Voulez vous confirmer la saisie", vbYesNo, "Confirmation") = vbYes Then
Cancel = False
Else
Cancel = True
End If

A+

**samsab** · 02/03/2011, 10h46

Merci pour vos réponses

cela me fait avancer
A+

**dok flint** · 02/03/2011, 13h37

Bonjour ,
N'oublies pas le

si c'est OK.
A+

**samsab** · 02/03/2011, 13h48

pas tout à fait résolu en fait.
si la confirmation ne se fait pas, j'aurais aimé retrouver la valeur initiale du champ. ce qui n'est pas le cas avec ce code.
autrement dit
soit il faudrait un message d'alerte avant changement de la valeur (et là quel est l'évenement à surveiller? onfocus?)
soit il faudrait que le code mémorise la valeur initiale, et la garde si le changement est infirmé.

auriez vous des pistes pour cela?
Merci mille fois
A+

**dok flint** · 02/03/2011, 14h22

Bonjour ,
Il faudra juste ajouter un petit

Undo et ça donne :

Code :

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

1
2
3
4
5
6
7
 
If MsgBox("Voulez vous confirmer la saisie", vbYesNo, "Confirmation") = vbYes Then
Cancel = False
Else
Cancel = True
Me![champ].undo
End If