Gestion d\'erreur et retour au Controls

[laurent45]

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

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

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

 

[laurent45]

Re:Gestion d'erreur et retour au Controls

Re,

Personne ne voit ?

Moi non plus...

J'ai ouvert une suite Lien supprimé

Message édité par: laurent45, à: 15/10/2005 17:39