Sélection de Texte

PS: j'utilise Access XP!

--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
nospampizza.mpl@tiscali.fr en enlevant nospam.
--------------------------------------------



"RaphK34" <nospampizza.mpl@tiscali.fr> a écrit dans le message de news:
u$$tcYg3EHA.2288@TK2MSFTNGP11.phx.gbl...
| Bonjour,
|
| Quelque chose qui semble tout bête, mais ...
|
| Soit un Formulaire avec 2 zones de texte tabulé dans l'ordre:
| Zone1
| Zone2
|
| sur AfterUpdate de Zone1:
| If Me.Zone1="ABC" Then
| msgbox "ABC", VbOkOnly
| Me.Zone2.SetFocus
| Me.Zone1.SetFocus
| Me.Zone1 = "Remplir"
| End If
|
| If Me.Zone1= ...
|
| En Fait, presque tout fonctionne correctement, le seul prob c'est que mon
| texte n'est pas sélectionné alors que je le voudrai, pour que les autres
| appuie touche efface "Remplir" directement.
| J'ai bien essayé avec .SelStart et .SelLenght, mais rien y fait !
| J'ai l'impression que je suis bien sur Zone1, sans vraiment y être car par
| exemple lorsque j'appuie sur SUPPR pour effacer le R de REMPLIR, rien ne
se
| passe, il faut que je fasse un F2 pour y avoir accès !
|
| Si une bonne "âme" pouvait m'indiquer la marche à suivre, et/ou encore
mieux
| m'expliquer, je dormirai mieux !
|
| --
| @+ Raph.
|
| --------------------------------------------
| Merci de répondre sur le NG
| Toutes remarques bienvenues !
|
| Pour un contact direct, utiliser:
| nospampizza.mpl@tiscali.fr en enlevant nospam.
| --------------------------------------------
|
|
|
|

Salut,

"RaphK34"

Quelque chose qui semble tout bête, mais ...

Soit un Formulaire avec 2 zones de texte tabulé dans l'ordre:
Zone1
Zone2

sur AfterUpdate de Zone1:
If Me.Zone1="ABC" Then
msgbox "ABC", VbOkOnly
Me.Zone2.SetFocus
Me.Zone1.SetFocus
Me.Zone1 = "Remplir"
End If

If Me.Zone1= ...

Sur "AfterUpdate" de la zone1, il ne faut pas tenter de "retourner"
dans la zone1...

Fait plutôt ton test sur "BeforeUpdate" et si pas correct,
tu ne sort pas grâce à une annulation de la mise à jour...

Cancel = true ' et ici tu es toujours DANS zone1


--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome

Merci,

Grâce à ton aide, je suis passé par un Enter sur le contrôle suivant et tout
marche à merveille. (la fatigue sûrement pour ne pas y avoir pensé moi
même;) )

Merci Beaucoup pour ton aide ainsi qu'aux autres contributeurs (pour cette
fois ci ainsi que les inombrables fois où je me sers des archives !!!)

--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
nospampizza.mpl@tiscali.fr en enlevant nospam.
--------------------------------------------



"3stone" <3_stone_@_sky_net.be> a écrit dans le message de news:
%23zMnVLh3EHA.2336@TK2MSFTNGP15.phx.gbl...
| Salut,
|
| "RaphK34"
| > Quelque chose qui semble tout bête, mais ...
| >
| > Soit un Formulaire avec 2 zones de texte tabulé dans l'ordre:
| > Zone1
| > Zone2
| >
| > sur AfterUpdate de Zone1:
| > If Me.Zone1="ABC" Then
| > msgbox "ABC", VbOkOnly
| > Me.Zone2.SetFocus
| > Me.Zone1.SetFocus
| > Me.Zone1 = "Remplir"
| > End If
| >
| > If Me.Zone1= ...
|
|
| Sur "AfterUpdate" de la zone1, il ne faut pas tenter de "retourner"
| dans la zone1...
|
| Fait plutôt ton test sur "BeforeUpdate" et si pas correct,
| tu ne sort pas grâce à une annulation de la mise à jour...
|
| Cancel = true ' et ici tu es toujours DANS zone1
|
|
| --
| A+
| Pierre (3stone) Access MVP
| ~~~~~~~~~~~~~~~~~~~~~~~
| http://users.skynet.be/mpfa
| http://users.skynet.be/accesshome
|
|
|