关于用报表打印当前记录的程序原代码

zhjh20

请教各位高手，兄弟制作了一个窗体，而后想在窗体中设置了一个按纽，
它的功能是连接报表并打印当前记录，可是我在ACCESS中自来的按纽中
只找到打印报表全部记录的按纽，其程序原代码如下：
Private Sub 命令21_Click()
On Error GoTo Err_命令21_Click

    Dim stDocName As String

    stDocName = "从业人员( 打印)"
    DoCmd.OpenReport stDocName, acNormal,"筛选查询"  '”筛选查询“为一个查询，起条件为 其中关键字段值等于窗体中当前值：例子见northwid.mdb里订单窗体的打印发票程序 =[Forms]![Orders]![OrderID]

Exit_命令21_Click:
    Exit Sub

Err_命令21_Click:
    MsgBox Err.Description
    Resume Exit_命令21_Click
   
End Sub
    我想是否可以在其中改动一下代码，将其功能转变为打印报表当前
记录，请各位高手赐教!

[此贴子已经被cattjiu于2003-2-12 11:37:03编辑过]

marco2

你可以事先在报表的筛选里设好筛选条件（报表中相关字段=[Forms]![Orders]![OrderID]）呀！
这样在打开报表时，并不需要编程也要以打印窗体中的当前记录了。

zhjh20

谢谢marco2的热心解答。不好意思的是，我刚接触access不久，对它了解也不是很多，你所说的“事先在报表的筛选里设好筛选条件”我不太清楚具体怎么操作。我在报表中找了很久，没找到筛选选项，可不可以再说具体一点，谢谢!

cattjiu

方法1：DoCmd.OpenReport stDocName, acNormal,"筛选查询"

'”筛选查询“为一个查询，条件为其中关键字段值等于窗体中当前值：例子见northwid.mdb里订单窗体的打印发票程序 =[Forms]![Orders]![OrderID]

方法2：在报表设置窗体的属性里设筛选条件： 例如=[Forms]![Orders]![OrderID]

[upload=bmp]http://www.office-cn.net/vvb/uploadimages/200321317301531612.bmp[/img]

zhjh20

我已按照各位的指示在报表筛选中填入“=[Forms]![Orders]![OrderID]”，一字未改，如图所示：
[upload=bmp]http://www.office-cn.net/vvb/uploadimages/200321610231743969.bmp[/img]
不过运行时总是出现提示：语法错误(操作符丢失)在查询表达式‘(=[Forms]![Orders]![OrderID])’中，不知是哪儿出错了，希望不吝赐教!

cattjiu

=[Forms]![Orders]![OrderID]
这是个例子，应该根据你的窗体具体更改为：
=[Forms]![你的窗体的名字]![用于筛选的窗体对象名]

zhjh20

大侠!还是不行啊!我已按照你说的在报表筛选项里填入 =[Forms]![从业人员(打印)]![ID]，其中“从业人员(打印)”是窗体名，“ID”是窗体中的一个字段名(自动编号)。但打开报表时仍出现“语法错误(操作符丢失)在查询表达式‘(=[Forms]![从业人员(打印)]![ID])’中”，我想是不是我对你说的“[用于筛选的窗体对象名]”理解错误致填入项[ID]错误。如果方便的话，是否可以把我的文件传到你的邮箱，大概300K，请帮忙看看，不胜谢谢!

zhjh20

我刚查到一个打印2-5页的的命令代码，如下：
  DoCmd.PrintOut acPrintAll, 2, 5
我想如果能把2，5改成最后一条记录的代码表达式也同样可以达到目地，请问最后一条记录用代码怎么表示!

小白

我也有同样的问题啊!大侠,帮帮忙呀!

cattjiu

报表中[id]的筛选属性里设：=[Forms]![从业人员(打印)]![ID])