Discussion :

[jajoju]

Bonjour,

Dans j'ouvre mon formulaire , comment faire pour désactiver les flèches UP DOWN LEFT RIGHT ainsi que BACKSPACE en VBA

KeyCode ? KeysAscii ?

Private Sub Form_KeyPress(KeyAscii As Integer)

.................... ???

End Sub

ou d'autre chose ??

Merci

[marot_r]

Bonjour.

Je pense qu'ici

Disable Arrow Keys?
https://access-programmers.co.uk/for...ad.php?t=61874

tu vas trouver ton bonheur.

A+

[jajoju]

Bonjour,

Non, ça n'a pas l'air à marcher ... Les flèches sont encore actives et très fonctionnelles quand j'appuie dessus.


J'ai copié la procédure telle quelle. Evèvenement du formulaire : Sur touche appuyée

Merci

[marot_r]

Peux-tu poster le code que tu as actuellement juste pour être sur de partir de la même base.

A+

[jajoju]

Bonjour,
Voici le code ( copie /collé ici .... et copie/collé dans mon formulaire VBA )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   On Error GoTo Form_KeyDown_Err
   Select Case KeyCode
       Case vbKeyDown
            DoCmd.GoToRecord Record:=acNext
            KeyCode = 0
 
      Case vbKeyUp
           DoCmd.GoToRecord Record:=acPrevious
           KeyCode = 0
 
      Case Else
           'Ne rien faire
End Select
 
Form_KeyDown_Exit:
     Exit Sub
 
Form_KeyDown_Err:
     Select Case Err.Number
         Case adhcErrInvalidRow
             KeyCode = 0
 
         Case Else
             MsgBox "Error: " & Err.Description &  (" & Err.Number & ")"
      End Select
 
      Resume Form_KeyDown_Exit
End Sub

[marot_r]

Essaye :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   On Error GoTo Form_KeyDown_Err
   Select Case KeyCode
       Case vbKeyDown, vbKeyUp
           KeyCode =0
      Case Else
           'Ne rien faire
End Select
 
Form_KeyDown_Exit:
     Exit Sub
 
Form_KeyDown_Err:
     Select Case Err.Number
         Case adhcErrInvalidRow
             KeyCode = 0
 
         Case Else
             MsgBox "Error: " & Err.Description &  (" & Err.Number & ")"
      End Select
 
      Resume Form_KeyDown_Exit
End Sub

A+

[tee_grandbois]

Bonsoir jajoju,
voulez-vous vraiment désactiver complètement ces 5 touches ? Cela implique que vous n'utiliserez que la souris et la touche TAB pour les déplacements d'un contrôle à l'autre.
Le code actuel ne les désactive pas. Voici le code qui le fait, mais pour que cela fonctionne il faut d'abord positionner la propriété du formulaire "Aperçu des touches" à Oui :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Form_KeyDown_Err
Select Case KeyCode
Case vbKeyDown, vbKeyUp, vbKeyLeft, vbKeyRight, vbKeyBack
KeyCode = 0
Case Else
 
End Select
 
Form_KeyDown_Exit:
Exit Sub
 
Form_KeyDown_Err:
Select Case Err.Number
Case adhcErrInvalidRow
KeyCode = 0
Case Else
MsgBox "Error: " & Err.DESCRIPTION & _
" (" & Err.Number & ")"
End Select
Resume Form_KeyDown_Exit
End Sub

[jajoju]

Bonjour,

Non, aucun effet ... Les flèches fonctionnent allègrement ...

J'ai fait copie/collé de la procédure directement dans l'éditeur du formulaire avec l'évènement-formulaire : Sur Touche Appuyée

Merci

[marot_r]

En effet :

"Aperçu des touches" à Oui

J'avais oublié ce détail. Merci "tee_Grandbois"

A+

[jajoju]

Bonjour,

Aperçu des touches : Oui ???

Est-ce qu'il existe une propriété " Aperçu des touches " ?

J'ai beau cherché ...., je ne la vois pas

Merci

[tee_grandbois]

Dans l'onglet Evénement, tout en bas.
Pièce jointe 239732

[jajoju]

Bonjour,

Oui , je viens tout juste de la voir .... Tout à fait en bas ...

Je fais un autre essai

Merci

[jajoju]

Bonjour,

Non, aucun changement encore une fois .... Les flèches fonctionnent et le curseur se déplace partout sur l'écran en appuyant sur les flèches ( haut , bas , droite , gauche )

Merci

[tee_grandbois]

Non, cela doit fonctionner. Est-ce que la procédure événementielle est activée ?
Dans la négative il faut se positionner sur l'évènement "Sur touche appuyée" et cliquer sur les 3 petits points, on devrait voir apparaitre le code :

Pièce jointe 239748

[jajoju]

Bonjour !!

Oui , oui maintenant ça fonctionne !!! J'ai dû oublier une ligne ... je ne sais pas trop.

J'appuie sur les flèches et c'est "mort"

Merci encore !!!

Je continue mon apprentissage .... pendant qu'il neige dehors avec un moins 12

[jajoju]

Bonjour,

J'oubliais : si plus tard on veut les réactiver ( les flèches ) , on change KeyCode = 1 ???

Merci

[tee_grandbois]

J'oubliais : si plus tard on veut les réactiver ( les flèches )

meilleure solution, mettre le code en commentaire en mettant une apostrophe devant l'instruction :

Code :

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

' KeyCode = 0

ou alors :

Code :

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

KeyCode = KeyCode

[jajoju]

Bonjour,

Je veux qu' après une mise à jour d'un objet dans mon formulaire , je voudrais que les flèches redeviennent actives dans le même formulaire.

Comment rétablir les flèches comme "actives" plus tard dans le dit-formulaire ? Je suis bloqué là

Merci

[tee_grandbois]

Oui mais là ce n'est plus la même demande, il faudrait savoir sur quel évènement ou contexte on doit activer ou pas ce code. Il faudrait expliquer la demande dans le détail.

[jajoju]

Quand j'ouvre mon formulaire , les flèches sont désactivées ...

Par contre après avoir écrit du texte dans une zone de texte et que j'appuie sur 'RETURN' ... je voudrais que

les flèches redeviennent actives pour pouvoir écrire dans une autre zone de texte ... ( parce que j'ai besoin des flèches cette fois-ci )

Je sais que ça a l'air bizarre , mais j' ai pas le choix.

Merci