Office中国论坛/Access中国论坛

标题: 第一次做报表啊，请大家多关照！ [打印本页]

作者: cofe2000 时间: 2005-5-27 23:27
标题: 第一次做报表啊，请大家多关照！
我用向导作了一个报表，来源是一个“总表”

在窗体中我可以浏览表中的记录，现在想打印当前的记录，作了一个按钮“预览报表”，下面是代码，现在问题是如果我的“总表”有多少条记录，它就出来多少张报表，能否只显示当前记录的报表啊？

Private Sub 预览_Click()

On Error GoTo Err_预览_Click

Dim stDocName As String

stDocName = "报表"

DoCmd.OpenReport stDocName, acPreview

Exit_预览_Click:

Exit Sub

Err_预览_Click:

MsgBox Err.Description

Resume Exit_预览_Click

End Sub

作者: 风筝 时间: 2005-5-27 23:34

可以做到，但您必须要有唯一辨别这一记录的字段来做筛选，比如该记录有一主关键字叫“姓名”

复制代码

DoCmd.OpenReport stDocName, acPreview, ,"姓名 = '" & me.姓名 & "'"

复制代码

具体可看帮助里面的例子。

复制代码

[code][/code]

作者: cofe2000 时间: 2005-5-27 23:53
多谢，可以使用的！！！

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