如何用组合框进行多次条件查询

李俊勇　发表于：2014-01-17 15:58:38 　

那位大师，一定帮下我，
附件是我做的一个按时间及仓库代码，对当天物料实时库存的查询数据库，
在窗体中组合框中选择某一仓库代码及时间后，点查询按钮就可以找到所有该仓库的库存，当在料号是输入一个料号时，再点查询就可以只显示这一个物料的库存，

问题是当我再选择其它仓库代码时说出错了，请教如何解决这个问题呀，库存查询

zhaoyoulong 发表于：2014-01-17 16:35:02

Private Sub 在庫検索3_Click()
Dim varX As Variant
varX = DLookup("[Actual_ID]", "ALL_RealTime_Inventory_Query", "[Actual_ID] like '*" & Me.Actual_ID_Search3 & "*'") '模糊查询

If Nz(Me.Actual_ID_Search3) <> "" Then '查找窗口是否有输入值
If IsNull(varX) Then '是否找到符合要求的值
MsgBox ("找不到")
Me.Actual_ID_Search3 = ""
Exit Sub
End If
Me.RecordSource = "select * from ALL_RealTime_Inventory_Query where [Actual_ID] like '*" & Me.Actual_ID_Search3 & "*'" '让邦定文本框找到该条记录
Else
Me.RecordSource = "ALL_RealTime_Inventory_Query"
End If
Me.Actual_ID_Search3 = ""
End Sub

Top

李俊勇发表于：2014-01-17 16:52:59

这个，还是不行呀，只能查找一次，按仓库ID变化后，还是不行呀。跟我原来的没差别呀

Top

zhaoyoulong 发表于：2014-01-17 17:23:26

设计思路有问题!我刚刚是把你的有问题的代码改了一下.

建议,主窗体+子窗体

主窗体是没有数据源有

子窗体的数据源是根据主窗体上的控件值来决定

你的设计有点自相矛盾:

一、窗体数据源来源于一个基于当前窗体控件值的查询

二、这个查询必须同时满足两个条件下（窗体中的两个控件值）这两个控件值只要有一个不满足条件就不可能有数据！

三、当你所用的代码进行数据源更新的前提是，有一个值是空值，也就是说你有基本数据源是无数据的，所以中要有一个空值的控件值，无论如何你都不会查到数据

四、按照你的思路，根本无需上述代码，只需刷新一下窗体就可以了：me.Recalc

这方面的例子很多,可以留心一下

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

如何用组合框进行多次条件查询