ms-access - 在 VBA 中获取查询类型属性

Question

有没有办法在 VBA 中识别查询的类型(即附加查询、选择查询、删除查询、制作表查询)？我正在创建一个带有字符串参数(查询)的函数。它将需要检查查询是否存在，然后它的操作将取决于它是什么类型的查询。

Answer 1

检查查询的 QueryDef.Type属性(property)。它从 DAO QueryDefTypeEnum Enumeration 返回一个值. (您也可以从 VB 编辑器的对象浏览器中检查该枚举，而不是在线查找。)

这是一个立即窗口 session ，它演示了您可以在 VBA 代码中使用的部分。

? DAO.QueryDefTypeEnum.dbQSelect
 0 
? CurrentDb.QueryDefs("qrySelect").Type
 0 
? CurrentDb.QueryDefs("qrySelect").Type = dbQSelect
True
? DAO.QueryDefTypeEnum.dbQDelete
 32 
? CurrentDb.QueryDefs("qryDelete").Type = dbQDelete
True
' qryBogus does not exist, so the next statement throws
' Error 3265: Item not found in this collection. 
? CurrentDb.QueryDefs("qryBogus").Type