Discussion :

[snoopy69]

Bonjour,

Ma question est peut être un peu bête mais j'ai créer un sous-formulaire en mode continu qui contient énormément de champ ce qui le rend très long en largeur et en hauteur.

Pour me déplacer pour voir toute mes lignes d'enregistrements, je peux utiliser les ascenseurs mais cela m'embête un peu car je dois prendre ma souris à chaque fois ....

Est-ce qu'il existe une possibilité de me déplacer de haut en bas avec les flèches du clavier ????

Lorsque je les utilise si je presse sur la flèche pointant vers le haut, je me déplace en direction de la gauche et si je presse la flèche pointant vers le bas, je me déplace en direction de la droite dans mon formulaire.

Comment puis-je faire pour utiliser mes touches flèchées ???

Je vous remercie de votre aide et à tout bientôt ...

S'Noop

[ft035580]

Salut,

Une petite idée.Pourquoi n'essaies tu pas:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
        Case vbKeyDown
        DoCmd.GoToRecord , , acNext
        Case vbKeyUp
        DoCmd.GoToRecord , , acPrevious
        End Select
End Sub

[argyronet]

Bonjour,

ft035580 : C'est la solution que je voulais lui proposer...
Il faut toutefois ne pas omettre de définir la propriété Aperçu des touches à True, sans quoi ton code ne marchera pas.

Tu peux aussi solliciter les touches PgUp / PgDown avec un pas de 10 enregistrements (Offset)

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  On Error Resume Next
  Select Case KeyCode
    Case 34: DoCmd.GoToRecord , , acNext, 10 'PGDOWN
    Case 40: DoCmd.GoToRecord , , acNext, 1'DOWN
    Case 33: DoCmd.GoToRecord , , acPrevious, 10 'PGUP
    Case 38: DoCmd.GoToRecord , , acPrevious, 1 'UP
  End Select
End Sub

Argy

[chrisblb]

Bonjour à vous
Je cherchais cela depuis longtemps .... et je vous dis juste un immense merci !
A celui qui a posé la question et à ceux qui y ont répondu.
Super !

[argyronet]

Bonjour,

Sinon, dans un autre ordre d'esprit, il y a quelques années, j'ai écrit ce tuto et c'est un option complémentaire intéressante...
Comment faire défiler les fiches en maintenant le bouton gauche de la souris appuyé

Argy

[chrisblb]

Je vais de ce pas implémenter cela dans la base en cours de développement.
Gestion d'une base de données musicales de 6000 disques et 65.000 titres .... ce type de déplacement rapide est le bienvenu.
Merci pour ce partage et la qualité du tuto réalisé.