Access中通过控件值构建SQL并执行时出现语法错误求助

DevOps 小满

2026-4-15

看起来你在Access里用控件值动态拼接SQL然后执行/导出的时候踩坑了，我来帮你梳理下常见问题和修正方案哈！

首先，你现有代码里有几个容易出问题的点：

用SetFocus+.Text读取控件值：其实完全没必要这么做，直接用控件的.Value属性就能读值，而且.Text只有在控件获得焦点时才能用，很容易导致空值判断出错。
日期和文本值的SQL语法：Access的SQL里，文本值需要用单引号包裹，日期值需要用#包裹，直接拼原字符串肯定会触发语法报错。
用DoCmd.RunSQL处理查询导出：这个方法是用来执行动作查询（比如INSERT、UPDATE、DELETE）的，如果你是要查询数据然后导出到CSV，用它完全不对路，这也是报错的重要原因之一。

下面给你修正后的完整代码，每一步都做了优化：

Option Explicit

Private Sub Cmd_SaveToFile_Click()
    Dim strSQL As String
    Dim strKeyword As String
    Dim strWhere As String
    Dim savePath As String
    
    ' 先设置CSV导出的路径，你可以改成自己要存的位置，也可以加个对话框让用户选择路径
    savePath = "C:\Users\YourName\Documents\ExportResult.csv"
    
    ' 处理关键字条件
    If Not (IsNull(Cmb_Keyword) Or Cmb_Keyword = "") Then
        strKeyword = Cmb_Keyword.Value
        ' 重点：如果关键字里有单引号（比如O'Neil），要转成两个单引号才能被SQL正确识别
        strKeyword = Replace(strKeyword, "'", "''")
        strWhere = strWhere & " AND 你的关键字字段名 = '" & strKeyword & "'"
    End If
    
    ' 处理开始日期条件
    If Not (IsNull(Txt_StartDate) Or Txt_StartDate = "") Then
        ' 把日期转成Access SQL能识别的#格式，统一用mm/dd/yyyy避免区域格式差异导致的报错
        strWhere = strWhere & " AND 你的日期字段名 >= #" & Format(Txt_StartDate.Value, "mm/dd/yyyy") & "#"
    End If
    
    ' 处理结束日期条件
    If Not (IsNull(Txt_EndDate) Or Txt_EndDate = "") Then
        strWhere = strWhere & " AND 你的日期字段名 <= #" & Format(Txt_EndDate.Value, "mm/dd/yyyy") & "#"
    End If
    
    ' 构建完整的查询SQL
    strSQL = "SELECT * FROM 你的表名"
    ' 如果有条件，去掉开头多余的第一个AND，避免出现WHERE AND...的语法错误
    If strWhere <> "" Then
        strSQL = strSQL & " WHERE " & Mid(strWhere, 5)
    End If
    
    ' 导出到CSV：用TransferText比RunSQL适合太多，直接支持SQL语句作为数据源
    ' 最后一个参数传strSQL就是用这个动态构建的查询结果导出
    DoCmd.TransferText acExportDelimited, , , savePath, True, strSQL
    
    MsgBox "导出成功！"
End Sub

然后给你划几个必须注意的重点：

一定要把代码里的你的关键字字段名、你的日期字段名、你的表名换成你数据库里实际的名称，这步错了肯定跑不通。
必须处理文本里的单引号：比如关键字是O'Neil，直接拼进SQL会变成'O'Neil'，SQL会把中间的单引号当成结束符，直接触发语法报错，用Replace转成O''Neil就没问题了。
日期格式统一用mm/dd/yyyy+#：不管你的系统区域设置是啥，Access SQL对这个格式的识别是最稳定的，不会因为日期格式不匹配报错。
别再用RunSQL导出数据了：这个方法是用来修改数据的，查数据导出就用DoCmd.TransferText，一步到位还不容易错。

如果你的需求是执行动作查询（比如更新、插入数据），那DoCmd.RunSQL是可以用的，但同样要注意上面说的文本转义和日期格式问题，确保动作语句的SQL格式正确。

备注：内容来源于stack exchange，提问作者user6697656