faire une action lors de frappes clavier

**wag71** · 19/12/2006, 18h42

Bonjour, je me présente, novice en Access

je voudrais faire une petite application de facturation pour ma femme qui fait du repassage.

je veux donc que sur la page d'accueil je puisse rechercher un client, j'ai donc fait un champ txt qui me permet de saisir tout ou partie de nom du client et dessous, une liste des résultats correspondants qui se mettent à jour a mesure que l'on entre le nom.

j'ai bien réussi à le faire en mettant un bouton avec l'action 'DoCmd.Requery "liste_client"', par contre j'ai voulu rafraichir la liste chaque fois que l'on tappe une touche mais pas moyen vous savez pkoi?

j'ai testé en faisant un setfocus sur la liste, faire le rafraichissement et revenir sur mon champ de texte et la ca marche mais il me selectionne tout le texte du champ en revenant donc c'est un peu galère.

Si vous avez des solutions merci d'avance
A+

**Heureux-oli** · 19/12/2006, 19h29

Bonjour et bienvenue sur les forums.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub cmboAuteur_KeyUp(KeyCode As Integer, Shift As Integer)
code à exécuter
End Sub

Devrait t'aider un peu plus.

**wag71** · 20/12/2006, 10h17

j'ai bien essayé

mais ça ne marche pas non plus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub recherche_nom_KeyUp(KeyCode As Integer, Shift As Integer)
DoCmd.Requery "liste_client"
End Sub

alors qu'avec un bouton ça marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Commande3_Click()
DoCmd.Requery "liste_client"
End Sub

si tuas une autre idée ou si j'ai mal saisi le truc merci de préciser a+

**Arkham46** · 20/12/2006, 10h41

Bjr,

utilisez l'évenement "sur changement"
et la propriété "text" de la zone de texte pour lire le texte en cours de saisie
(pensez aux balises de code (#), c'est plus lisible)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub recherche_nom_Change()
Me.liste_client.RowSource = "select ClientID from TableDesClients where ClientID like '" & recherche_nom.Text & "*'"
Me.liste_client.requery
End Sub

**Heureux-oli** · 20/12/2006, 10h42

Je pense que pour avoir un résultat, il faut concaténer les données du combo avec un wild card.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
stval = moncombo.value & "*"

et dans la requête un like pour prendre en charge le *

**wag71** · 20/12/2006, 13h07

super Arkham46 !
ça fonctionne nickel !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub recherche_nom_Change()
Me.liste_client.RowSource = "SELECT * FROM t_client WHERE (((t_client.nom) Like '*" & recherche_nom.Text & "*'))"
Me.liste_client.Requery
End Sub

par contre j'ai pas tout compris ton truc Heureux-oli mais merci tout de même

comme mentionné plus haut je débute
mais je reviendrais trés bientôt pour d'autrees problèmes j'en suis certain
messieurs je vous tire mon chapeau

c'est ma femme qui va être contente si j'arrive a lui faire son truc
A++++++++

**Heureux-oli** · 20/12/2006, 13h13

Si j'avais su que c'était pour ta femme, je n'aurais pas mouillé ma chemise

**Farbin** · 20/12/2006, 15h37

Bonjour, je me permets de reouvrir la question, car dans mon cas, je dois appuyer sur Entrée après avoir rempli un TextBox et déclencher une procédure utilisant la valeur du TextBox. Mais apparemment, lorsque je détecte la frappe d'une touche avec KeyDown, le contenu du TextBox est null (malgré un contenu existant bien).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub TexteBox_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        Procédure(Me.TexteBox.Value)
    End If
End Sub

Ceci me renvoie une erreur car Me.TexteBox.Value est null. Y a t il un moyen de faire autrement?