laurent45
XLDnaute Occasionnel
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 :
Ex. : '0,001235,25'=> Erreur Type (logique).
Donc pour la fonction MAJFORM, j'ai ajouté une gestion d'erreur :
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
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 :
Il peut arriver lors de la saisie que l'utilisateur ne sélectionne pas le contenu pour éviter d'avoir un nombre à 2 ','.Private Sub CARestauMidiBox_AfterUpdate()
CARestauMidiBox = MAJForm1(CARestauMidiBox)
End Sub
Ex. : '0,001235,25'=> Erreur Type (logique).
Donc pour la fonction MAJFORM, j'ai ajouté une gestion d'erreur :
Mais le problème, c'est que la TextBox est vidée, et qu'il donne le Focus à la TextBox suivante.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
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