Neutralisation touche echap [Résolu]

[toni.72]

Bonjour,

En VBA je lance successivement différentes instructions Docmd.openquery
avec des requêtes action, ce qui me permet d'automatiser une série de traitements sur une base.

Pendant le traitement, si un utilisateur appuie au moins une fois sur la touche "echap" la requête en cours d'execution s'arrête et le script VBA passe à l'instruction suivante, ce qui rend le résulat des traitements "aléatoire"

Je souhaite sécuriser l'application pour éviter cet effet. L'utilisation d'un formulaire lançant le traitement et contenant une touche "annuler" dont la propriété "Annuler" = oui, ne fonctionne pas. Pendant l'exécution de la requête, le formulaire n'a pas la main.

Merci d'avance pour vos idées...

[marot_r]

En effet, échape arrête le calcul d'une requête.

Je n'ai jamais eu ce problème, mes utilisateurs n'appuient pas sur Escape :-). mais j'essairai de remplacer les DoCmd.OpenQuery par

Code :

1
2
3
4
5
6
7
8
dim db as dao.database:set db=currentdb 'Une fois
dim q as dao.querydef                            'Une fois
 
set q=db.querydefs("NomTaQuery") 'Autant que de requete
q.execute                                   'Autant que de requete
 
set q=nothing 'Une fois
set db=nothing 'Une fois

A+

[toni.72]

Un grand merci René, ça marche nickel