将嵌入式宏转为VBA后Access搜索框失效问题求助

问题分析 #

你的代码存在以下关键问题导致搜索失效：

• 重复冗余的空值判断，逻辑混乱
• TempVars引用方式错误，未处理重复添加的情况
• ApplyFilter参数调用错误，表单名称拼写有误（Serviclog应为Servicelog）
• LIKE语句中多余空格导致匹配逻辑错误
• 使用End语句终止程序，应改用Exit Sub正常退出

修正后的代码 #

Private Sub SearchGo_Click()
On Error GoTo SearchGo_Click_Err
    
    ' 简化空值判断，直接用Me引用当前表单控件
    If IsNull(Me.SearchBox) Or Trim(Me.SearchBox) = "" Then
        ' 清空筛选
        DoCmd.ApplyFilter "", "", ""
        Me.SearchBox.SetFocus
        ' 控制图标可见性
        Me.SearchClear.Visible = False
        Me.SearchGo.Visible = True
        ' 受信任项目下清空搜索框内容
        If CurrentProject.IsTrusted Then
            Me.SearchBox.Text = ""
        End If
        Exit Sub ' 正常退出，替代原End语句
    End If
    
    ' 验证控件为文本框（可选，按需保留）
    If Me.SearchBox.ControlType <> acTextBox Then
        Exit Sub
    End If
    
    ' 构建筛选条件，修正LIKE语句空格问题，处理单引号转义
    Dim strFilter As String
    strFilter = "[RegNo] Like '*" & Replace(Me.SearchBox, "'", "''") & "*'"
    
    ' 处理TempVars：先删除已存在的变量再添加
    If TempVars.Exists("strFilter") Then
        TempVars.Remove "strFilter"
    End If
    TempVars.Add "strFilter", strFilter
    
    ' 应用筛选，直接使用TempVars变量
    DoCmd.ApplyFilter "", TempVars!strFilter, ""
    
    ' 控制图标可见性
    Me.SearchClear.Visible = True
    Me.SearchGo.Visible = False
    Me.SearchBox.SetFocus

SearchGo_Click_Exit:
    Exit Sub

SearchGo_Click_Err:
    MsgBox "错误信息：" & Err.Description, vbExclamation
    Resume SearchGo_Click_Exit

End Sub

关键优化点说明 #

• 用Me替代[forms]![Servicelog]，代码更简洁且避免拼写错误
• 修正LIKE语句空格问题，确保包含目标字符的内容都能匹配
• 处理TempVars重复添加问题，避免运行时错误
• 用Exit Sub替代End语句，保证程序正常退出流程
• 添加单引号转义逻辑，避免搜索内容含单引号时出错
• 直接使用控件Visible属性替代DoCmd.SetProperty，更高效直观

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