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

zhjh20

不好意思，不要笑我太笨，实在是找不到报表中的ID在哪里？不会是文本框ID吧？文本框ID中的属性找不到筛选项，唯一有筛选项的就是报表属性。而报表属性中也找不到[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还在摸中

szqjl

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