access:如何使用VBA检测是否打开了查询？

Question

是否可以在access-2007中检测是否存在使用VBA的打开查询？

我正在打开这样的查询:

    stDocName = "Meeting_Reasons_Frequency"
  DoCmd.OpenQuery stDocName

是否可以检测它是否开放？

Answer 1

怎么样:

 If SysCmd(acSysCmdGetObjectState, acQuery, "QueryName") = acObjStateOpen Then

更多信息:http://msdn.microsoft.com/en-us/library/aa205281(office.10).aspx