set Focus

[JC de Lorient]

Bonsoir a vous le forum

je me prends la tête avec ce code :

Private Sub TextBox11_AfterUpdate()
If Not IsDate(TextBox11) Then
MsgBox 'Erreur de format sur la date de naissance', vbCritical, 'ATTENTION'
TextBox11 = ''
TextBox11.SetFocus
Exit Sub
End If
TextBox11 = Format(TextBox11, 'dd/mm/yyyy')
Me.TextBox12 = Date - CDate(Me.TextBox11)
End Sub
Pourquoi je n'arrive pas a ramener mon focus sur le textbox11 ???

Merci pour l'aide et très bonne soirée

 

[JC de Lorient]

re le forum
bonsoir jmps
je ne saisie pas trop comment mettre ça en oeuvre !
en fait je passe de mon textbox10 au 11
si date ok on passe au textbox12
si pas ok rester sur le textbox11

ou mettre l'évènement Exit ?

mille mercis

 

[JC de Lorient]

re

bingo
y suis arrivé !!!!

encore merci