Access子窗体文本框筛选后，打开匹配窗体提示输入Keywords问题

我已经折腾好几天了，还是搞不清代码逻辑——明明知道解决方案应该很简单，但就是理不出头绪。

需求 #

• 打开第二个窗体时，仅显示与第一个窗体子窗体筛选结果匹配的记录
• 子窗体支持两种筛选方式：
  1. 通过文本框基于拼接的keywords字段筛选
  2. 通过列筛选

现状 #

• 使用列筛选时，打开第二个窗体可正常显示匹配记录
• 使用文本框筛选时，第二个窗体会弹出提示要求输入Keywords字段

诉求 #

如何实现无需手动输入Keywords字段，直接打开显示文本框筛选匹配记录的第二个窗体？曾考虑通过Left(keywords,5)获取Study_ID，但不知具体实现方式。

原相关VBA代码 #

文本框筛选触发代码

Private Sub txtSEARCH_Change()

Me.Form!FrmMasterDS.Form.Filter = "[keywords] Like '*" & Me.txtSEARCH.Text & "*'"
Me.Form!FrmMasterDS.Form.FilterOn = True

End Sub

打开筛选窗体按钮代码

Private Sub cmdfiltered_Click()
Dim strF As String

strF = Me.Form!FrmMasterDS.Form.Filter

If strF Like "*" & "Lookup" & "*" Then
DoCmd.OpenForm "frmMaster", , , strF, acFormEdit
Forms!FrmMaster.Form.FilterOn = True
Else
strF Like "*" & "Keywords" & "*"
...Open filtered form from 'keywords'...
Forms!FrmMaster.Form.FilterOn = True
End If
End Sub

解决方案 #

问题核心是文本框筛选生成的Filter字符串中，*在Access查询逻辑里会被识别为参数占位符，导致系统弹出输入提示；同时原按钮代码的Else分支逻辑不完整，未正确传递筛选条件。

修改后的按钮代码 #

Private Sub cmdfiltered_Click()
    Dim strF As String
    strF = Me.Form!FrmMasterDS.Form.Filter
    
    If strF <> "" Then
        ' 直接复用子窗体的筛选条件打开目标窗体
        DoCmd.OpenForm "frmMaster", , , strF, acFormEdit
        ' 确保目标窗体启用筛选
        Forms!frmMaster.FilterOn = True
    Else
        ' 无筛选条件时打开全部记录
        DoCmd.OpenForm "frmMaster", , , , acFormEdit
    End If
End Sub

可选优化：基于Study_ID的筛选逻辑 #

如果keywords字段前5位是Study_ID，想直接基于Study_ID筛选而非整个keywords字段，可修改文本框筛选代码：

Private Sub txtSEARCH_Change()
    Dim searchText As String
    searchText = Me.txtSEARCH.Text
    
    If searchText <> "" Then
        ' 基于keywords前5位匹配Study_ID
        Me.Form!FrmMasterDS.Form.Filter = "Left([keywords],5) Like '*" & searchText & "*'"
        ' 若数据表有单独的Study_ID字段，更推荐以下写法（避免字符串截取误差）：
        ' Me.Form!FrmMasterDS.Form.Filter = "[Study_ID] Like '*" & searchText & "*'"
        Me.Form!FrmMasterDS.Form.FilterOn = True
    Else
        ' 清空筛选
        Me.Form!FrmMasterDS.Form.Filter = ""
        Me.Form!FrmMasterDS.Form.FilterOn = False
    End If
End Sub

修改后，两种筛选模式下都能直接将筛选条件传递给第二个窗体，不会再出现参数输入提示。

内容的提问来源于stack exchange，提问作者Sally C