ACC97: Unable to Quit Microsoft Access

MORE INFORMATION

Steps to Reproduce Problem

1. Start Microsoft Access, and create a new database.
2. Create a new form not based on any table or query in Design view and save it as frmMain:
   

           Form: frmMain
           ----------------
           Caption: frmMain
   
           Check box:
              Name: Check0
   						

3. Set the OnLoad property of the form to the following event procedure:
   

           Private Sub Form_Load()
              Check0 = False
           End Sub
   						

4. Create a new form not based on any table or query in Design view and save it as frmSub:
   

           Form: frmSub
           ----------------------------------
           Caption: frmSub
   
           Text box:
              Name: Text1
              After Update: [Event Procedure]
   						

5. Set the AfterUpdate property of the Text1 text box to the following event procedure:
   

           Private Sub Text1_AfterUpdate()
              If Me.Parent!Check0 Then
                 MsgBox "Checked - Now Try to close Access"
              End If
           End Sub
   						

6. Close and save the frmSub form.
7. Drag the frmSub form from the Database window to the bottom of the frmMain form created in Step 2 to create a subform control.
8. Select the new subform control and set the following properties:
   

           Name: frmSub
           SourceObject: frmSub
   						

9. View the form in Form view.
10. Type testing in the text box contained within the subform control, and press TAB.
11. Close the frmMain form.