[AC-2002] retour automatique dans un champ [Résolu]

[Jean-Luc80]

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

[User]

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

A+

[Jean-Luc80]

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 !

[User]

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+

[Jean-Luc80]

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.

[User]

Salut,

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

A+

[Jean-Luc80]

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

[Jean-Luc80]

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.