网友问题：大侠(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
谢谢 我试试    可以了 大师，你写的代码用起来太爽了

附   件:

点击下载此附件