Office中国论坛/Access中国论坛

标题: 求助：删除全部已有的查询的代码 [打印本页]

作者: gdfsslec 时间: 2008-4-24 09:31
标题: 求助：删除全部已有的查询的代码
只找到删除全部表的，请各位指教！

作者: andymark 时间: 2008-4-24 09:48
删除清空所有查询??

作者: gdfsslec 时间: 2008-4-24 12:51
是

作者: andymark 时间: 2008-4-24 13:31
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
For Each obj In dbs.AllQueries
DoCmd.DeleteObject acQuery, obj.Name
Next obj

作者: gdfsslec 时间: 2008-4-24 21:39
谢谢版主[:12]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)