[ Φόρμες ] Διαγραφή όλων των φορμών της Βάσης

[dimitrisp]

Γειά σας

Σε μιά φόρμα, ας την ονομάσουμε Form1, έχω τοποθετήσει κουμπί εντολής
με τον παρακάτω κώδικα (γιά διαγραφή όλων τών φορμών της βάσης):

Dim i As Long
Dim db As DAO.Database
Dim c As DAO.Container

Set db = CurrentDb()
Set c = db.Containers("Forms")
For i = c.Documents.Count - 1 To 0 Step -1
Debug.Print c.Documents(i).Name
DoCmd.DeleteObject acForm, c.Documents(i).Name
Next i

For i = CurrentProject.AllForms.Count - 1 To 0 Step -1
DoCmd.DeleteObject acForm, CurrentProject.AllForms(i).Name
Next i

Ο κώδικας λειτουργεί επιτυχώς, αλλά μόλις φτάνει στη διαγραφή της Form1
σταματά τις διαγραφές, με το αναμενόμενο μήνυμα ΄"δε μπορεί να διαγραφεί η Form1 επειδή είναι ανοικτή"

Πώς θα μπορούσαμε να τροποποιήσουμε τον κώδικα αυτόν έτσι ώστε να διαγράφονται
όλες οι φόρμες τής βάσης με εξαίρεση τη Form1 (όπου είναι τοποθετημένος και ο κώδικας)!

Σάς ευχαριστώ εκ των προτέρων