嘿，我帮你排查了这段代码里的问题，几个明显的逻辑错误直接导致了你遇到的应用程序定义或对象定义错误，咱们一步步拆解：

核心错误原因 #

1. 变量混淆引发的字符串操作异常 #

你处理活动名称的检索条件时，把规则追加到了varWhere变量，但后面清理多余AND的代码却错误地操作了strSQL——这个变量从始至终都没被赋值（除了声明），是空字符串。当你执行Right(strSQL, 5)时，空字符串根本没有足够长度供截取，直接触发了错误。

2. 无意义的逻辑判断拖后腿 #

代码里的If strSQL <> "False"完全是冗余的，因为strSQL从来没被赋值为"False"，这部分逻辑不仅没用，还会让后续的条件拼接逻辑失效。

3. 日期格式的潜在坑（不是当前直接错误，但后续可能炸锅） #

你用了\#dd\/mm\/yyyy\#作为日期格式，但Access对这种格式的解析很挑剔——如果日份大于12，Access会把它当成普通字符串而非日期，轻则查不到数据，重则触发类型不匹配错误。

修复后的完整可运行代码 #

我把所有错误都修正了，还优化了条件拼接的逻辑，让代码更健壮：

Private Sub CommandSearch_Click()
    Dim strReport As String 'Name of report to open.
    Dim strField As String 'Name of your date field.
    Dim strMessage As String 'Message on no data for selection.
    Dim varWhere As String 'Where condition for OpenReport.
    
    ' 推荐用ISO标准的yyyy-mm-dd格式，Access能100%稳定识别
    Const conDateFormat = "\#yyyy-mm-dd\#"
    
    strReport = "RB_Events"
    strField = "[Event_StartDate]"
    varWhere = ""

    ' ================================================================================
    ' 处理日期范围条件
    ' ================================================================================
    If Not IsNull(Me.txtEvent_StartDate) Then
        If Not IsNull(Me.txtEvent_EndDate) Then
            ' 有开始和结束日期，用Between
            varWhere = "(" & strField & " Between " & Format(Me.txtEvent_StartDate, conDateFormat) _
            & " AND " & Format(Me.txtEvent_EndDate, conDateFormat) & ")"
        Else
            ' 只有开始日期
            varWhere = "(" & strField & " >= " & Format(Me.txtEvent_StartDate, conDateFormat) & ") "
        End If
    ElseIf Not IsNull(Me.txtEvent_EndDate) Then
        ' 只有结束日期
        varWhere = "(" & strField & " <= " & Format(Me.txtEvent_EndDate, conDateFormat) & ") "
    End If

    ' =============================================================
    ' 处理活动名称条件
    ' ================================================================================
    If Me.txtEvent_Name <> "" Then
        ' 如果已有条件，先加AND再拼新条件，避免开头/结尾多余的AND
        If varWhere <> "" Then
            varWhere = varWhere & " AND "
        End If
        ' 替换单引号防止SQL语法错误（比如用户输入O'Neil这类带单引号的内容）
        varWhere = varWhere & "[Event_Name] Like '*" & Replace(Me.txtEvent_Name, "'", "''") & "*'"
    End If

    '================================================================================
    Debug.Print varWhere ' 可以在立即窗口查看生成的WHERE条件，方便调试
    ' 更新列表框数据源
    If varWhere <> "" Then
        Forms!F_EVENTS.RowSource = "SELECT * FROM Q_EVENTS WHERE " & varWhere
    Else
        Forms!F_EVENTS.RowSource = "SELECT * FROM Q_EVENTS"
    End If
    ' 刷新列表框
    Forms!F_EVENTS.Requery

Exit_cmdSearch_Click:
    Exit Sub

Err_cmdSearch_Click:
    ' 把模糊的错误提示改成具体信息，方便排查问题
    MsgBox "检索出错: " & Err.Description & vbCrLf & "错误编号: " & Err.Number, vbCritical, "错误提示"
    Resume Exit_cmdSearch_Click
End Sub

关键修复细节说明 #

• 变量逻辑统一：把所有条件拼接都集中到varWhere变量，删掉了无用的strSQL相关代码，彻底避免空字符串操作的错误。
• 日期格式升级：改用yyyy-mm-dd的ISO标准格式，Access对这种格式的识别最稳定，再也不会出现日/月混淆的问题。
• 防SQL注入/语法错误：添加了Replace(Me.txtEvent_Name, "'", "''")，如果用户输入带单引号的内容（比如O'Neil），不会直接破坏SQL语句结构。
• 条件拼接优化：在追加新条件前先判断是否已有条件，自动处理AND的添加，不会出现开头或结尾多余的AND。
• 错误提示优化：把原来模糊的“未填写数据”提示改成显示具体错误信息和编号，方便你后续调试其他潜在问题。

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