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

[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 (όπου είναι τοποθετημένος και ο κώδικας)!

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

[vraxnakisg]

Καλημέρα Δημήτρη,

Για δοκίμασε το παρακάτω.

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
If c.Documents(i).Name <> Me.Name Then
DoCmd.DeleteObject acForm, c.Documents(i).Name
End If
Next i

For i = CurrentProject.AllForms.Count - 1 To 0 Step -1
If CurrentProject.AllForms(i).Name <> Me.Name Then
DoCmd.DeleteObject acForm, CurrentProject.AllForms(i).Name
End If
Next i

Καλή συνέχεια.

[dimitrisp]

Καλησπέρα

Γιώργο, λειτουργεί άψογα!
Σε υπερευχαριστώ για τη βοήθειά σου.

Καλή συνέχεια...