关于窗体报表打印问题

lyd888888

我在窗体中做了一个打印按钮，要求当我录入完一条记录入按打印可以调用表格打印这条记录，代码如下：

Private Sub 命令18_Click()
On Error GoTo Err_命令18_Click

    Dim stDocName As String

    stDocName = "付款通知单"
    DoCmd.OpenReport stDocName, acNormal

Exit_命令18_Click:
    Exit Sub

Err_命令18_Click:
    MsgBox Err.Description
    Resume Exit_命令18_Click
   
End Sub
但是当我按打印后，里面所有数据全部都打印出来了，我要求只打印当前输入的这条记录，怎么处理，谢谢

一点通

报表中某字段的准则应与窗体中某控件关键字关联

zyz218

Private Sub Command53_Click()
   
If IsNull(Me.Text51) Then
    DoCmd.OpenReport "工资条", acViewPreview
    DoCmd.close acForm, "给予管理", acSaveYes
Else
    DoCmd.OpenReport "工资条", acViewPreview, , "社员ID like '*" & Me.Text51 & "*'"
    DoCmd.close acForm, "给予管理", acSaveYes
End If

End Sub

以上代码你可以参考一下

lyd888888

已经关联了，现在要求直接打印当前的记录，麻烦高手是不是需增加一些代码

一点通

单凭代码很难帮你说明问题,或者你可以参照3楼的方法,意思是当文本框为空时打印所有数据,当文本框有输入数据时,按条件打印

再不明的话就传例子上来吧

lyd888888

针对我这个代码怎么修改呀

swo

需要做一个筛选查询，比如查询准则为当前ID号的记录就行 了

lyd888888

示例，麻烦帮忙改一下