关于引用控件的交叉表查询与装入子窗体

accben

附件中：1）有“查询1”，“查询1”引用了窗体的控件（开始日期、截止日期）
2）由 “查询1” 的记录生成 “查询1_交叉表”，这时，打开 “查询1_交叉表” ，会显示不能识别有效字段。
3）听说用子窗体装载这种交叉表可以解决这个问题，参考了一些例子，还是不行（参见附件）。

请各位看看哪里出了问题？

accben

也谢谢王站的关注！

tmtony

Henry D. Sy 亲自出马

accben

没有弹出【不能识别有效字段】错误提示了。查询正确，给力！谢谢Henry D. Sy！

Henry D. Sy

1. Private Sub cmd确定_Click()
   
2.     Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象
   
3.     Dim sSQL As String
   
4.     If IsNull(Me.开始日期) Or IsNull(Me.截止日期) Then
   
5.         MsgBox "请输入查询日期"
   
6.         Exit Sub
   
7.     End If
   
8.     sSQL = "SELECT 表1.序号, 表1.供应商, 表1.日期, 表1.数量,IIf([日期] Between #" & Me.开始日期 _
   
9.         & "# And #" & Me.截止日期 & "# ,Format([日期],'yyyy/mm'),IIf([日期]<#" & Me.开始日期 & "#,'之前合计','之后合计')) AS 月份 FROM 表1;"
   
10.     Set qdf = CurrentDb.QueryDefs("查询1")
    
11.     qdf.SQL = sSQL
    
12.     qdf.Close
    
13.     Me.窗体1子窗体.SourceObject = "查询.查询1_交叉表"
    
14. End Sub

复制代码

accben

做这个案例发现：交叉表查询不能引用窗体控件，用switch函数也是不能引用窗体控件的。

accben

最终想要的效果