Question

access 怎样用vba语句对进出库表按照时间筛选

我把入库表和出库表union在了一起，变成一张叫做出入库查询的表格，然后我希望在表中查找某商品 在一段时间内的入库和出库的记录。现在的问题是我的进出库查询按钮代码是这样的
Private Sub cx1_Click()
Dim str As String
If Not IsNull(Me.id) Then
str = str & "([出入库查询.商品编号] like '" & Me.id & "') and "
End If
If Not IsNull(Me.date1) Then
str = str & "([出入库查询.入库时间] >= #" & Format(Me.date1, "yyyy-mm-dd") & "#) and "
End If
If Not IsNull(Me.date2) Then
str = str & "([出入库查询.入库时间] <= #" & Format(Me.date2, "yyyy-mm-dd") & "#) and "
End If
If Not IsNull(Me.date1) Then
str = str & "([出入库查询.出库时间] >= #" & Format(Me.date1, "yyyy-mm-dd") & "#) and "
End If
If Not IsNull(Me.date2) Then
str = str & "([出入库查询.出库时间] <= #" & Format(Me.date2, "yyyy-mm-dd") & "#) and "
End If

If Len(str) > 0 Then
str = Left(str, Len(str) - 5)
End If
Me.出入库查询_子窗体.Form.Filter = str
Me.出入库查询_子窗体.Form.FilterOn = True
End Sub
筛选不出我要的东西，一片空白 ，我要筛选的是在我指定的时间段内，某商品编号的出库和入库的所有记录，如果我把第二个if语句最后的and改成or 删选的结果就不是我指定的商品编号，而是按照我输入的时间来了

这个是我的删选条件输入的地方 下面有个出库出查询子窗体
当我单独编写入库时间或者出库时间代码后，查询结果是正常的，但是同时写进去（像上面那样，不管是用and还是or，都不能按照我的要求查处结果）
我不知道到底问题出在哪里了

Answer 1

如果 你是单纯地 使用access 数据库的话 我倒是建议你不进行这样的 使用代码来进行查询……
既然 你已经使用了 窗体 那么建议 你继续使用 子窗体 来显示 你需要的结果 子窗体的数据源 可以通过 使用主窗体的 条件 建立一个查询 的方式来完成……
最后 你只要 在主窗体 的条件 控件上 分别 增加一个 更新后的 事件过程 刷新窗体数据就可以了……
Access 数据库 最大的优势 就是 不用使用太复杂的 代码 通过可视化的设计 就可以完成大部分的需要……
重点：查询、子窗体 数据刷新代码……这几项就足够了

追问

你的意思是指在两个表union的时候就把主窗口上的条件加进去 然后union在一起 然后弄个查询按钮 代码是刷新子窗体对吗？

追答

不用再另外设计一个按钮 只要 更新主窗体上的 条件控件内容 下面的数据就自动更新了……
重点是 子窗体的 数据源 要用 主窗体的 的条件 和相应的表进行查询（这个可以在子窗体的属性数据来源上 使用向导进一步进行设置）……
手边现在米有现成的东西 可以给你参考一下 以前我都是这样做的 修改起来比较容易 不需要 检查那么多的代码……你可以上传你做的数据实例 然后给你具体建议……

Answer 2

你应该把出库时间条件附加在出库表上, 把入库时间附加在入库表上, 得到的两个子表在Union all 吧?