Office中国论坛/Access中国论坛

标题: [求助]如何判定一个查询是否存在？ [打印本页]

---

作者: of384    时间: 2004-12-14 19:14
标题: [求助]如何判定一个查询是否存在？
如何判定一个查询是否存在？

---

作者: hi-wzj    时间: 2004-12-14 21:00

1. function finQueries(查询名称 as string) as Boolean    Dim obj As AccessObject, dbs As Object    Set dbs = Application.CurrentData    For Each obj In dbs[b].AllQueries[/b]        If obj.name = 查询名称 then finQueries=true    Next objEnd function

复制代码

---

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

Powered by Discuz! X3.3