What a bizarre thing to do. I don't particularly want to
test this, so take it as air code.
With CurrentProject.AllForms
For k = 1 To .Count
If Item(0).IsLoaded Then
DoCmd.Close acForm, .Item(0).Name, acSaveNo
End If
DoCmd.DeleteObject acForm, .Item(0).Name
Next k
End With
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.
