Discussion :

[JPJOLY]

Est il possible en ACCESS ou en VBA de faire une simulation de la touche Echap ?
Merci par avance

[Kloun]

Bonjour,

Quel est le contexte exactement ?

[Invité]

Bonjour
La simulation pure en Vba est celle-ci:

Code :

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

SendKeys "{Escape}"

[JPJOLY]

Bonjour
La simulation pure en Vba est celle-ci:

Code :

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

SendKeys "{Escape}"

Bonjour et merci de votre réponse.
En fait mon pb est le suivant je voudrais developper un bouton sur un formulaire qui annule tous les champs modifiée au cas ou l'utilisateur décide
de ne plus faire cette opération.
Quand on ferme le formulaire cela ne devrait donc entrainer aucune modification dans la table.
J'ai essayé par l'éxécution conditionnelle de la commande: AnnulerEvenement
dans l'evenement AvantMAJ du formulaire. Cela évite la mise à jour, mais par contre j'ai l'affichage d'un message me demandant si je veux neanmoins fermer mon objet (formulaire) et je dois répondre OUI.
Comment éviter ce message ? Ou avez vous une solution à mon pb ? MERCI

[ClaudeLELOUP]

Bonjour,

Dans ton formulaire, place le curseur sur la propriété "si modification" et enfonce F1 ---> vois l'aide ACCESS au sujet de l'événement (dirty).
Il me semble que l'exemple donné correspond à ce que tu cherches.

[Invité]

Bonjour
As tu été voir du coté de:

Code :

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

Me.Undo

[JPJOLY]

Voici les solutions apportées aux 2 pbs signalés:
1 - SIMULATION TOUCHE esc
Macro ACCESS: EnvoiTouches ESC
2 - Effacement de tous les champs modifiés d'un formulaire:

Code :

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

1
2
3
4
5
6
'------------------------------------------------------------
' EFFASS
'------------------------------------------------------------
Function EFFASS(Cancel As Integer, F As Form)
F.Undo
End Function

Appel par macro:

Code :

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

ExécuterCode        EFFASS(1,Forms!nomform)

Merci à tout ceux qui m'ont aidé