Bonjour,
J'ai un projet avec 3 fenêtres, fiche Article, Fiche Client et Fiche Fournisseur.
j’ai cepour les deux premières formulaire, le bouton Échappe marche correctement, mais dans le 3 ème formulaire (Fiche Fournisseur) avec le même code, le bouton Échappe
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyEscape: Unload Me Case vbKeyF3: Rech_Click End Select End Sub
ne marche pas, mais le bouton F3 marche correctement, même si je fait un point d'arrêt dans "select case" et je tape sur Echape, aucune action
ne se fait, comme il est inactive, mais si je tape F3, le programme se pointe dans "case vbKeyF3", si je teste dans les autres formulaire, l'action se fait, sauf dans fiche fournisseur.
Remarque: Si je tape Shift + Echape, l'action marche ( que dans fiche fournisseur)
Merci d'avance
Partager