Discussion :

[benmacker]

J'ai un code qui me permets d'effectuer une action (ajouter dans une table) par sélection d'un produit dans une liste déroulante (double click).
comment faire pour transposer ce code afin d'utiliser la touche "ENTER" à la place du double click ?

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Liste2_DblClick(cancel As Integer)
Dim Rs As DAO.Recordset
Set Rs = CurrentDb.OpenRecordset("Commande", dbOpenTable)
Rs.AddNew
Rs.Fields(0) = Me.Liste2
Rs.Update
Rs.Close
Set Rs = Nothing
End Sub

merci pour votre aide

[The_Super_Steph]

Bonjour,

au lieu de :

Code :

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

Private Sub Liste2_DblClick(cancel As Integer)

mets :

Code :

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

Private Sub Liste2_Enter()

Donne-moi des nouvelles, je ne suis pas sûre que cela fonctionne

[benmacker]

ça fonctionne pas !
j'ajoute des produits mais pas celui que j'ai selectionné ...

[Invité]

Bonjour,

au lieu de :

Code :

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

Private Sub Liste2_DblClick(cancel As Integer)

mets :

Code :

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

Private Sub Liste2_Enter()

Donne-moi des nouvelles, je ne suis pas sûre que cela fonctionne

L'évènement Enter n'a rien à voir avec la touche entrée.

Si tu veux gérer quelque chose avec le clavier va voir sur l'évènement "KeyPress" du contrôle, regarde dans l'aide, car il me semble que le KeyPress ne gére pas la touche Entrée.

Starec

[benmacker]

je ne trouve en effet rien dans le keypress.
n'y aurait-il donc pa de solution ?

[Invité]

Re

Une petite relecture de l'aide Access 2003 sur KeyPress te donnera :

L'événement KeyPress peut porter sur n'importe quel caractère imprimable du clavier, la touche CTRL suivie d'une lettre de l'alphabet ou d'un caractère spécial, et la touche ENTRÉE ou RETOUR ARRIÈRE. Utilisez les procédures événementielles KeyDown et KeyUp pour prendre en charge les séquences de touches non reconnues par l'événement KeyPress, telles que les touches de fonction, de déplacement, ainsi que leurs combinaisons avec des modificateurs (ALT, MAJ ou CTRL). Contrairement aux événements KeyDown et KeyUp, l'événement KeyPress n'indique pas l'état physique de la touche du clavier, mais détermine le caractère ANSI correspondant à la touche ou à la combinaison de touches activée.

Starec

[benmacker]

ne fonctionne pas avec keypress
par contre avec keydown ça marche
ça donne ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Liste2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Dim Rs As DAO.Recordset
Set Rs = CurrentDb.OpenRecordset("Commande", dbOpenTable)
Rs.AddNew
Rs.Fields(0) = Me.Liste2
Rs.Update
Rs.Close
Set Rs = Nothing
End If
End Sub

merci pour votre aide