Is there any alternative command or technique instead of "cancel" command at the interrruptmessage procedure. Because "cancel" don't prevent the query it also quit the whole program. I want to cut only running query in case of necessity.
Thanks in advance
Altun
cQryStr = "select * from customer where name like 'A%'"
cEscState = set("escape")
set Escape on
ON ESCAPE DO interrruptmessage
&cQryStr
set Escape &cEscState
procedure interrruptmessage()
if messagebox("To stop the query press 'OK', to continue press 'Cancel' button.", 1+32)=1
messagebox("Query cancelled", 0+16)
cancel
return .F.
else
wait window "Query is continuing." nowait
endif
return .F.
ENDPROC