JC de Lorient
XLDnaute Impliqué
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
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