Surligner et after update?

[bartelele]

Bonjour à tous,

Voilà j'ai un problème assez simple mais ca ne fonctionne pas et je me demande si cela n'est pas lié à l'événement.

J'ai un textbox où l'opérateur rentre la date, celle-ci doit être forcement de type JJ/MM/AAAA sinon à la fin de la saisie, un message d'erreur s'affiche via un msgbox

Ce que je voudrais faire, c'est que si l'opérateur met une date de type JJ/MM/AA, le msgbox s'affiche (jusque là ok), et lorsque celui-ci click sur ok pour fermer le msgbox, le curseur retourne dans le textbox de la date et celle-ci se trouve surligner pour modification.

Voilà j'ai pondu ce code mais ca ne marche pas... ai-je une erreur? est-ce lié à l'afterupdate?

Merci à tous



Private Sub TB_Date_cause_Containment1_AfterUpdate()

'10 caracteres autorisés, le format de la date doit être JJ/MM/AAAA
If Len(TB_Date_cause_Containment1.text) <> 10 Then
MsgBox "Le format de la date doit être JJ/MM/AAAA", vbExclamation
TB_Date_cause_Containment1.SetFocus
TB_Date_cause_Containment1.SelStart = 0
TB_Date_cause_Containment1.SelLength = Len(TB_Date_cause_Containment1.Value)
End If

End Sub

 

[bartelele]

Re : Surligner et after update?

merci de ton aide en tout cas

 

[bartelele]

Re : Surligner et after update?

oki, je vais voir si je peux creuver là dedans, merci à toi en tout cas

 

[Pierrot93]

Re : Surligner et after update?

Re,

peut être ainsi, mais bon....

If MsgBox("Le format de la date doit être JJ/MM/AAAA" & vbLf _
     & "pour sortir quand même, répondre non...", vbYesNo) = vbNo Then Exit Sub