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

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编辑过]

szqjl

DoCmd.OpenReport stDocName, acNormal, "", "ID=Forms!从业人员(打印)!ID"
我们可能是一个系统的!

哈瘌子

Private Sub Command14_Click()
On Error GoTo Err_Command14_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    DoCmd.OpenReport "x入库单", acPreview, , "[入库ID]=" & [入库ID]
    Dim stDocName As String

    stDocName = ChrW(120) & ChrW(20837) & ChrW(24211) & ChrW(21333)
    DoCmd.OpenReport stDocName, acPreview

Exit_Command14_Click:
    Exit Sub

Err_Command14_Click:
    MsgBox Err.Description
    Resume Exit_Command14_Click
   
End Sub

我知道是根据这条记录的入库id来判断打印的。但对于vba还在摸中

zhjh20

不好意思，不要笑我太笨，实在是找不到报表中的ID在哪里？不会是文本框ID吧？文本框ID中的属性找不到筛选项，唯一有筛选项的就是报表属性。而报表属性中也找不到[ID]这一项。

cattjiu

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

小白

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

zhjh20

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

zhjh20

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

cattjiu

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

zhjh20

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