[AC-2007] Déplacement entre enregistrements : PAGEUP / PAGEDOWN [Résolu]

[junty]

Bonjour,

J'ai un formulaire d'édition. Je souhaite que le formulaire s'ouvre sur un enregistrement vierge et qu'il soit impossible de se déplacer entre enregistrements SAUF en utilisant une liste déroulante qui permet de sélectionner le bon enregistrement.

J'ai donc masqué les boutons de déplacements, dans les propriétés du formulaire "Entrée données"=NON, "Ajout autorisé"=NON, "Modif autorisé"=OUI,"Cycle"=Enregistrement en cours et j'ai ajouté :

Code :

DoCmd.GoToRecord , , acNewRec

dans Form_Load.

Tout est OK sauf que je peux toujours me déplacer en appuyant sur PAGEDOWN ou PAGEUP et je voudrais interdire ceci pour forcer l'utilisateur à passer par la liste déroulante.

Comment faire ?

Merci d'avance pour votre réponse.

Junty

[Domi2]

Bonjour,

Tu mets la propriété Aperçu des touches du formulaire à Oui et sur l'événement Sur touche appuyée, ce code.

Code :

1
2
3
4
5
6
7
8
9
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
    If Keycode = vbKeyPageUp or Keycode = vbKeyPageDown then 
 
        Keycode = 0 
 
    End if 
 
End Sub

Domi2

[junty]

super ca marche !!

Merci Domi2.

PS: Juste à titre informatif, j'ai mis la fonction dans le Keydown du form et de la liste déroulante.