[求助]SQL语句赋给变量调用！

bear9701

如果查询1为SELECT 厂商, 用户
FROM j001;

dcount()是借用了查询1作条件运行后面的语句，如何不用建立查询1，而将其SQL语句直接放到代码中或赋给变量来调用！那位大哥有例子给一个

If DCount("厂商", "查询1") > 1 Then
DoCmd.RunSQL "insert j002 (异动数量,厂商) select 数量,厂商 from j003,j001"

wwwwa

不行，只有用OPENRECORDSET、循环的方法来判断。

bear9701

有的高手说可以，下面一段代码不知如调用：

只要引入 QueryDef 物件，就可以用代码产生及储存一个选择查询，要用 DAO ， 用 ADO 好象并不支持 QueryDef。
Dim Dbs As Database
Dim Qdf As QueryDef
Dim Str As String
Set Dbs = CurrentDB
Str = "Select......From......Where......;"
Set Qdf = DB.CreateQueryDef("选择查询名",Str)
查询集合里已产生一个新的选择查询，这个选择查询同用查询设计产生的选择查询不同的是，随时可清除，因为查询结构已被储存在程序里了。