ACC97 : Impossible de quitter Microsoft Access

Retour au début

Procédure pour reproduire le problème

1. Démarrez Microsoft Access et créer une nouvelle base de données.
2. Créer un nouveau formulaire non basé sur n'importe quelle table ou requête en mode Création afficher et enregistrez-le sous frmMain :
   

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

3. Définissez la propriété OnLoad du formulaire à la procédure événementielle suivante :
   

           Private Sub Form_Load()
              Check0 = False
           End Sub
   						

4. Créer un nouveau formulaire non basé sur n'importe quelle table ou requête en mode Création afficher et enregistrez-le sous frmSub :
   

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

5. Définissez la propriété AfterUpdate de la zone de texte Rem1 à la procédure événementielle suivante :
   

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

6. Fermez et enregistrez le formulaire frmSub.
7. Faites glisser le formulaire frmSub à partir de la fenêtre base de données vers le bas du formulaire frmMain créé à l'étape 2 pour créer un contrôle de sous-formulaire.
8. Sélectionnez le nouveau contrôle de sous-formulaire et définir les propriétés suivantes :
   

           Name: frmSub
           SourceObject: frmSub
   						

9. Affichez le formulaire en mode formulaire.
10. Type de test dans la zone de texte contenue dans le contrôle de sous-formulaire et appuyez sur TAB.
11. Fermez l'écran frmMain.

Retour au début