Access运行时错误3075求助：报表运行失败问题排查

Hey Jake, 这个Access运行时错误3075我太熟了——基本就是SQL语句的语法格式错误，问题就出在你拼接reportsearch查询字符串的环节。看你贴的代码片段，LIKE语句的引号处理完全乱了，导致Access没法正确解析你的查询条件，直接触发了3075错误。

问题根源 #

你写的LIKE "" " & reportText &... 这种引号拼接方式会让生成的SQL出现不匹配的引号，Access直接懵圈；另外，用LIKE做模糊查询时，你还缺了通配符（Access默认用*），不然就算语法对了，查询逻辑也不符合预期。

修正后的基础版代码 #

直接把引号和通配符改对就能解决问题：

Private Sub Command284_Click()
    Dim reportsearch As String
    Dim reportText As String
    
    If IsNull(Me.txtReport.Value) Then
        MsgBox "This box must contain a keyword"
        Me.txtReport.SetFocus
    Else
        reportText = Me.txtReport.Value
        ' 正确拼接LIKE条件：用单引号包裹字符串，前后加通配符*
        reportsearch = "SELECT * FROM NCECBVI WHERE ([Last Name] LIKE '*" & reportText & "*')"
        ' 这里补上你执行报表的代码，比如：
        ' DoCmd.OpenReport "你的报表名称", acViewPreview, , reportsearch
    End If
End Sub

更安全的进阶方案：参数化查询 #

如果想彻底避免引号问题，还能防范SQL注入风险，推荐用参数化查询：

Private Sub Command284_Click()
    Dim qdf As QueryDef
    Dim reportText As String
    
    If IsNull(Me.txtReport.Value) Then
        MsgBox "This box must contain a keyword"
        Me.txtReport.SetFocus
    Else
        reportText = Me.txtReport.Value
        
        ' 创建临时参数查询，把搜索条件做成参数
        Set qdf = CurrentDb.CreateQueryDef("", "SELECT * FROM NCECBVI WHERE [Last Name] LIKE '*' & [SearchKeyword] & '*'")
        qdf.Parameters("SearchKeyword").Value = reportText
        
        ' 用这个查询给报表喂数据，示例：
        ' DoCmd.OpenReport "你的报表名称", acViewPreview, , , acWindowNormal, qdf.SQL
        
        Set qdf = Nothing
    End If
End Sub

小提示 #

• Access的通配符要看数据库兼容模式：ANSI-89用*，ANSI-92用%，可以在数据库选项里查看或修改。
• 尽量别直接拼接用户输入到SQL里，参数化才是更稳妥的做法。

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