Discussion :

[MakSLR]

Bonjour,

J'utilise un code VBA qui me permet effectué les navigations avec les flèches comme dans un classeur Excel.
Sous Access 2016 (chez moi) tout marche bien.
Mais ce n'est pas le cas avec le 2013 (au travail). Les flèches marchent sauf si j'effectue une modification, pour reprendre la manipulation avec les flèches il faut utiliser la touche Entrée.

Le code:

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

Puis dans "Feuille de propriétés" => "Événement" => "Aperçu des touches" je fait OUI.
Je pense que la dernier opération ne marche pas ou bug sous Access 2013.

Est ce que cela est possible?
Et que faire?

Cordialement.

[tee_grandbois]

Bonjour,

Sous Access 2016 (chez moi) tout marche bien.
Mais ce n'est pas le cas avec le 2013 (au travail). Les flèches marche sauf si j'effectue une modification, pour reprendre la manipulation avec les flèches il faut utiliser la touche Entrée.


Puis dans "Feuille de propriétés" => "Événement" => "Aperçu des touches" je fait OUI.

c'est bizarre, j'ai proposé cette solution et je l'ai testé avec 2013 avec succès.
Sur quel type de contrôle fais-tu la modification en question ?

[Invité]

Bonjour,
Vas dans le menu->outils->références de vba et décoche toutes les libraires manquantes!

[MakSLR]

Sur quel type de contrôle fais-tu la modification en question ?

Bonjour,

Je le fais sur un formulaire continue.

[MakSLR]

Bonjour,
Vas dans le menu->outils->références de vba et décoche toutes les libraires manquantes!

Bonjour,

J'essaye Lundi.

[tee_grandbois]

Bonjour,

Je le fais sur un formulaire continue.

Bonsoir,
je faisais allusion au type de contrôle dans le formulaire (Textbox, ComboBox, Listbox ...)

[MakSLR]

Bonsoir,
je faisais allusion au type de contrôle dans le formulaire (Textbox, ComboBox, Listbox ...)

Bonjour,

C'est une zone de texte dans onglet Détail.

Cordialement.

[MakSLR]

Bonjour,
Vas dans le menu->outils->références de vba et décoche toutes les libraires manquantes!

Bonjour,

J'ai décoche toutes les libraires ça ne marche pas :/

Cordialement

[tee_grandbois]

bonjour,

J'ai décoche toutes les libraires

- je suppose que ce sont UNIQUEMENT les librairies MANQUANTES (s'il y en avait) et pas les autres qui sont obligatoires sous peine d'avoir plein d'erreurs de compilation.

ça ne marche pas

- est-ce toujours le même comportement avec les flèches directionnelles ?
Essaie de mettre un point d'arrêt dans le code pour vérifier qu'il y passe bien.

[MakSLR]

bonjour,

- je suppose que ce sont UNIQUEMENT les librairies MANQUANTES (s'il y en avait) et pas les autres qui sont obligatoires sous peine d'avoir plein d'erreurs de compilation.

- est-ce toujours le même comportement avec les flèches directionnelles ?
Essaie de mettre un point d'arrêt dans le code pour vérifier qu'il y passe bien.

Ça ne marche pas. Une fois les modifications sont faites j'appuis sur les touches "flèches Haut et Bas ou touche Entrée" j'arrive a changer de cellule (Comme avant). Mais je n'arrive pas a faire ce manip avec "les flèches gauche et droite)

[tee_grandbois]

Bonjour,

Mais je n'arrive pas a faire ce manip avec "les flèches gauche et droite)

1) normalement, ces 2 flèches sont prévues pour se déplacer caractère par caractère à l'intérieur du champ de saisie, si tu les détournes comment vas-tu faire pour modifier le texte à un endroit particulier ?
2) dans ton code, tu n'as pas mis les Case pour ces 2 keycode (37 et 39)
j'ai testé le code ci-dessous, il fonctionne comme tu le souhaites avec Access2013 formulaire classique continu (pas testé avec formulaire de navigation ou autre) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  On Error Resume Next
  Select Case KeyCode
    Case 34
    DoCmd.GoToRecord , , acNext, 10
    Case 40, 39
    DoCmd.GoToRecord , , acNext, 1
    Case 33
    DoCmd.GoToRecord , , acPrevious, 10
    Case 38, 37
    DoCmd.GoToRecord , , acPrevious, 1
   End Select
End Sub