第一次做报表啊，请大家多关照！

cofe2000

我用向导作了一个报表，来源是一个“总表”

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

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

风筝

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

复制代码

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

复制代码

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

复制代码

[code][/code]

cofe2000

多谢，可以使用的！！！