未隔离记录的查询

我有一个运行两个不同查询的表单。结果包括在运行第二个查询时无法隔离(向下钻取)第一个查询的记录。

为了隔离记录，我尝试设置了几个不同的查询，包括尝试组合查询，希望消除对已经过滤掉的记录的调用。

    Private Sub cmdSearchMaterial_Click()

            Dim task2 As String



             task2 = "select * from TblPurchases order by [Material] "

    Me.Filter = "[Material]= '" & Me.CboMaterial & "'"
    Me.TxtTotal = Format(DCount("Material", "QueryMaterials"), "0")
    Me.RecordSource = ("QueryMaterials")



    End Sub
    'Second query
    Private Sub CmdSearchVendors_Click()

        Dim task As String

        task = "select * from TblPurchases order by [vendors] "

    Me.Filter = "[Vendor]= '" & Me.cbovendors & "'"
    Me.TxtTotal = Format(DCount("vendor", "Purchases Query"), "0")
    Me.RecordSource = ("Purchases Query")


    End Sub

我所期望的结果是，例如，我寻找一种材料“水泥”，我从三到四个水泥供应商那里得到了几个记录。我为一个特定的供应商运行了第二个查询，但我得到了该供应商的所有交易，而不仅仅是该供应商的“水泥”交易。例如，我期望的是，如果我选择一个供应商( " CitiHardware“)，我会看到"CitiHardware”中的所有项目。现在我选择一个材料( "tools“)，我想要从" CitiHardware”中隔离出来。我得到的是我从包括CitiHardware在内的所有供应商处购买的“Tools”。如果我再次过滤“CitiHardware”，我将获得所有购买。来自CitiHardware的“Tools”不是与其他记录隔离的。

转载请注明出处:http://www.jxbyjx.net/article/20230504/1434308.html