Delete AllQueries or AllForms?

[Guest_imported]

Dear Sir:
Base on Security reason, I must delete Allqueries and allforms when some condition. How can I do it? Please reply this question because it's emergency.
Eric Jou

 

[JimHorton]

you can do a recordset based on MsysObjects:
Dim db As Database, rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("select name,type from msysobjects", dbOpenSnapshot)
Do Until rst.EOF
If rst!Type = 5 Then ' Type 5 query
If Left$(rst!Name, 1) <> &quot;~&quot; Then 'the squiggly is for embedded sql, don't delete
DoCmd.DeleteObject acQuery, rst!Name
End If
ElseIf rst!Type = -32768 Then 'Type -32768 forms
DoCmd.DeleteObject acForm, rst!Name
End If
rst.MoveNext
Loop
--Jim