Contrôle des touches dans un sous-formulaire

[Jean-Jacques Antille]

Bonjour!
Je sais contrôler les touches Crtl+F4 et Alt+F4 dans un formulaire, mais,
par contre, je ne parviens pas à contrôler les touches Alt+F4 dans un
sous-formulaire dans le but d'empêcher l'utilisateur de fermer le formulaire
et son sous-formulaire au moyen de ces touches, c'est-à-dire que si le focus
est dans le sous-formulaire, l'utilisateur peut fermer le formulaire au
moyen de ces touches. Quelqu'un aurait-il un exemple à me proposer?
Merci de vos réponses.

--
Cordiales salutations.
Jean-Jacques

http://www.webmister.ch/school/accueil.asp

078 665 75 74
027 458 40 61

[3stone]

Salut,

Jean-Jacques Antille
>... dans le but d'empêcher l'utilisateur de fermer le formulaire

Une méthode simple pour contourner tout cela...

Dans ton form, tu déclare un boolean :

Option Compare Database
Option Explicit
Dim NoCloseForm As Boolean

Sur ouverture, tu fait :
Private Sub Form_Open(Cancel As Integer)
NoCloseForm = True

Sur libération tu mets :
Private Sub Form_Unload(Cancel As Integer)
Cancel = NoCloseForm

Et dans le code de ton bouton de fermeture :
Private Sub bt_Fermer_Click()
NoCloseForm = False
DoCmd.Close acForm, Me.Name, acSaveNo

Voila... on peut seulement fermer par ton bouton.

--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------

[Jean-Jacques Antille]

Merci beaucoup de ta réponse.
Bon week-end.

--
Cordiales salutations.
Jean-Jacques

http://www.webmister.ch/school/accueil.asp

078 665 75 74
027 458 40 61

"3stone" <3st...@skynet.be> a écrit dans le message de news:
uvG5xWw7...@TK2MSFTNGP11.phx.gbl...