OVH Cloud OVH Cloud

Intercepter CTRL+Z ???

6 réponses
Avatar
Didier Fraisse
Bonjour

je souhaiterais intercepter les séquences CTRL+Z est-ce possible
si oui comment ?

Merci de vos réponses (à venir)
Didier

6 réponses

Avatar
RaphK34
Salut,

via la macro Autokeys

@+

--
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------

"Didier Fraisse" a écrit dans le message de news: 419ca45b$0$31403$
| Bonjour
|
| je souhaiterais intercepter les séquences CTRL+Z est-ce possible
| si oui comment ?
|
| Merci de vos réponses (à venir)
| Didier
|
|
Avatar
Didier Fraisse
Salut,

via la macro Autokeys


Salut et merci de ta réponse

je ne connais rien aux macros sous access ( je n'utilise que VBA )

mon problème est le suivant

j'ai un bouton Btn_Undo dans mon formulaire
sur clic
Faire quelque chose...
docmd.runcommand accmdUndo

quand je clique sur le bouton tout est OK

si je fais CTRL+Z (íition Annuler) il me manque bien sur l'étape Faire
quelque chose...

comment Autokey peut-il m'aider ???

@+
Didier

Avatar
JMH
Salut
Essaie de voir l'événement "Sur Annulation" dans ton formulaire



"Didier Fraisse" a écrit dans le message de news:
419ca844$0$31410$
Salut,

via la macro Autokeys


Salut et merci de ta réponse

je ne connais rien aux macros sous access ( je n'utilise que VBA )

mon problème est le suivant

j'ai un bouton Btn_Undo dans mon formulaire
sur clic
Faire quelque chose...
docmd.runcommand accmdUndo

quand je clique sur le bouton tout est OK

si je fais CTRL+Z (íition Annuler) il me manque bien sur l'étape Faire
quelque chose...

comment Autokey peut-il m'aider ???

@+
Didier





Avatar
Didier Fraisse
salut

"JMH" a écrit dans le message de
news:Oi%
Salut
Essaie de voir l'événement "Sur Annulation" dans ton formulaire


j'ai beau chercher mais je ne trouve pas d'évènement "sur Annulation" dans
les propriétés du formulaire
je précise que je suis encore sous Access 2000

Merci

Avatar
RaphK34
Re,
Ne rien connaitre au macro, n'est pas une tare, mais je pense que deux macros demandent une "connaissance" de base. C'est:

Autoexec qui gère le démarrage de ta base (contournable par le démarrage auto d'un form)
Autokeys qui permet de controler l'appui sur certaines touches comme les touches de fonction par exemple.

En effet dans la macro Autokeys tu peux "diriger" l'appui sur Ctrl+Z (ou tout autre touche) vers un code spécifique ...


@+
--
--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------

"Didier Fraisse" a écrit dans le message de news: 419ca844$0$31410$
|> Salut,
| >
| > via la macro Autokeys
|
| Salut et merci de ta réponse
|
| je ne connais rien aux macros sous access ( je n'utilise que VBA )
|
| mon problème est le suivant
|
| j'ai un bouton Btn_Undo dans mon formulaire
| sur clic
| Faire quelque chose...
| docmd.runcommand accmdUndo
|
| quand je clique sur le bouton tout est OK
|
| si je fais CTRL+Z (íition Annuler) il me manque bien sur l'étape Faire
| quelque chose...
|
| comment Autokey peut-il m'aider ???
|
| @+
| Didier
|
|
Avatar
Didier Fraisse
"Didier Fraisse" a écrit dans le message de
news:419ca844$0$31410$
mon problème est le suivant

j'ai un bouton Btn_Undo dans mon formulaire
sur clic
Faire quelque chose...
docmd.runcommand accmdUndo

quand je clique sur le bouton tout est OK

si je fais CTRL+Z (íition Annuler) il me manque bien sur l'étape Faire
quelque chose...

comment Autokey peut-il m'aider ???

@+
Didier


Bon j'ai avancé un petit peu dans la résolution de mon problème

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim entMAJEnfoncée As Integer, entAltEnfoncée As Integer
Dim entCTRLEnfoncée As Integer

' Utilise les masques de bits pour déterminer quelle touche a été
enfoncée.
entMAJEnfoncée = (Shift And acShiftMask) > 0
entAltEnfoncée = (Shift And acAltMask) > 0
entCTRLEnfoncée = (Shift And acCtrlMask) > 0

Select Case KeyCode
Case vbKeyZ
KeyCode = 0 ' Annule l'action par défaut
If entCTRLEnfoncée Then btn_Undo_Click <<<<<<<<<<<<<<
Case Else
End Select
End Sub

Maintenant le comportement est identique si
- je clique sur mon bouton annulation
- j'utilise le raccourci clavier CTRL+Z
mais hélas pas si je sélectionne Edition + Annuler dans la barre de menu !!

une petite idée pour terminer ??

Merci d'avance
Didier