Office中国论坛/Access中国论坛

标题: 查询问题请高手帮我看看，谢谢！ [打印本页]

作者: janney0 时间: 2002-7-5 19:21
标题: 查询问题请高手帮我看看，谢谢！
文件下载

以窗体中的查询条件，查询的记录写入报表

我那里做错了，怎么不行呢！

作者: cattjiu 时间: 2002-7-5 21:13
1.frm_打印条件：行来源
出货日期：SELECT 送货单.出货日期
FROM 送货单;
订单号码：SELECT 送货单查询.次数
FROM 送货单查询;

Private Sub 预览报表_Click()
On Error GoTo Err_预览报表_Click

If IsNull(Me.出货日期) Or IsNull(Me.次数) Then
MsgBox "条件没有输入"
Exit Sub
Else
Dim stDocName As String

stDocName = "送货单报表"
DoCmd.OpenReport stDocName, acViewPreview, "送货单筛选"
Me.Visible = False

Exit_预览报表_Click:
Exit Sub

Err_预览报表_Click:
MsgBox Err.Description
Resume Exit_预览报表_Click
End If
End Sub
2.”送货单筛选“查询：
SELECT 送货单.出货日期, 送货单.次数
FROM 送货单
WHERE (((送货单.出货日期)=[Forms]![frm_打印条件]![出货日期]) AND ((送货单.次数)=[Forms]![frm_打印条件]![订单号码]));
3.以上问题解决。
4. 你的表建立得不很正确，特别是表关系。请参阅C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb

[此贴子已经被作者于2002-7-5 13:13:08编辑过]

作者: janney0 时间: 2002-7-6 01:05
怎么还是不行呢！：（

作者: cattjiu 时间: 2002-7-6 01:31
等下，需要将窗体的”出货日期“列数改为一，列宽保留一个就可以了，我已经E-mail你。

[此贴子已经被作者于2002-7-5 17:30:48编辑过]

作者: janney0 时间: 2002-7-6 02:23
非常感谢你的帮助，问题解决了，谢谢~~！！

[em26]

[此贴子已经被作者于2002-7-5 18:23:24编辑过]

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