Bonsoir à tous,
J'ai une base "journal de bord" très pratique, où je note, via un
formulaire, sur un champ mémo toutes les infos professionnelles du jour.
Seul problème, en cours de saisie, si je tape sur Escape, je perd toute la
saisie. Comment supprimer cette touche, à part avec un maillet et un cis eau?
Je verrais bien une macro qui déclencherait une boite message OUI/NON qu i
annulerait l'action, mais je n'arrive pas à l'écrire. Ou une procédu re VBA,
mais là je suis balbutie encore plus.
Merci de votre aide !
kolele
Bonsoir à tous,
J'ai une base "journal de bord" très pratique, où je note, via un
formulaire, sur un champ mémo toutes les infos professionnelles du jour.
Seul problème, en cours de saisie, si je tape sur Escape, je perd toute la
saisie. Comment supprimer cette touche, à part avec un maillet et un cis eau?
Je verrais bien une macro qui déclencherait une boite message OUI/NON qu i
annulerait l'action, mais je n'arrive pas à l'écrire. Ou une procédu re VBA,
mais là je suis balbutie encore plus.
Merci de votre aide !
kolele
Bonsoir à tous,
J'ai une base "journal de bord" très pratique, où je note, via un
formulaire, sur un champ mémo toutes les infos professionnelles du jour.
Seul problème, en cours de saisie, si je tape sur Escape, je perd toute la
saisie. Comment supprimer cette touche, à part avec un maillet et un cis eau?
Je verrais bien une macro qui déclencherait une boite message OUI/NON qu i
annulerait l'action, mais je n'arrive pas à l'écrire. Ou une procédu re VBA,
mais là je suis balbutie encore plus.
Merci de votre aide !
kolele
bonjour,
une solution VBA consiste à intercepter la touche Escape sur
l'évènement 'Touche Appuyée' dans le mémo.
Ca donnerait un truc comme ceci :
Private Sub memo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
End Sub
Philippe
On 30 déc, 23:48, Kolele (pitiépasdespam)> wrote:Bonsoir à tous,
J'ai une base "journal de bord" très pratique, où je note, via un
formulaire, sur un champ mémo toutes les infos professionnelles du jour.
Seul problème, en cours de saisie, si je tape sur Escape, je perd toute la
saisie. Comment supprimer cette touche, à part avec un maillet et un ciseau?
Je verrais bien une macro qui déclencherait une boite message OUI/NON qui
annulerait l'action, mais je n'arrive pas à l'écrire. Ou une procédure VBA,
mais là je suis balbutie encore plus.
Merci de votre aide !
kolele
bonjour,
une solution VBA consiste à intercepter la touche Escape sur
l'évènement 'Touche Appuyée' dans le mémo.
Ca donnerait un truc comme ceci :
Private Sub memo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
End Sub
Philippe
On 30 déc, 23:48, Kolele <kol...@tiscali.fr.(pitiépasdespam)> wrote:
Bonsoir à tous,
J'ai une base "journal de bord" très pratique, où je note, via un
formulaire, sur un champ mémo toutes les infos professionnelles du jour.
Seul problème, en cours de saisie, si je tape sur Escape, je perd toute la
saisie. Comment supprimer cette touche, à part avec un maillet et un ciseau?
Je verrais bien une macro qui déclencherait une boite message OUI/NON qui
annulerait l'action, mais je n'arrive pas à l'écrire. Ou une procédure VBA,
mais là je suis balbutie encore plus.
Merci de votre aide !
kolele
bonjour,
une solution VBA consiste à intercepter la touche Escape sur
l'évènement 'Touche Appuyée' dans le mémo.
Ca donnerait un truc comme ceci :
Private Sub memo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
End Sub
Philippe
On 30 déc, 23:48, Kolele (pitiépasdespam)> wrote:Bonsoir à tous,
J'ai une base "journal de bord" très pratique, où je note, via un
formulaire, sur un champ mémo toutes les infos professionnelles du jour.
Seul problème, en cours de saisie, si je tape sur Escape, je perd toute la
saisie. Comment supprimer cette touche, à part avec un maillet et un ciseau?
Je verrais bien une macro qui déclencherait une boite message OUI/NON qui
annulerait l'action, mais je n'arrive pas à l'écrire. Ou une procédure VBA,
mais là je suis balbutie encore plus.
Merci de votre aide !
kolele
Philippe, désolé d'etre maladroit : une fois placé le code dans le module, je
mets quoi dans l'evènement Touche appuyée du mémo, pour appeler la procédure
? chuis en train de bosser le VBA, mais ça rentre pas vite.
Merci
koleleune solution VBA consiste à intercepter la touche Escape sur
l'évènement 'Touche Appuyée' dans le mémo.
Ca donnerait un truc comme ceci :
Private Sub memo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
End Sub
Philippe, désolé d'etre maladroit : une fois placé le code dans le module, je
mets quoi dans l'evènement Touche appuyée du mémo, pour appeler la procédure
? chuis en train de bosser le VBA, mais ça rentre pas vite.
Merci
kolele
une solution VBA consiste à intercepter la touche Escape sur
l'évènement 'Touche Appuyée' dans le mémo.
Ca donnerait un truc comme ceci :
Private Sub memo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
End Sub
Philippe, désolé d'etre maladroit : une fois placé le code dans le module, je
mets quoi dans l'evènement Touche appuyée du mémo, pour appeler la procédure
? chuis en train de bosser le VBA, mais ça rentre pas vite.
Merci
koleleune solution VBA consiste à intercepter la touche Escape sur
l'évènement 'Touche Appuyée' dans le mémo.
Ca donnerait un truc comme ceci :
Private Sub memo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
End Sub
Bonjour Kolele !
Je me permets d'intervenir. En fait, le code proposé par Philippe ne doit pas être mis dans un module. Dans les propriétés de ton mémo , tu vas dans l'onglet "Evenements", tu sélectionnes la ligne "Sur touc he appuyée", puis "Procédure évènementielle", tu ouvres l'édite ur VBA et tu copies simplement :
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos modification s ?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
dans l'évènement affiché.Philippe, désolé d'etre maladroit : une fois placé le code dans le module, je
mets quoi dans l'evènement Touche appuyée du mémo, pour appeler la procédure
? chuis en train de bosser le VBA, mais ça rentre pas vite.
Merci
koleleune solution VBA consiste à intercepter la touche Escape sur
l'évènement 'Touche Appuyée' dans le mémo.
Ca donnerait un truc comme ceci :
Private Sub memo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
End Sub
Bonjour Kolele !
Je me permets d'intervenir. En fait, le code proposé par Philippe ne doit pas être mis dans un module. Dans les propriétés de ton mémo , tu vas dans l'onglet "Evenements", tu sélectionnes la ligne "Sur touc he appuyée", puis "Procédure évènementielle", tu ouvres l'édite ur VBA et tu copies simplement :
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos modification s ?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
dans l'évènement affiché.
Philippe, désolé d'etre maladroit : une fois placé le code dans le module, je
mets quoi dans l'evènement Touche appuyée du mémo, pour appeler la procédure
? chuis en train de bosser le VBA, mais ça rentre pas vite.
Merci
kolele
une solution VBA consiste à intercepter la touche Escape sur
l'évènement 'Touche Appuyée' dans le mémo.
Ca donnerait un truc comme ceci :
Private Sub memo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
End Sub
Bonjour Kolele !
Je me permets d'intervenir. En fait, le code proposé par Philippe ne doit pas être mis dans un module. Dans les propriétés de ton mémo , tu vas dans l'onglet "Evenements", tu sélectionnes la ligne "Sur touc he appuyée", puis "Procédure évènementielle", tu ouvres l'édite ur VBA et tu copies simplement :
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos modification s ?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
dans l'évènement affiché.Philippe, désolé d'etre maladroit : une fois placé le code dans le module, je
mets quoi dans l'evènement Touche appuyée du mémo, pour appeler la procédure
? chuis en train de bosser le VBA, mais ça rentre pas vite.
Merci
koleleune solution VBA consiste à intercepter la touche Escape sur
l'évènement 'Touche Appuyée' dans le mémo.
Ca donnerait un truc comme ceci :
Private Sub memo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
End Sub
Bonjour,
Si je peux me permettre, des fois que je ne revienne pas ...
Une fois que "Sur touche appuyée" fonctionnera, ça serait une bonne idée
aussi de s'intéresser à "Sur annulation" (du même contrôle).
En effet, on peut aussi annuler une saisie autrement que par la touche
Echappement.
Si on gère "Sur annulation" on n'a plus besoin d'intercepter la touche,
mais ce sera probablement plus clair d'aller au bout de la démarche
entamée, avant de reprendre ce que je viens de dire. Donc, je me retire
sur la pointe des pieds, et je laisse l'initiative aux gens qui ont démarré.
________________________________________________
Thierry (ze Titi) a écrit, le 31/12/2007 14:31 :Bonjour Kolele !
Je me permets d'intervenir. En fait, le code proposé par Philippe ne doit pas être mis dans un module. Dans les propriétés de ton mémo, tu vas dans l'onglet "Evenements", tu sélectionnes la ligne "Sur touche appuyée", puis "Procédure évènementielle", tu ouvres l'éditeur VBA et tu copies simplement :
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
dans l'évènement affiché.Philippe, désolé d'etre maladroit : une fois placé le code dans le module, je
mets quoi dans l'evènement Touche appuyée du mémo, pour appeler la procédure
? chuis en train de bosser le VBA, mais ça rentre pas vite.
Merci
koleleune solution VBA consiste à intercepter la touche Escape sur
l'évènement 'Touche Appuyée' dans le mémo.
Ca donnerait un truc comme ceci :
Private Sub memo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
End Sub
Bonjour,
Si je peux me permettre, des fois que je ne revienne pas ...
Une fois que "Sur touche appuyée" fonctionnera, ça serait une bonne idée
aussi de s'intéresser à "Sur annulation" (du même contrôle).
En effet, on peut aussi annuler une saisie autrement que par la touche
Echappement.
Si on gère "Sur annulation" on n'a plus besoin d'intercepter la touche,
mais ce sera probablement plus clair d'aller au bout de la démarche
entamée, avant de reprendre ce que je viens de dire. Donc, je me retire
sur la pointe des pieds, et je laisse l'initiative aux gens qui ont démarré.
________________________________________________
Thierry (ze Titi) a écrit, le 31/12/2007 14:31 :
Bonjour Kolele !
Je me permets d'intervenir. En fait, le code proposé par Philippe ne doit pas être mis dans un module. Dans les propriétés de ton mémo, tu vas dans l'onglet "Evenements", tu sélectionnes la ligne "Sur touche appuyée", puis "Procédure évènementielle", tu ouvres l'éditeur VBA et tu copies simplement :
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
dans l'évènement affiché.
Philippe, désolé d'etre maladroit : une fois placé le code dans le module, je
mets quoi dans l'evènement Touche appuyée du mémo, pour appeler la procédure
? chuis en train de bosser le VBA, mais ça rentre pas vite.
Merci
kolele
une solution VBA consiste à intercepter la touche Escape sur
l'évènement 'Touche Appuyée' dans le mémo.
Ca donnerait un truc comme ceci :
Private Sub memo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
End Sub
Bonjour,
Si je peux me permettre, des fois que je ne revienne pas ...
Une fois que "Sur touche appuyée" fonctionnera, ça serait une bonne idée
aussi de s'intéresser à "Sur annulation" (du même contrôle).
En effet, on peut aussi annuler une saisie autrement que par la touche
Echappement.
Si on gère "Sur annulation" on n'a plus besoin d'intercepter la touche,
mais ce sera probablement plus clair d'aller au bout de la démarche
entamée, avant de reprendre ce que je viens de dire. Donc, je me retire
sur la pointe des pieds, et je laisse l'initiative aux gens qui ont démarré.
________________________________________________
Thierry (ze Titi) a écrit, le 31/12/2007 14:31 :Bonjour Kolele !
Je me permets d'intervenir. En fait, le code proposé par Philippe ne doit pas être mis dans un module. Dans les propriétés de ton mémo, tu vas dans l'onglet "Evenements", tu sélectionnes la ligne "Sur touche appuyée", puis "Procédure évènementielle", tu ouvres l'éditeur VBA et tu copies simplement :
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
dans l'évènement affiché.Philippe, désolé d'etre maladroit : une fois placé le code dans le module, je
mets quoi dans l'evènement Touche appuyée du mémo, pour appeler la procédure
? chuis en train de bosser le VBA, mais ça rentre pas vite.
Merci
koleleune solution VBA consiste à intercepter la touche Escape sur
l'évènement 'Touche Appuyée' dans le mémo.
Ca donnerait un truc comme ceci :
Private Sub memo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
End Sub
ça maaarche ! ça fait des mois que je cherchais !
GLOOPS, le truc "sur annulation", tu le gères comment ? ça me protég erait
contre les CTRL Z intempestifs ? si tu pouvais revenir avec ton code sur l a
pointe des pieds, je suis preneur !
Auriez-vous un manuel, une méthode digeste pour progresser en VBA pour
ACCESS ? j'en suis à ma troisième tentative infructueuse.
merci à tous et bon réveillon.
kolele.Bonjour,
Si je peux me permettre, des fois que je ne revienne pas ...
Une fois que "Sur touche appuyée" fonctionnera, ça serait une bonne idée
aussi de s'intéresser à "Sur annulation" (du même contrôle).
En effet, on peut aussi annuler une saisie autrement que par la touche
Echappement.
Si on gère "Sur annulation" on n'a plus besoin d'intercepter la touche ,
mais ce sera probablement plus clair d'aller au bout de la démarche
entamée, avant de reprendre ce que je viens de dire. Donc, je me retir e
sur la pointe des pieds, et je laisse l'initiative aux gens qui ont dé marré.
________________________________________________
Thierry (ze Titi) a écrit, le 31/12/2007 14:31 :Bonjour Kolele !
Je me permets d'intervenir. En fait, le code proposé par Philippe ne doit pas être mis dans un module. Dans les propriétés de ton mémo, tu vas dans l'onglet "Evenements", tu sélectionnes la ligne "Sur touche ap puyée", puis "Procédure évènementielle", tu ouvres l'éditeur VBA e t tu copies simplement :
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos modif ications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "Confirmat ion...") = vbNo Then
KeyCode = 0
End If
End If
dans l'évènement affiché.Philippe, désolé d'etre maladroit : une fois placé le code dans le module, je
mets quoi dans l'evènement Touche appuyée du mémo, pour appeler la procédure
? chuis en train de bosser le VBA, mais ça rentre pas vite.
Merci
koleleune solution VBA consiste à intercepter la touche Escape sur
l'évènement 'Touche Appuyée' dans le mémo.
Ca donnerait un truc comme ceci :
Private Sub memo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuest ion,
"Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
ça maaarche ! ça fait des mois que je cherchais !
GLOOPS, le truc "sur annulation", tu le gères comment ? ça me protég erait
contre les CTRL Z intempestifs ? si tu pouvais revenir avec ton code sur l a
pointe des pieds, je suis preneur !
Auriez-vous un manuel, une méthode digeste pour progresser en VBA pour
ACCESS ? j'en suis à ma troisième tentative infructueuse.
merci à tous et bon réveillon.
kolele.
Bonjour,
Si je peux me permettre, des fois que je ne revienne pas ...
Une fois que "Sur touche appuyée" fonctionnera, ça serait une bonne idée
aussi de s'intéresser à "Sur annulation" (du même contrôle).
En effet, on peut aussi annuler une saisie autrement que par la touche
Echappement.
Si on gère "Sur annulation" on n'a plus besoin d'intercepter la touche ,
mais ce sera probablement plus clair d'aller au bout de la démarche
entamée, avant de reprendre ce que je viens de dire. Donc, je me retir e
sur la pointe des pieds, et je laisse l'initiative aux gens qui ont dé marré.
________________________________________________
Thierry (ze Titi) a écrit, le 31/12/2007 14:31 :
Bonjour Kolele !
Je me permets d'intervenir. En fait, le code proposé par Philippe ne doit pas être mis dans un module. Dans les propriétés de ton mémo, tu vas dans l'onglet "Evenements", tu sélectionnes la ligne "Sur touche ap puyée", puis "Procédure évènementielle", tu ouvres l'éditeur VBA e t tu copies simplement :
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos modif ications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "Confirmat ion...") = vbNo Then
KeyCode = 0
End If
End If
dans l'évènement affiché.
Philippe, désolé d'etre maladroit : une fois placé le code dans le module, je
mets quoi dans l'evènement Touche appuyée du mémo, pour appeler la procédure
? chuis en train de bosser le VBA, mais ça rentre pas vite.
Merci
kolele
une solution VBA consiste à intercepter la touche Escape sur
l'évènement 'Touche Appuyée' dans le mémo.
Ca donnerait un truc comme ceci :
Private Sub memo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuest ion,
"Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
ça maaarche ! ça fait des mois que je cherchais !
GLOOPS, le truc "sur annulation", tu le gères comment ? ça me protég erait
contre les CTRL Z intempestifs ? si tu pouvais revenir avec ton code sur l a
pointe des pieds, je suis preneur !
Auriez-vous un manuel, une méthode digeste pour progresser en VBA pour
ACCESS ? j'en suis à ma troisième tentative infructueuse.
merci à tous et bon réveillon.
kolele.Bonjour,
Si je peux me permettre, des fois que je ne revienne pas ...
Une fois que "Sur touche appuyée" fonctionnera, ça serait une bonne idée
aussi de s'intéresser à "Sur annulation" (du même contrôle).
En effet, on peut aussi annuler une saisie autrement que par la touche
Echappement.
Si on gère "Sur annulation" on n'a plus besoin d'intercepter la touche ,
mais ce sera probablement plus clair d'aller au bout de la démarche
entamée, avant de reprendre ce que je viens de dire. Donc, je me retir e
sur la pointe des pieds, et je laisse l'initiative aux gens qui ont dé marré.
________________________________________________
Thierry (ze Titi) a écrit, le 31/12/2007 14:31 :Bonjour Kolele !
Je me permets d'intervenir. En fait, le code proposé par Philippe ne doit pas être mis dans un module. Dans les propriétés de ton mémo, tu vas dans l'onglet "Evenements", tu sélectionnes la ligne "Sur touche ap puyée", puis "Procédure évènementielle", tu ouvres l'éditeur VBA e t tu copies simplement :
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos modif ications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "Confirmat ion...") = vbNo Then
KeyCode = 0
End If
End If
dans l'évènement affiché.Philippe, désolé d'etre maladroit : une fois placé le code dans le module, je
mets quoi dans l'evènement Touche appuyée du mémo, pour appeler la procédure
? chuis en train de bosser le VBA, mais ça rentre pas vite.
Merci
koleleune solution VBA consiste à intercepter la touche Escape sur
l'évènement 'Touche Appuyée' dans le mémo.
Ca donnerait un truc comme ceci :
Private Sub memo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuest ion,
"Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
bonjour et bonne année,
En effet, une deuxième solution plus académique consiste à utiliser
l'évènement "Sur annulation" qui intercepte l'annulation des
modifications mais ne réagit pas sur un Ctrl+Z.
Pour intercepter Escape et Ctrl+Z, on peut développer le code initial
ainsi :
If KeyCode = vbKeyEscape Or (KeyCode = vbKeyZ And Shift = acCtrlMask)
Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation...") = vbNo Then
KeyCode = 0
ElseIf KeyCode = vbKeyZ Then
KeyCode = vbKeyEscape 'Si Ctrl+Z on retourne le code Escape par
équivalence... Autre possibilité plus propre ?
End If
End If
Philippe
On 31 déc 2007, 18:14, Kolele (pitiépasdespam)>
wrote:ça maaarche ! ça fait des mois que je cherchais !
GLOOPS, le truc "sur annulation", tu le gères comment ? ça me protégerait
contre les CTRL Z intempestifs ? si tu pouvais revenir avec ton code sur la
pointe des pieds, je suis preneur !
Auriez-vous un manuel, une méthode digeste pour progresser en VBA pour
ACCESS ? j'en suis à ma troisième tentative infructueuse.
merci à tous et bon réveillon.
kolele.Bonjour,
Si je peux me permettre, des fois que je ne revienne pas ...
Une fois que "Sur touche appuyée" fonctionnera, ça serait une bonne idée
aussi de s'intéresser à "Sur annulation" (du même contrôle).
En effet, on peut aussi annuler une saisie autrement que par la touche
Echappement.
Si on gère "Sur annulation" on n'a plus besoin d'intercepter la touche,
mais ce sera probablement plus clair d'aller au bout de la démarche
entamée, avant de reprendre ce que je viens de dire. Donc, je me retire
sur la pointe des pieds, et je laisse l'initiative aux gens qui ont démarré.
________________________________________________
Thierry (ze Titi) a écrit, le 31/12/2007 14:31 :Bonjour Kolele !
Je me permets d'intervenir. En fait, le code proposé par Philippe ne doit pas être mis dans un module. Dans les propriétés de ton mémo, tu vas dans l'onglet "Evenements", tu sélectionnes la ligne "Sur touche appuyée", puis "Procédure évènementielle", tu ouvres l'éditeur VBA et tu copies simplement :
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
dans l'évènement affiché.Philippe, désolé d'etre maladroit : une fois placé le code dans le module, je
mets quoi dans l'evènement Touche appuyée du mémo, pour appeler la procédure
? chuis en train de bosser le VBA, mais ça rentre pas vite.
Merci
koleleune solution VBA consiste à intercepter la touche Escape sur
l'évènement 'Touche Appuyée' dans le mémo.
Ca donnerait un truc comme ceci :
Private Sub memo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
bonjour et bonne année,
En effet, une deuxième solution plus académique consiste à utiliser
l'évènement "Sur annulation" qui intercepte l'annulation des
modifications mais ne réagit pas sur un Ctrl+Z.
Pour intercepter Escape et Ctrl+Z, on peut développer le code initial
ainsi :
If KeyCode = vbKeyEscape Or (KeyCode = vbKeyZ And Shift = acCtrlMask)
Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation...") = vbNo Then
KeyCode = 0
ElseIf KeyCode = vbKeyZ Then
KeyCode = vbKeyEscape 'Si Ctrl+Z on retourne le code Escape par
équivalence... Autre possibilité plus propre ?
End If
End If
Philippe
On 31 déc 2007, 18:14, Kolele <kol...@tiscali.fr.(pitiépasdespam)>
wrote:
ça maaarche ! ça fait des mois que je cherchais !
GLOOPS, le truc "sur annulation", tu le gères comment ? ça me protégerait
contre les CTRL Z intempestifs ? si tu pouvais revenir avec ton code sur la
pointe des pieds, je suis preneur !
Auriez-vous un manuel, une méthode digeste pour progresser en VBA pour
ACCESS ? j'en suis à ma troisième tentative infructueuse.
merci à tous et bon réveillon.
kolele.
Bonjour,
Si je peux me permettre, des fois que je ne revienne pas ...
Une fois que "Sur touche appuyée" fonctionnera, ça serait une bonne idée
aussi de s'intéresser à "Sur annulation" (du même contrôle).
En effet, on peut aussi annuler une saisie autrement que par la touche
Echappement.
Si on gère "Sur annulation" on n'a plus besoin d'intercepter la touche,
mais ce sera probablement plus clair d'aller au bout de la démarche
entamée, avant de reprendre ce que je viens de dire. Donc, je me retire
sur la pointe des pieds, et je laisse l'initiative aux gens qui ont démarré.
________________________________________________
Thierry (ze Titi) a écrit, le 31/12/2007 14:31 :
Bonjour Kolele !
Je me permets d'intervenir. En fait, le code proposé par Philippe ne doit pas être mis dans un module. Dans les propriétés de ton mémo, tu vas dans l'onglet "Evenements", tu sélectionnes la ligne "Sur touche appuyée", puis "Procédure évènementielle", tu ouvres l'éditeur VBA et tu copies simplement :
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
dans l'évènement affiché.
Philippe, désolé d'etre maladroit : une fois placé le code dans le module, je
mets quoi dans l'evènement Touche appuyée du mémo, pour appeler la procédure
? chuis en train de bosser le VBA, mais ça rentre pas vite.
Merci
kolele
une solution VBA consiste à intercepter la touche Escape sur
l'évènement 'Touche Appuyée' dans le mémo.
Ca donnerait un truc comme ceci :
Private Sub memo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
bonjour et bonne année,
En effet, une deuxième solution plus académique consiste à utiliser
l'évènement "Sur annulation" qui intercepte l'annulation des
modifications mais ne réagit pas sur un Ctrl+Z.
Pour intercepter Escape et Ctrl+Z, on peut développer le code initial
ainsi :
If KeyCode = vbKeyEscape Or (KeyCode = vbKeyZ And Shift = acCtrlMask)
Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation...") = vbNo Then
KeyCode = 0
ElseIf KeyCode = vbKeyZ Then
KeyCode = vbKeyEscape 'Si Ctrl+Z on retourne le code Escape par
équivalence... Autre possibilité plus propre ?
End If
End If
Philippe
On 31 déc 2007, 18:14, Kolele (pitiépasdespam)>
wrote:ça maaarche ! ça fait des mois que je cherchais !
GLOOPS, le truc "sur annulation", tu le gères comment ? ça me protégerait
contre les CTRL Z intempestifs ? si tu pouvais revenir avec ton code sur la
pointe des pieds, je suis preneur !
Auriez-vous un manuel, une méthode digeste pour progresser en VBA pour
ACCESS ? j'en suis à ma troisième tentative infructueuse.
merci à tous et bon réveillon.
kolele.Bonjour,
Si je peux me permettre, des fois que je ne revienne pas ...
Une fois que "Sur touche appuyée" fonctionnera, ça serait une bonne idée
aussi de s'intéresser à "Sur annulation" (du même contrôle).
En effet, on peut aussi annuler une saisie autrement que par la touche
Echappement.
Si on gère "Sur annulation" on n'a plus besoin d'intercepter la touche,
mais ce sera probablement plus clair d'aller au bout de la démarche
entamée, avant de reprendre ce que je viens de dire. Donc, je me retire
sur la pointe des pieds, et je laisse l'initiative aux gens qui ont démarré.
________________________________________________
Thierry (ze Titi) a écrit, le 31/12/2007 14:31 :Bonjour Kolele !
Je me permets d'intervenir. En fait, le code proposé par Philippe ne doit pas être mis dans un module. Dans les propriétés de ton mémo, tu vas dans l'onglet "Evenements", tu sélectionnes la ligne "Sur touche appuyée", puis "Procédure évènementielle", tu ouvres l'éditeur VBA et tu copies simplement :
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
dans l'évènement affiché.Philippe, désolé d'etre maladroit : une fois placé le code dans le module, je
mets quoi dans l'evènement Touche appuyée du mémo, pour appeler la procédure
? chuis en train de bosser le VBA, mais ça rentre pas vite.
Merci
koleleune solution VBA consiste à intercepter la touche Escape sur
l'évènement 'Touche Appuyée' dans le mémo.
Ca donnerait un truc comme ceci :
Private Sub memo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If MsgBox("Souhaitez-vous réellement abandonner vos
modifications ?", _
vbYesNo + vbDefaultButton2 + vbQuestion,
"Confirmation...") = vbNo Then
KeyCode = 0
End If
End If
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Désolé, il reste une dernière faille dans le risque d'écrasement de mes
champs mémo : lorsque le curseur arrive sur le contrôle, le champ est
entièrement en surbrillance. Si je suis pressé, je réécris dessus et perd les
infos précédentes.
Je n'arrive pas à trouver la propriété permettant de placer le curseur à
l'intérieur du champ, prêt à ajouter du texte sans effacer l'ancien, en
quelque sorte.
L'idéal serait que les autres contrôles restent totalement en surbrillance,
donc de paramétrer seulement mon champ mémo.
Merci à tous et bonne gueule de bois.
Désolé, il reste une dernière faille dans le risque d'écrasement de mes
champs mémo : lorsque le curseur arrive sur le contrôle, le champ est
entièrement en surbrillance. Si je suis pressé, je réécris dessus et perd les
infos précédentes.
Je n'arrive pas à trouver la propriété permettant de placer le curseur à
l'intérieur du champ, prêt à ajouter du texte sans effacer l'ancien, en
quelque sorte.
L'idéal serait que les autres contrôles restent totalement en surbrillance,
donc de paramétrer seulement mon champ mémo.
Merci à tous et bonne gueule de bois.
Désolé, il reste une dernière faille dans le risque d'écrasement de mes
champs mémo : lorsque le curseur arrive sur le contrôle, le champ est
entièrement en surbrillance. Si je suis pressé, je réécris dessus et perd les
infos précédentes.
Je n'arrive pas à trouver la propriété permettant de placer le curseur à
l'intérieur du champ, prêt à ajouter du texte sans effacer l'ancien, en
quelque sorte.
L'idéal serait que les autres contrôles restent totalement en surbrillance,
donc de paramétrer seulement mon champ mémo.
Merci à tous et bonne gueule de bois.
ça maaarche ! ça fait des mois que je cherchais !
GLOOPS, le truc "sur annulation", tu le gères comment ? ça me protégerait
contre les CTRL Z intempestifs ? si tu pouvais revenir avec ton code su r la
pointe des pieds, je suis preneur !
Auriez-vous un manuel, une méthode digeste pour progresser en VBA pour
ACCESS ? j'en suis à ma troisième tentative infructueuse.
merci à tous et bon réveillon.
ça maaarche ! ça fait des mois que je cherchais !
GLOOPS, le truc "sur annulation", tu le gères comment ? ça me protégerait
contre les CTRL Z intempestifs ? si tu pouvais revenir avec ton code su r la
pointe des pieds, je suis preneur !
Auriez-vous un manuel, une méthode digeste pour progresser en VBA pour
ACCESS ? j'en suis à ma troisième tentative infructueuse.
merci à tous et bon réveillon.
ça maaarche ! ça fait des mois que je cherchais !
GLOOPS, le truc "sur annulation", tu le gères comment ? ça me protégerait
contre les CTRL Z intempestifs ? si tu pouvais revenir avec ton code su r la
pointe des pieds, je suis preneur !
Auriez-vous un manuel, une méthode digeste pour progresser en VBA pour
ACCESS ? j'en suis à ma troisième tentative infructueuse.
merci à tous et bon réveillon.