[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

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