我在 Microsoft Access 2007 中创建了一个表格表单。表单上有一个文本框,我希望过滤表单中的项目。
问题是表单中的一个字段是一个外键,它引用了一个包含公司名称的链接表。
当我运行下面的代码,并在文本框中键入公司名称 + 按回车键时,我只能搜索与公司名称相对应的数值:
Private Sub Text22_AfterUpdate()
Dim mFilter As String
Dim mQuery1 As String
If IsNull(Me.Text22) Then
mQuery1 = ""
Else
mQuery1 = Me.Text22
End If
mFilter = "[ID] Like ""*" & mQuery1 & "*"""
mFilter = (mFilter + " OR ") & "[Supplier] Like ""*" & mQuery1 & "*"""
temp = MsgBox(mFilter, vbOKOnly)
Me.Filter = mFilter
Me.FilterOn = True
Me.Requery
End Sub