OVH Cloud OVH Cloud

Sélectionner tout le texte d'un contrôle Texte

3 réponses
Avatar
guillaume
Bonjour,

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

3 réponses

Avatar
Buddy
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
Avatar
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...
Avatar
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
-----------------------------