未绑定的文本框，用于过滤子表单数据表

Question

我有一个Microsoft Access（2010）表单，其中嵌入了子表单数据表。 我的目标是在每个数据表列上方放置一个未绑定的文本框，允许用户键入文本以过滤该列。

其中一个数据表列VENDOR根据tblVendor表显示供应商名称列表。它由VendorID列绑定到数据表，对用户不可见。

我使用以下代码，但它似乎只查询VendorID列上的数据表。我想查询文本。例如，我希望用户键入“Microsoft”，而不是“21”（Microsoft的VendorID）。

Private Sub TxtVendorSearch_Change()

Dim str1 As String

str1 = "[VendorID] LIKE '*" & Me.TxtVendorSearch & "*'"


Me!subOrderDS1.Form.Filter = str1
Me!subOrderDS1.Form.FilterOn = True

End Sub

Answer 1

如果还没有这样做，只需在子窗体的查询中包含（必要时加入）[Vendor] -Name。然后，您只需查询[Vendor] LIKE ...而不是[VendorID] 要使其成为实时，您还必须使用Me.TxtVendorSearch.Text，因为文本框的值不会立即与可见文本同步。