Access VBA表单查询含单引号姓名时3075语法错误的解决求助

你的问题核心是SQL字符串的单引号冲突——SQL用单引号包裹字符串值，当姓名里本身带单引号（比如D'Hondt），直接拼接会让SQL语句变成无效格式（比如[naam] = 'D'Hondt'），触发3075语法错误。

不用删除单引号，正确的做法是把输入里的单个单引号替换成两个连续单引号，这是SQL标准的转义方式，数据库会自动将两个连续单引号识别为一个实际的单引号。

修改后的RequeryForm代码 #

Private Sub RequeryForm()

    Dim strSQL  As String
    Dim filteredNaam As String
    Dim filteredVoornaam As String
    
    ' 转义单引号：将单个'替换为''
    filteredNaam = Replace(Me.FComboNaam, "'", "''")
    filteredVoornaam = Replace(Me.FComboVoornaam, "'", "''")
    
    If Len("" & Me.FComboNaam) > 0 Then
        strSQL = "[naam] = '" & filteredNaam & "'"
    End If
    
    If Len("" & Me.FComboVoornaam) > 0 Then
        If Len(strSQL) > 0 Then
            strSQL = strSQL & " And "
        End If
        strSQL = strSQL & " [voornaam] = '" & filteredVoornaam & "'"
    End If
    
    If Len(strSQL) = 0 Then ' 若筛选条件为空，关闭筛选
        Me.FilterOn = False
    Else
        Me.Filter = strSQL ' 应用筛选条件
        Me.FilterOn = True
    End If
    
End Sub

额外建议：参数化查询（更安全的进阶方案） #

如果想彻底规避字符串拼接的问题，同时防止SQL注入风险，可以用Access的参数化查询。思路是创建带参数的查询定义，把组合框的值作为参数传入，无需手动处理单引号：

Private Sub RequeryForm()
    Dim qdf As QueryDef
    Dim strSQL As String
    
    ' 基础查询语句，用占位符定义参数
    strSQL = "SELECT * FROM [你的表名] WHERE 1=1 "
    If Len("" & Me.FComboNaam) > 0 Then
        strSQL = strSQL & "AND [naam] = [pNaam] "
    End If
    If Len("" & Me.FComboVoornaam) > 0 Then
        strSQL = strSQL & "AND [voornaam] = [pVoornaam] "
    End If
    
    Set qdf = CurrentDb.CreateQueryDef("", strSQL)
    
    ' 给参数赋值，无需处理单引号
    If Len("" & Me.FComboNaam) > 0 Then
        qdf.Parameters("[pNaam]") = Me.FComboNaam
    End If
    If Len("" & Me.FComboVoornaam) > 0 Then
        qdf.Parameters("[pVoornaam]") = Me.FComboVoornaam
    End If
    
    ' 将查询结果绑定到表单
    Me.RecordSource = qdf.SQL
    Set qdf = Nothing
    Me.FilterOn = False ' 参数化查询无需使用Filter，直接替换RecordSource
End Sub

注意将代码中的[你的表名]替换为你实际使用的表名称。

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