1楼把第二个问题说的更复杂了
其实很简单
1,按1楼说的,先做好报表
2,方法一,在子窗体的[销售单号]的双击事件中加入代码:
Private Sub ID_DblClick(Cancel As Integer)
DoCmd.OpenReport "报表名称", acViewPreview, , "[销售单号]='" & Me.[销售单号] & "'" '报表以预览的方式打开
End Sub
3,方法二,在报表的打开事件中加代码:
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = "select * from 表名称(查询名称) where [销售单号]= '" & Forms![窗体名称]![子窗体名称]![销售单号] & "'"
End Sub
4,方法三,也可在你的“浏览当前单”的单击事中加代码:
Private Sub 浏览当前单_Click()
DoCmd.OpenReport "报表名称", acViewPreview, , "[销售单号]= '" & Forms![窗体名称]![子窗体名称]![销售单号] & "'"
'报表以预览的方式打开
End Sub
谢谢耀哥,问题已经解决了,我在做好报表后在记录源中写入:SELECT 销售历史临时表.销售单位, 销售历史临时表.销售单号, 销售历史临时表.销售日期, 销售历史临时表.货品名称及规格, 销售历史临时表.件包装, 销售历史临时表.销售数量, 销售历史临时表.单位, 销售历史临时表.实售价, 销售历史临时表.销售金额
FROM 销售历史临时表
WHERE (((销售历史临时表.销售单号)=[Forms]![货品销售表查询]![销售单号]));
同时也谢谢1楼的阿莼。
总记录:4篇 页次:1/1 9 1 :