能不能将定义的查询取名

不务实　发表于：2009-11-08 10:57:36 　

Private Sub 确定_Click()

Dim cxsq As String
Dim cxsq2 As String
Dim cxtj As String

cxsq = "SELECT 数据记录.凭证日期, 数据记录.凭字ID, 数据记录.凭证号码, 数据记录.摘要, FROM 数据记录" '为说明问题我简化了很多
cxtj ="略是很复杂的查询条件"
cxtj = " WHERE (" & cxtj & ")"
cxsq = cxsq & cxtj & " GROUP BY略"

在这儿能不能把cxsq 的查询取个名,好让我下面调用它的字段(虽然用生成表的办法生成新表,我就能调用字段,但数据太大,我不想用生成表的办法)

cxsq2 = "SELECT 凭证列表.凭证日期, 凭证列表.凭字ID, 凭证列表.凭证号码, 略 _
FROM 调用刚才基于cxsq的查询 LEFT JOIN 凭证列表 ON (调用刚才基于cxsq查询的字段.凭证号码 = 凭证列表.凭证号码) AND _
(调用刚才基于cxsq查询的字段.凭字ID = 凭证列表.凭字ID) AND (调用刚才基于cxsq查询的字段.凭证日期 = 凭证列表.凭证日期) 略

DoCmd.OpenForm "凭证"
Forms!凭证!.Form.RecordSource = cxsq2

End Sub

Top

andymark 发表于：2009-11-08 12:27:48

一种方法是创建临时查询

二是优化查询,2个查询合并在一起

看成是一个子查询的变量

cxsq2 = "SELECT 凭证列表.凭证日期, 凭证列表.凭字ID, 凭证列表.凭证号码, 略 _
FROM (" & cxsq & " ) a LEFT JOIN 凭证列表 ON a.凭证号码 = 凭证列表.凭证号码

......

Top

andymark 发表于：2009-11-08 12:30:48

DoCmd.OpenForm "凭证",,这里加条件就行了