FIX: "File Is Not Open" Error Message When You Save a Form May Cause Infinite Loop (314651)



The information in this article applies to:

  • Microsoft Visual FoxPro for Windows 7.0

This article was previously published under Q314651

SYMPTOMS

If the following error message appears when you try to save a form that has a breakpoint set, Visual FoxPro may go into a infinite loop:
"File is not open."

RESOLUTION

To resolve this problem, obtain the latest service pack for Visual FoxPro for Windows 7.0. For additional information, click the following article number to view the article in the Microsoft Knowledge Base:

316964 How to Obtain the Latest Visual FoxPro for Windows 7.0 Service Pack

STATUS

Microsoft has confirmed that this is a problem in Microsoft Visual FoxPro for Windows 7.0. This problem was first corrected in Visual FoxPro for Windows 7.0 Service Pack 1.

MORE INFORMATION

Steps to Reproduce Behavior

  1. Save the following code in a program (.prg) file and then run the program:
    IF TYPE('gltest') = "U"
       PUBLIC glTest
       gltest = .t.
       CLEAR DEBUG
       * The following line opens the Breakpoint dialog box,
       * sets a breakpoint, and closes the dialog box. 
       KEYBOARD '{ctrl+b}click{enter}{enter}'
       DOEVENTS 
    ENDIF 
    
    SET RESOURCE OFF 
    LOCAL aobj[1], xx
    DELETE FILE testxx.sc?
    
    CREATE FORM testxx NOWAIT
    =ASELOBJ(aobj,1)
    xx = aobj[1]
    xx.caption = xx.caption
    KEYBOARD 'Y' CLEAR
    RELEASE WINDOW 'Form Designer - testxx.scx'
    MODIFY FORM testxx NOWAIT METHOD load 
    
    * Type a comment.
    KEYBOARD '*'
    DOEVENTS 
    * Select designer and close it.
    ACTIVATE WINDOW 'form designer - testxx.scx'
    KEYBOARD '{ctrl+w}'
    RETURN
    					
  2. Run the program again. Click OK to close the File is not open message box.
  3. In the Properties dialog box, click the Methods tab and then locate the Load event.
  4. Double-click the Load event.

Modification Type:MajorLast Reviewed:3/4/2002
Keywords:kbbug kbCodeSnippet kbDSupport KB314651