Problème en VBA entre Access 2013 et 2016

Version imprimable

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:

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.

08/09/2017, 16h24
tee_grandbois

Bonjour,

Citation:

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 ?
08/09/2017, 17h20
Invité

Bonjour,
Vas dans le menu->outils->références de vba et décoche toutes les libraires manquantes!
09/09/2017, 08h51
MakSLR

Citation:

Envoyé par tee_grandbois

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

Bonjour,

Je le fais sur un formulaire continue.
09/09/2017, 08h54
MakSLR

Citation:

Envoyé par dysorthographie

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

Bonjour,

J'essaye Lundi.
09/09/2017, 21h58
tee_grandbois

Citation:

Envoyé par MakSLR

Bonjour,

Je le fais sur un formulaire continue.

Bonsoir,
je faisais allusion au type de contrôle dans le formulaire (Textbox, ComboBox, Listbox ...)
11/09/2017, 10h52
MakSLR

Citation:

Envoyé par tee_grandbois

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.
11/09/2017, 10h54
MakSLR

Citation:

Envoyé par dysorthographie

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
11/09/2017, 15h07
tee_grandbois

bonjour,

Citation:

Envoyé par MakSLR

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.

Citation:

Envoyé par MakSLR

ç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.
20/09/2017, 14h58
MakSLR

Citation:

Envoyé par tee_grandbois

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)

Bonjour,

Citation:

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:

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