Access - 如何在多个组合框的子窗体上显示数据

Question

我有一个表单，我有 3 个不同的组合框，我希望能够对其进行动态过滤。组合框被称为cboVendor、cboRegion、cboPosition。当我单独过滤组合框时它工作正常，但是当我尝试过滤供应商然后区域然后位置时，子表单仅在我选择的最后一个组合框下拉列表上更新数据，而不是将数据限制为仅先前选择的组合框。

我能够让每个组合框根据其他框动态更新，我只是无法让子表单以这种方式显示数据。

以下是我为每个组合框所拥有的各个子项：

Private Sub cboVendor_AfterUpdate()
Dim myVendor As String
myVendor = "Select * from TblVendor where ([Vendor] = '" & Me.cboVendor & "')"
Me.tbl_Vendor_subform1.Form.RecordSource = myVendor
Me.tbl_Vendor_subform1.Form.Requery
Me.cboRegion = Null
Me.cboPosition = Null
Me.cboRegion.Requery

End Sub

Private Sub cboRegion_AfterUpdate()
Dim myRegion As String
myRegion = "Select * from TblVendor where ([Region] = '" & Me.cboRegion & "')"
Me.tbl_Vendor_subform1.Form.RecordSource = myRegion
Me.cboPosition = Null
Me.cboPosition.Requery

End Sub



Private Sub cboPosition_AfterUpdate()
Dim myPosition As String
myPosition = "Select * from TblVendor where ([Position] = '" & Me.cboPosition & "')"
Me.tbl_Vendor_subform1.Form.RecordSource = myPosition

End Sub

Answer 1

尝试使用此命令。

strDataSource = "Select * from TblVendor where ([Vendor] = '" & Me.cboVendor & "' AND [Region] = '" & _
            Me.cboRegion & "' AND [Position] ='" & Me.cboPosition & "')"

Me.tbl_Vendor_subform1.Form.RecordSource = strDataSource
Me.tbl_Vendor_subform1.Form.Requery