Office中国论坛/Access中国论坛

标题: 关于窗体报表打印问题 [打印本页]

作者: lyd888888 时间: 2005-12-10 22:12
标题: 关于窗体报表打印问题
我在窗体中做了一个打印按钮，要求当我录入完一条记录入按打印可以调用表格打印这条记录，代码如下：

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
但是当我按打印后，里面所有数据全部都打印出来了，我要求只打印当前输入的这条记录，怎么处理，谢谢

作者: 一点通 时间: 2005-12-10 22:27
报表中某字段的准则应与窗体中某控件关键字关联

作者: zyz218 时间: 2005-12-10 23:20

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 时间: 2005-12-10 23:29
已经关联了，现在要求直接打印当前的记录，麻烦高手是不是需增加一些代码

作者: 一点通 时间: 2005-12-10 23:38
单凭代码很难帮你说明问题,或者你可以参照3楼的方法,意思是当文本框为空时打印所有数据,当文本框有输入数据时,按条件打印

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

作者: lyd888888 时间: 2005-12-10 23:49
针对我这个代码怎么修改呀

作者: swo 时间: 2005-12-11 01:15
需要做一个筛选查询，比如查询准则为当前ID号的记录就行了

作者: lyd888888 时间: 2005-12-11 19:50
示例，麻烦帮忙改一下

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)