Office中国论坛/Access中国论坛

标题: 关于报表筛选 [打印本页]

作者: cangqiong 时间: 2009-5-19 14:53
标题: 关于报表筛选
本帖最后由 cangqiong 于 2009-5-19 14:55 编辑

[attach]38106[/attach]跟据查询来做报表，想让组合框选哪个就预览哪个组，要分格线（没有分格线显的有点混）.并且能打印报表出来。请高手帮忙

作者: Henry D. Sy 时间: 2009-5-19 23:47
在窗体上

Private Sub Command3_Click()
If IsNull(Me.Combo0) Then Exit Sub
DoCmd.OpenReport "报表", acViewPreview, , , , Me.Combo0
End Sub

在报表上

Private Sub Report_Open(Cancel As Integer)
Dim strSQL As String
strSQL = "select * from [0000000000] where 组='" & Me.OpenArgs & "'"
Me.RecordSource = strSQL
End Sub

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