网友问题:大侠(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
谢谢 我试试 可以了 大师,你写的代码用起来太爽了
附 件:
点击下载此附件