Discussion :

[Jeffboj]

Bonjour,

J'ai un champ numérique et j'aimerai que lorsque le chiffre n'est pas pair il me donne un message et efface le contenu et remette le focus sur ce champ.

j'ai fait:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub NbrEquipe_AfterUpdate()
If Me.NbrEquipe Mod 2 = 1 Then
    MsgBox ("Il faut un chiffre pair !")
    Me.NbrEquipe.Undo
    Me.NbrEquipe.SetFocus
End If
End Sub

il m'affiche le message mais n'efface pas et ne redonne pas le focus???

Jeff

[loufab]

Bonjour,

Il faut utiliser BeforeUpdate (avant MAJ).

Lorsque Cancel = True il annule la saisie et laisse le focus sur le controle.

cordialement,

[LedZeppII]

Bonjour,
essaie comme ceci:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub NbrEquipe_BeforeUpdate(Cancel As Integer)
If Me.NbrEquipe Mod 2 = 1 Then
    MsgBox ("Il faut un chiffre pair !")
    Me.Undo
    Cancel = True
End If
End Sub

Modif: Loufab a raison. Undo annule ttes les saisies (celles des autres champs aussi)

A+

[Jeffboj]

merci,

on n'a fait la moitié du chemin
je mets 3 il affiche le message reviens sur le champ
mais il me laisse le 3 j'aimerai qu'il efface pour obliger une nouvelle saisie

Jeff

[LedZeppII]

Je viens d'essayer l'évênement sur Sortie:

Code :

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

1
2
3
4
5
6
7
8
Private Sub NbrEquipe_Exit(Cancel As Integer)
If Me.NbrEquipe Mod 2 = 1 Then
    MsgBox ("Il faut un chiffre pair !")
    Me.NbrEquipe = Me.NbrEquipe.OldValue
    Cancel = True  ' empêche de quitter le champ
End If
End Sub

[Jeffboj]

merci
mais je vais me contenter de revenir sur mon champ car cela ne fonctionne pas sur oldvalue
merci quand même

Jeff