Office中国论坛/Access中国论坛

标题: 查询问题，请大家帮帮忙 [打印本页]

作者: huang1314 时间: 2016-3-21 17:28
标题: 查询问题，请大家帮帮忙

Dim strWhere As String
Private Sub Command1_Click()
strWhere = "[班级] = Text4"
Me.Child0.Form.Filter = strWhere
Me.Child0.Form.FilterOn = True
以上窗体查询没问题，能查询出相应班级
DoCmd.OpenReport "报表1", acViewPreview, , strWhere, , Nz(Me.Text1, "我的报表")
‘（问题）这句老是弹出对话框让输入Text4的值才能打印（预览）。第一句不是对strWhere赋值了吗？
End Sub
[attach]58503[/attach]

作者: roych 时间: 2016-3-22 00:49
strWhere = "[班级] = Text4"
改为：
strWhere = "[班级] = " & Text4
再试试。

顺便说一句：好久不见，还好吧？

作者: huang1314 时间: 2016-3-22 07:56
改成strWhere = "[班级] = " & Text4
窗体查询卡在
Me.Child0.Form.FilterOn = True

作者: huang1314 时间: 2016-3-22 08:11
把“班级”改成数值就可以了。。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)