查询问题，请大家帮帮忙

huang1314 · 发表于 2016-3-21 17:28:51

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

roych · 发表于 2016-3-22 00:49:21

strWhere = "[班级] = Text4"
改为：
strWhere = "[班级] = " & Text4
再试试。

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

huang1314 · 发表于 2016-3-22 07:56:46

改成strWhere = "[班级] = " & Text4
窗体查询卡在
Me.Child0.Form.FilterOn = True

huang1314 · 发表于 2016-3-22 08:11:33

把“班级”改成数值就可以了。。

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[帮助] 查询问题，请大家帮帮忙

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)