Macro to Delete all Queries and Forms

[rbs]

Hi Everyone,

I need to set up a macro to delete all queries and forms from a database.

Can Anyone help?

Thanks in advance,


Natalie.

 

[SydneyGeek]

Just checking -- why do you want to do that? Is it because you need a new front end for the database but are happy with the data structure?
If so, you could split the database and link a new, blank database to the old backend tables.
If you still want to delete the queries and forms, which version of Access do you use?

Regards
Denis

 

[rbs]

I have a database for which I create a backup and edit the forms and queries.

Rather than keep track of which I have changed, I delete all the queries and forms and them import them from the backup.

I use Access 2000.

Thanks,


Natalie.

 

[SydneyGeek]

I had an example for Access 97 but went for a browse and found this code on Experts Exchange.

Look at the following example, you can go through the list of forms..and do whatever...i.e. delete them as well using: 
docmd.DeleteObject acForm,"FormName"

and you can delete any module as well
docmd.DeleteObject acModule,"ModuleName"

Sub AllForms()
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    ' Search for open AccessObject objects in AllForms collection.
    For Each obj In dbs.AllForms
        If obj.IsLoaded = TRUE then
            ' Print name of obj.
            Debug.Print obj.Name
        End If
    Next obj
End Sub

HTH
Denis