MS Access主窗体搜索框实现子窗体姓名/邮箱过滤功能求助

问题场景 #

未绑定主窗体FrmUserListMain中包含搜索文本框txtSearch，以及显示FullName和Email字段的子窗体frmUserList。需求是在txtSearch输入内容时，子窗体自动过滤出匹配FullName或Email的记录，无匹配则子窗体为空。原尝试代码无效：

Private Sub txtSearch_KeyUp(KeyCode As Integer, Shift As Integer)
Me.FilterOn = False
Me!frmUserList.Form.Filter = "[FullName] like '*" & Me.txtSearch & "*' or [Email] like '*" & Me.txtSearch & "*'"
Me!frmUserList.Form.FilterOn = True
With Me.txtSearch
.SetFocus
.SelStart = Len(.Text)
End With
End Sub

问题排查与修复 #

核心问题点 #

1. 事件触发逻辑：KeyUp事件会在所有按键抬起时触发（如方向键、退格键），不如Change事件精准，后者仅在文本内容实际变化时触发。
2. 空值处理缺失：当txtSearch为空时，原代码仍会执行过滤，导致匹配所有包含空字符串的记录，不符合“无匹配则为空”的需求。
3. 子窗体数据源验证：需确保子窗体frmUserList的RecordSource是包含FullName和Email字段的有效表或查询，字段名称拼写完全一致。

修正后的代码 #

Private Sub txtSearch_Change()
    Dim strFilter As String
    
    ' 清空子窗体过滤
    Me!frmUserList.Form.FilterOn = False
    
    ' 仅当搜索框有内容时构建过滤条件
    If Trim(Me.txtSearch.Value) <> "" Then
        strFilter = "[FullName] Like '*" & Replace(Me.txtSearch.Value, "'", "''") & "*" & _
                    " OR [Email] Like '*" & Replace(Me.txtSearch.Value, "'", "''") & "*"
        Me!frmUserList.Form.Filter = strFilter
        Me!frmUserList.Form.FilterOn = True
    Else
        ' 搜索框为空时，清空子窗体显示
        Me!frmUserList.Form.RecordSource = ""
    End If
    
    ' 保持光标在文本框末尾
    With Me.txtSearch
        .SetFocus
        .SelStart = Len(.Text)
    End With
End Sub

关键优化说明 #

• 改用Change事件，仅在文本内容变化时触发过滤，避免无效执行。
• 增加空值分支：搜索框为空时直接清空子窗体数据源，实现“无匹配则为空”的需求。
• 加入Replace函数处理搜索内容中的单引号，避免SQL语法报错。

内容的提问来源于stack exchange，提问作者Valentine Omonya