CANNOT RELEASE FORM

[michaelkatz]

For some reason a form that was releasing properly no longer does.

Here are the facts.
App was developed using VFP 5
It is a blank form with no controls. Its function is to let the user know that the app is running, while it updates last year data.
It was working fine last year. I copied all the files to a new folder to prepare the application for 2003, and now the form remains visible and also remains on the taskbar.

Since last year, I have installed VFP 7 in another folder, so both versions are present.

I have also updated this years app in VFP 7 and it works fine.

This is the code involved
DO FORM frmstartup NAME OfrmStartUp
.
.
.
.
.
IF TYPE('OfrmStartup') <> 'U'
* wait wind TYPE('OfrmStartup')
RELEASE FORM OfrmStartUp
* wait wind TYPE('OfrmStartup')
ENDIF

Funny thing: If I uncomment the &quot;Wait..&quot; lines, the value displayed is &quot;O&quot; and the form IS RELEASED. Could it be a caching problem? The machine I am using has had NO hardware changes made to it.


Thank you once again.

BTW How do I respond to your response?

Michael
mkatzla@juno.com

 

[Mike Gagnon]

DO FORM frmstartup NAME OfrmStartUp
IF TYPE('OfrmStartup') <> 'U'
* wait wind TYPE('OfrmStartup')
RELEASE FORM OfrmStartUp
* wait wind TYPE('OfrmStartup')
ENDIF

Try this instead:

PUBLIC oFrnStartUp
DO FORM frmstartup NAME OfrmStartUp
IF TYPE('OfrmStartup') <> 'U'
*   wait wind TYPE('OfrmStartup')
   RELEASE FORM OfrmStartUp
*   wait wind TYPE('OfrmStartup')
ENDIF

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[michaelkatz]

I tried it. Didn't help.
The value returned by the wait commands is &quot;O&quot; both before and after the Release statemnt, so the object still exists.

Thanks anyway. If you have any more ideas, please let me know. If I figure it out I'll let you know.

Michael (Frustrated programmer)

 

[Mike Gagnon]

PUBLIC oFrnStartUp
DO FORM frmstartup NAME OfrmStartUp
IF TYPE('OfrmStartup') <> 'U'
*   wait wind TYPE('OfrmStartup')
   RELEASE FORM OfrmStartUp
   oFrmStartup = .NULL.
*   wait wind TYPE('OfrmStartup')
ENDIF

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[michaelkatz]

Found it.

I compared last years prg to this years. Somewhere along the way the following line was deleted

WAIT CLEAR

and left a WAIT ..... NOWAIT hanging.


Thanks for all the help.

Michael (Humbled once again.)