【Access源码示例】删除所有查询,删除全部查询,清理全部查询对象的示例

时　间:2012-07-30 09:09:48
作　者:金宇   ID：43  城市：江阴
摘　要:Accessoft-删除所有查询,删除全部查询,清理全部查询对象的示例
正　文:

网友问题：大侠(903386261) 10:24:43
请问老师能不能一次性删除所有查询，只保留表

Accessoft--金宇(89763722) 10:47:24
Dim rst As Object
Set rst = CurrentProject.Connection.Execute("Select Name FROM MsysObjects Where flags=0 AND (MSysObjects.Type)=5 orDER BY MSysObjects.Name")
Do While Not rst.EOF
DoCmd.DeleteObject acQuery, rst("Name")
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
MsgBox "所有查询删除已完成!"

大侠(903386261) 10:48:54
谢谢 我试试    可以了 大师，你写的代码用起来太爽了

附   件:

点击下载此附件