Discussion :

[Crachover]

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 :

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

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

[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

[Crachover]

J'ai trouvé :-)

Merci pour les pistes :-)

Code :

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

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