Delete DB objects

[Pietro]

Hi,

Is there a code to delete all database queries and forms.
Currently I'm using the below codes, but actually the one the deletes the
forms cannot delete the one that currently open,so all the forms are deleted
except one, how can i delete everything?

Code to delete forms:
On Error Resume Next
If Date >= #12/31/2008# Then
DoCmd.Close acForm, "login"
DoCmd.Close acForm, "passme"
Dim db As Database
Dim objform As Object
Set db = CurrentDb
For Each objform In db.Containers("Forms").Documents
DoCmd.DeleteObject acForm, objform.Name
Next
End If

Code to delete queries:
On Error Resume Next
If Date >= #12/31/2008# Then
DoCmd.Close acForm, "login"
DoCmd.Close acForm, "passme"
Dim db As DAO.Database, i
Set db = CurrentDb
For i = 0 To db.QueryDefs.Count - 1
DoCmd.DeleteObject acQuery, db.QueryDefs(i).Name
Next i
End If

 

[unknown]

You could call the functions from a macro.

Jan R

Pietro skrev:

 

[Pietro]

How?
Please provide more details as I'm ignorant...

 

[unknown]

Create a new macro and under Action you select RunBasicCode.

Under "Fuction" enter the name of the function you wish to execute,
=MyFunction()

Jan R

Pietro skrev: