Sortir d'un traitement en cours

[lbar012001]

Bonjour,
J'ai déjà utilisé cette fonction dans une boucle de traitement afin que lorsque l'utilisateur tape sur la touche ESC, il puisse sortir du traitement, et ça marche bien.

j'avais cette déclaration

Code :

Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer

Et dans mon traitement

Code :

1
2
 If (GetAsyncKeyState(27) <> 0) Then
        msg = MsgBox("Stop process ?", vbYesNo, "CONTROL")

Ce que je recherche à faire maintenant, c'est quelque chose d'équivalent sauf que cette fois, je n'ai pas de traitement mais une requête création de table locale pointant sur une requête de type SQL DIRECT qui interroge une base oracle via ODBC.

L'interrogation peut prendre un certain temps et je souhaiterais que l'utilisateur puisse là aussi sortir du traitement.

Je ne sais pas comment procéder.

Merci,

Laurent