Office中国论坛/Access中国论坛

标题: 关于引用控件的交叉表查询与装入子窗体 [打印本页]
作者: accben    时间: 2021-11-11 12:01
标题: 关于引用控件的交叉表查询与装入子窗体
附件中：1）有“查询1”，“查询1”引用了窗体的控件（开始日期、截止日期）
2）由 “查询1” 的记录生成 “查询1_交叉表”，这时，打开 “查询1_交叉表” ，会显示不能识别有效字段。
3）听说用子窗体装载这种交叉表可以解决这个问题，参考了一些例子，还是不行（参见附件）。

请各位看看哪里出了问题？
作者: accben    时间: 2021-11-11 14:40
最终想要的效果
作者: accben    时间: 2021-11-11 14:49
做这个案例发现：交叉表查询不能引用窗体控件，用switch函数也是不能引用窗体控件的。
作者: Henry D. Sy    时间: 2021-11-12 10:20
  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    时间: 2021-11-12 13:41
没有弹出【不能识别有效字段】错误提示了。查询正确，给力！谢谢Henry D. Sy！

作者: tmtony    时间: 2021-11-18 10:30
Henry D. Sy 亲自出马
作者: accben    时间: 2021-11-18 16:10
也谢谢王站的关注！



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3