J'aimerai pouvoir s=E9lectionner automatiquement tout le=20
texte qu'un utilisateur vient d'entr=E9 dans une zone de=20
texte.
Quelqu'un a une id=E9e ?
Merci
Salut Essaies ça If Len(Nz(zdtTexte, "")) > 0 Then With zdtTexte .SetFocus .SelStart = 0 .SelLength = Len(zdtTexte) End With End If
Ouala Bye Buddy
"guillaume" a écrit dans le message de news:2acb01c4709b$4e23b020$ Bonjour,
J'aimerai pouvoir sélectionner automatiquement tout le texte qu'un utilisateur vient d'entré dans une zone de texte. Quelqu'un a une idée ? Merci
guillaume
Merci, mais cela ne marche que partiellement... En fait, quand l'utilisateur entre une donnée dans la zone de texte, je fais un traitement pour vérifier la validité de ce qui est entré (en l'occurence, je vérifie l eformat de la chaine de caractères). Si cela ne correspond pas, alors j'affiche un message d'erreur lui demandant de modifier la chaine.
Là, cela devrait sélectionner le texte de la zone. Mais au lieu de cela, on passe sur un autre controle... j'ai pourtant regardé l'ordre de tabulation, et cela ne correspond pas non plus...
Merci, mais cela ne marche que partiellement...
En fait, quand l'utilisateur entre une donnée dans la zone
de texte, je fais un traitement pour vérifier la validité
de ce qui est entré (en l'occurence, je vérifie l eformat
de la chaine de caractères).
Si cela ne correspond pas, alors j'affiche un message
d'erreur lui demandant de modifier la chaine.
Là, cela devrait sélectionner le texte de la zone.
Mais au lieu de cela, on passe sur un autre controle...
j'ai pourtant regardé l'ordre de tabulation, et cela ne
correspond pas non plus...
Merci, mais cela ne marche que partiellement... En fait, quand l'utilisateur entre une donnée dans la zone de texte, je fais un traitement pour vérifier la validité de ce qui est entré (en l'occurence, je vérifie l eformat de la chaine de caractères). Si cela ne correspond pas, alors j'affiche un message d'erreur lui demandant de modifier la chaine.
Là, cela devrait sélectionner le texte de la zone. Mais au lieu de cela, on passe sur un autre controle... j'ai pourtant regardé l'ordre de tabulation, et cela ne correspond pas non plus...
3stone
Salut,
"guillaume" En fait, quand l'utilisateur entre une donnée dans la zone de texte, je fais un traitement pour vérifier la validité de ce qui est entré (en l'occurence, je vérifie l eformat de la chaine de caractères). Si cela ne correspond pas, alors j'affiche un message d'erreur lui demandant de modifier la chaine.
Là, cela devrait sélectionner le texte de la zone.
Tu dois vérifier dans l'événement "Avant mise à jour"
et, si pas correct, annuller la mise à jour...
et, éventuellement sélectionner le texte:
If txtMonTruc = "pas bon" then Cancel = True With zdtTexte .SelStart = 0 .SelLength = Len(zdtTexte) End With exit sub end if
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"guillaume"
En fait, quand l'utilisateur entre une donnée dans la zone
de texte, je fais un traitement pour vérifier la validité
de ce qui est entré (en l'occurence, je vérifie l eformat
de la chaine de caractères).
Si cela ne correspond pas, alors j'affiche un message
d'erreur lui demandant de modifier la chaine.
Là, cela devrait sélectionner le texte de la zone.
Tu dois vérifier dans l'événement "Avant mise à jour"
et, si pas correct, annuller la mise à jour...
et, éventuellement sélectionner le texte:
If txtMonTruc = "pas bon" then
Cancel = True
With zdtTexte
.SelStart = 0
.SelLength = Len(zdtTexte)
End With
exit sub
end if
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
"guillaume" En fait, quand l'utilisateur entre une donnée dans la zone de texte, je fais un traitement pour vérifier la validité de ce qui est entré (en l'occurence, je vérifie l eformat de la chaine de caractères). Si cela ne correspond pas, alors j'affiche un message d'erreur lui demandant de modifier la chaine.
Là, cela devrait sélectionner le texte de la zone.
Tu dois vérifier dans l'événement "Avant mise à jour"
et, si pas correct, annuller la mise à jour...
et, éventuellement sélectionner le texte:
If txtMonTruc = "pas bon" then Cancel = True With zdtTexte .SelStart = 0 .SelLength = Len(zdtTexte) End With exit sub end if
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------