Gestion d\'erreur et retour au Controls

Gestion d'erreur et retour au Controls

Bonjour le Forum,

Je suis en train de finaliser mon Appli, et je travaille sur la gestion d'erreur.
Pour une TextBox avec valeur par défaut '0,00', j'ai :

Private Sub CARestauMidiBox_AfterUpdate()
CARestauMidiBox = MAJForm1(CARestauMidiBox)
End Sub

Cliquez pour agrandir...

Il peut arriver lors de la saisie que l'utilisateur ne sélectionne pas le contenu pour éviter d'avoir un nombre à 2 ','.
Ex. : '0,001235,25'=> Erreur Type (logique).

Donc pour la fonction MAJFORM, j'ai ajouté une gestion d'erreur :

Public Function MAJForm(T As String) As String
On Error GoTo ErreurType
MAJForm = Format(CDbl(T), '0.00')
Exit Function
ErreurType:
MsgBox 'Attention ! La saisie n'est pas valide. ' & vbCr & 'Veuillez effacer la saisie et recommencer ! ', vbOKOnly, 'Erreur Type ! '
Resume Next
End Function

Cliquez pour agrandir...

Mais le problème, c'est que la TextBox est vidée, et qu'il donne le Focus à la TextBox suivante.

Je souhaiterais que le Focus revienne sur le Controls qui génère l'erreur.

Merci

Edit : Je viens d'essayer avec la gestion d'erreur au niveau de la Private Sub ..._AfterUpdate(), et le résultat est le même...

Message édité par: laurent45, à: 12/10/2005 17:48