Office中国论坛/Access中国论坛

标题: [求助]怎么在报表中打印查询后在子窗体的显示内容？ [打印本页]

作者: shallow 时间: 2006-9-30 16:37
标题: [求助]怎么在报表中打印查询后在子窗体的显示内容？
我想把查询出来的结果直接在设定好的报表里打印，但一直不成功，打印的还是所有记录，而不是查询出来的结果，大家帮我看看我的VB错在哪？其中，日期查询子窗体是用来显示查询结果的子窗体名称，日期报表是要打印的报表名称。查询也可以正常运行。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝Private Sub 打印预览_Click()
On Error GoTo Err_打印预览_Click

Dim stDocName, strWhere As String

stDocName = "日期报表"
strWhere = Me.日期查询子窗体.Form.FilterOn
'在打开报表的同时把子窗体的筛选条件字符串也传递给报表，
'这样地话报表也会显示和子窗体相同的记录。
DoCmd.OpenReport stDocName, acPreview, strWhere

Exit_打印预览_Click:
Exit Sub

Err_打印预览_Click:
MsgBox Err.Description
Resume Exit_打印预览_Click

End Sub

作者: wwwwa 时间: 2006-9-30 16:41
strWhere = Me.日期查询子窗体.Form.Filter

作者: zx994398 时间: 2006-10-1 06:07
可以直接在事件中写: DoCmd.OpenReport "报表名", acPreview, me.子窗体名.form.filter

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