查询问题请高手帮我看看，谢谢！

janney0

文件下载

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

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

cattjiu

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

怎么还是不行呢！：（

cattjiu

等下，需要将窗体的”出货日期“列数改为一，列宽保留一个就可以了，我已经E-mail你。

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

janney0

非常感谢你的帮助，问题解决了，谢谢~~！！

[em26]

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