"File is not open" error when quit program 1

[MarnickBolle]

When users quit our program, they get a question and when they say "Yes" they quit the program.

This is the code:

gnResult=Messagebox("Quit program?",32+4+256,"Program End&quot
if gnResult=6
set defa to &gcStartDirectory
=sqldisconnect(gnConHandle)
close all
clear events
set status bar on
set sysmenu to defa
endif

Sometimes users get a fatal error at line 5: close all. The error they get is: "FILE IS NOT OPEN" and they quit the program. This has no consequences, because the user asked to quit the program, but it's not very nice.

What can be the reason of this error-message?

 

[Mike Lewis]

MarnickBolle,

I once saw the same behaviour. I traced it one of the forms being closed. It contained a combo boxes that was populated by a table that was not open in the data environment. I don't remember the details, so I suggest you first try to find out which forms were open when the user got that message. Then try eliminating any combo boxes or list boxes from those forms to see if the problem goes away. That should at least tell you what is causing the error.

Report back if you get any more information.

Mike


Mike Lewis
Edinburgh, Scotland

My Visual Foxpro web site:

http://www.ml-consult.demon.co.uk

My Crystal Reports web site:

http://www.ml-crystal.com

 

[MarnickBolle]

Mike Lewis,

Thank you for this information. I think you can be right and I have to check this.

As soon as possible (next days I'm not at my office) I try it out.

Thanks a lot!

Marnick.

 

[Mike Lewis]

Marnick,

OK, let us know what you find out.

Mike


Mike Lewis
Edinburgh, Scotland

My Visual Foxpro web site:

http://www.ml-consult.demon.co.uk

My Crystal Reports web site:

http://www.ml-crystal.com