Run-Time Error '3075'日期语法错误求助：Access SQL查询排查

错误提示里的##是核心问题——拼接SQL时，numWeek.Column(1)没有返回有效的日期值，导致日期条件部分变成# #，触发语法错误。以下是具体排查和修复步骤：

• 先确认numWeek.Column(1)的实际内容
  添加调试代码，运行后在立即窗口查看输出：

  Debug.Print "numWeek.Column(1)的值：" & numWeek.Column(1)
  

  如果输出为空、非日期格式的文本/数字，说明控件绑定的列索引可能错误（注意列索引从0开始，也许你需要的是Column(0)），或者未选择有效选项。

• 强制日期格式标准化
  Access SQL要求日期必须是yyyy-mm-dd或mm/dd/yyyy格式，系统区域格式不匹配时直接拼接会出错，用Format函数统一格式：

  Format(numWeek.Column(1), "yyyy-mm-dd")
  Format(DateAdd("d", 6, numWeek.Column(1)), "yyyy-mm-dd")
  

• 处理空值和特殊字符

  • 提前判断日期有效性，避免生成无效SQL：

    If Not IsDate(numWeek.Column(1)) Then
        MsgBox "请选择有效的周起始日期"
        Exit Sub
    End If
    

  • 客户ID若包含单引号（如O'Conner），直接拼接会破坏SQL语法，用Replace转义：

    Replace(cboClientid.Value, "'", "''")
    

• 优化后的完整代码示例

  Dim startDate As Variant
  Dim startDateStr As String
  Dim endDateStr As String
  Dim clientId As String
  Dim sql As String
  
  ' 验证日期有效性
  startDate = numWeek.Column(1)
  If Not IsDate(startDate) Then
      MsgBox "请选择有效的周起始日期"
      Exit Sub
  End If
  
  ' 格式化日期为SQL兼容格式
  startDateStr = Format(startDate, "yyyy-mm-dd")
  endDateStr = Format(DateAdd("d", 6, startDate), "yyyy-mm-dd")
  
  ' 处理客户ID，转义单引号
  clientId = Nz(cboClientid.Value, "")
  If clientId <> "" Then
      clientId = Replace(clientId, "'", "''")
      sql = "SELECT * FROM tblactivity " & _
            "WHERE activitydate BETWEEN #" & startDateStr & "# AND #" & endDateStr & "# " & _
            "AND clientid='" & clientId & "' " & _
            "ORDER BY activitydate, keysort"
  Else
      ' 客户ID为空时，去掉该条件（或根据需求改为clientid IS NULL）
      sql = "SELECT * FROM tblactivity " & _
            "WHERE activitydate BETWEEN #" & startDateStr & "# AND #" & endDateStr & "# " & _
            "ORDER BY activitydate, keysort"
  End If
  
  Me.subfrmActivity.Form.RecordSource = sql
  

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