Discussion :

[fscli]

salut
j'ai deux zones de texte (heure_deb et heure_fin) et je voudrais que si l'heure de fin est inférieure à l'heure de début, obtenir un message et sélectionner l'heure de fin pour pouvoir la resaisir.

Voici mon code

Code :

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

1
2
3
4
5
6
7
Private Sub heure_fin_LostFocus()
If heure_fin.Value < heure_deb.Value Then
MsgBox ("l'heure de fin doit être supérieure à l'heure de début")
heure_fin.SetFocus
heure_fin.SelLength = 5
End If
End Sub

avec ce code quand j'ai cliquer sur Ok du message d'erreur je passe directement au champ suivant...

[LedZeppII]

Bonjour,

Est-ce que tu as essayé avec l'évênement Sur Sortie (OnExit) ?
Tu peux empêcher de quitter le champ en mettant True dans Cancel.

Code :

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

1
2
3
4
5
6
7
Private Sub ZoneDeTexte_Exit(Cancel As Integer)
If (Condition) Then 
   Cancel=True
   Me.ZoneDeTexte.SelSart=0
   Me.ZoneDeTexte.SelLenght=5
End If
End Sub

Exit survient avant LostFocus.

A+

[Tofalu]

Il te manquait juste le selstart

[Arkham46]

slt,

En plus du selstart il ne faut pas coder dans LostFocus, l'événement ne s'annule pas et le passage au contrôle suivant se poursuit quand même

L'événement Avant mise à jour c'est fait pour ça, avec le paramètre Cancel
Un peu comme ça je pense :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub  heure_fin_BeforeUpdate(Cancel As Integer)
If heure_fin.Value < heure_deb.Value Then
   MsgBox ("l'heure de fin doit être supérieure à l'heure de début")
   heure_fin.SelStart = 0
   heure_fin.SelLength = len(heure_fin)
   Cancel = True
End If
End Sub

[fscli]

merci pour vos conseils
j'obtiens le résultat souhaité