Discussion :

[nomade333]

Bonsoir,
Je souhaiterais fermer un formulaire par appui sur la "Echappe"
Est ce que je dois utiliser la commande "vbkeyEscape" si oui comment?
Merci par avance

[FreeAccess]

Bonjour,

....fermer un formulaire par appui sur la "Echappe"

..en effet tu peux utiliser la commande "vbkeyEscape" de cette façon...utilisation de l'événement "Sur touche appuyée" du Formulaire...

Code :

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

1
2
3
4
5
6
7
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Sortie par touche ESCAPE
'Propriété Apercu touche = OUI
If KeyCode = vbKeyEscape Then
    DoCmd.Close
End If
End Sub

......aussi simple......

[nomade333]

Merci

[thomcat]

Je viens d'essayer ce code, mais lorsque j'appuie sur la dite touche ça ne fonctionne pas. Voici mon code :

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
 
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
MsgBox ("Toto1")
If (KeyCode = vbKeyEscape) Then
    Call fermer
End If
 
End Sub
 
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
MsgBox ("Toto2")
If (KeyAscii = vbKeyEscape) Then
    Call fermer
End If
 
End Sub
 
Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
MsgBox ("Toto3")
If (KeyCode = vbKeyEscape) Then
    Call fermer
End If
End Sub
 
 
Public Sub fermer()
    unload Me
End Sub

[FreeAccess]

Bonjour...

As-tu bien vérifié que la propriété du formulaire ==> "Apercu touche = oui".......

...et utilisation de l'événement "Sur touche appuyée" du Formulaire...(Private Sub Form_KeyDown....)

[EDIT]...Sinon évite de poser une question sur un post déjà ......au lieu de ça tu crée un nouveau post et tu fais référence au post en question....

[thomcat]

Dans les propriétés de mon formulaire de je n'ai pas Apercu touche = oui ou Keypreview = True (Je travaille sous Office 2003 : Excel). Je ne vois pas comment faire ?

[FreeAccess]

.......Pose peut-être directement ta demande dans le Forum "Excel"...ici tu es sous "Access"..