[求助]如何判定一个查询是否存在？

of384

如何判定一个查询是否存在？

hi-wzj

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

复制代码