retour automatique dans un champ

Bonjour
J'alimente une liste temporaire en entrant des valeurs ( des noms ) dans un champ qui se nomme Texte.
Après chaque saisie je voudrais que le champ s'efface et que le curseur se place dedans afin de saisir une autre valeur.
Voila ce que j'ai fait :

Code:

---

1 2 3 4 5

'Mise à jour de ma liste puis RAZ sur champ Private Sub Texte_AfterUpdate() TransposerText Texte, lstDroite RAZ End Sub

---

Code:

---

1 2 3 4 5

Function RAZ() Me.Texte.SetFocus DoCmd.GoToControl "Texte" Texte.Value = Null End Function

---

Le champ texte se vide bien après ENTER mais le curseur n'y va pas
Mais si je met ma fonction RAZ en propriété CLIC d'un bouton de commande,ça fonctionne !
Merci de vos conseils

Salut,

Sur l'évènement keydown du textbox écris :

Code:

---

1 2 3

If KeyCode = 13 Then MonBouton_Click End If

---

Dans l'évènement MonBouton_Click écris :

Code:

---

1 2	Me.MonBouton.SetFocus ..

---

Sans garantie :aie:

A+

Bonjour
Si j'ajoute ça à la propriété keydown du textbox

Code:

---

1 2 3

If KeyCode = 13 Then MonBouton_Click End If

---

cela ne change rien au niveau du textbox et pire la liste ne se met pas à jour !

Salut,

Désolé pour le retard,

Essaie d'annuler l'effet de la touche entrée sur KeyDown, comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Texte_KeyDown(KeyCode As Integer, Shift As Integer)   If KeyCode = 13 Then   TransposerText Texte, lstDroite RAZ KeyCode = 0 ' annule l'effet de la touche entrée   End If   End Sub

---

En enlevant le code sur afterUpdate.

A+

Bonsoir
Merci de ta réponse
En faisant çà le champ Texte se vide bien avec le retour du curseur dedans
Donc c'est plutôt pas mal mais le HIC c'est que ma liste de droite se remplit avec le contenu complet de celle de gauche!
En effet j'ai deux listes (lstGauche et LstDroite) et je fais passer les choix de celle de gauche dans celle de droite
Mais comme la liste est très longue j'ai fait ce champ texte pour éviter de chercher dans cette longue liste.

Salut,

Tu peux donner le code de ta procédure TransposerText ?

A+

Bonjour
Je joins à ce post un extrait de ma base avec le formulaire, la table et les requêtes qui vont avec
Je te remercie de t'interresser à ce problème
A bientôt

Bonsoir
Ca y est , j'ai trouvé
Il faut donner le focus à la liste de droite juste après sa mise à jour
Car en étudiant bien la question je me suis apperçu que le focus n'était nulle part!!!
Donc ça donne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Texte_AfterUpdate() TransposerText Texte, lstDroite RAZ End Sub   Function RAZ() Me.lstDroite.SetFocus Me.Texte.SetFocus DoCmd.GoToControl "Texte" Texte.Value = Null End Function

---

Et là ça marche impec.