Validation avant modification d'un champ

Version imprimable

Bonjour,

J'aimerais pouvoir valider (Oui/Non) avant modification d'un champ non vide...

* Si OUI, le champ est modifié
* Si NON, la valeur revient à la valeur précédente, c'est-à-dire avant l'entrée clavier..

Le code suivant, fait bien bien apparaitre la fenêtre Oui/Non, lors de la tentative de modification du champ non vide...
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Nom_Affilié_Dirty(Cancel As Integer) Dim Reponse If Not IsNull(Me.Nom_Affilié.Value) Then Reponse = MsgBox("Etes-vous certain de vouloir modifier ce champ ?!", vbYesNo + vbQuestion + vbDefaultButton2, "ATTENTION") If Reponse = vbYes Then ' Else Me.Undo End If End Sub
Si je clique sur OUI, je peux continuer à modifier le champ, par contre, si je clique sur NON, cela affiche ce que je viens de rentrer au clavier...

Ce que j'aimerais, c'est que si je choisi NON, cela revient en arrière, c'est-à-dire avec la valeur précédente.

Pourriez-vous m'aider ? Merci d'avance

03/06/2025, 14h50
tee_grandbois

bonjour,
la propriété Undo remet les anciennes valeurs des zones de texte modifiées, mais seule, elle ne suffit pas, il faut ajouter la commande Cancel = True qui empêche d'aller à l'enregistrement suivant ou de quitter le formulaire tant que l'erreur de saisie n'est pas corrigée.

J'utilise plutôt BeforeUpdate que Dirty pour ce type de contrôle

J'ai trouvé :-)

Merci pour les pistes :-)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Nom_Affilié_BeforeUpdate(Cancel As Integer)
    If Not IsNull(Me.Nom_Affilié.OldValue) And Me.Nom_Affilié.OldValue <> "" Then
        Dim réponse As VbMsgBoxResult
        réponse = MsgBox("Ce champ contient déjà une valeur. Voulez-vous vraiment la modifier ?", vbYesNo + vbQuestion + vbDefaultButton2, "Confirmation")
 
        If réponse = vbNo Then
            Me.Nom_Affilié.Undo
            Cancel = True
        End If
    End If
 
End Sub