Discussion :

[froelandt]

Bonjour,

Je ne suis pas satisfait par l'expérience utilisateur de mon formulaire Access, il ne me permet pas de faire de l'encodage rapide

Je possède un grand nombre de champs (zones de texte et listes déroulantes) en longeur et j'aimerai pouvoir naviguer entre eux avec la touche TAB (ce qui marche par défaut), mais surtout pouvoir fixer la valeur des listes déroulantes focusées avec les flèches HAUT et BAS du clavier.

Auriez-vous une solution ?

Merci d'avance et excellent weekend à tous et toutes

[marsouin_89]

Bonjour,

Sur touche appuyée de ta liste déroulante.

Code :

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

1
2
3
4
5
6
7
Private Sub MyLisDeroulante_KeyDown(KeyCode As Integer, Shift As Integer)
 
If Shift = 1 Then
    Me.MyLisDeroulante.Dropdown
End If
 
End Sub

Ensuite tu peux naviguer dans ta liste avec tes flèches haut et bas.

Cordialement

Christophe

[marsouin_89]

Bonjour,

Au temps pour moi, j'ai oublié une petite précision.

Ce code signifie que lorsque ton curseur est dans le champ de la liste déroulante, tu appuies sur la touche shift pour dérouler automatiquement la liste.

Cordialement

Christophe

[froelandt]

Merci beaucoup Christophe !

Pour info j'ai reçu une autre réponse (plus intéressante au vu de mes besoins) sur un forum anglophone.

Code :

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

1
2
3
Private Sub SupplierID_GotFocus()
Me!SupplierID.Dropdown
End Sub

http://msdn.microsoft.com/en-us/libr...ffice.12).aspx

Elle permet d'ouvrir directement la liste déroulante une fois le focus fait sur celle-ci (ce qui m'arrange vu que c'est pour de l'encodage rapide au clavier avec besoin d'appuyer sur le moins de touches possible).

[chamma9]

merci

Bonjour,

Sur touche appuyée de ta liste déroulante.

Code :

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

1
2
3
4
5
6
7
Private Sub MyLisDeroulante_KeyDown(KeyCode As Integer, Shift As Integer)
 
If Shift = 1 Then
    Me.MyLisDeroulante.Dropdown
End If
 
End Sub

Ensuite tu peux naviguer dans ta liste avec tes flèches haut et bas.

Cordialement

Christophe

https://msdn.microsoft.com/fr-fr/vba...-method-access

Code :

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

1
2
3
Private Sub SupplierID_GotFocus() 
 Me!SupplierID.Dropdown 
End Sub