Access VBA宏问题：动态列间数据计数的SQL语法错误求助

Access中以日期作为字段名时，动态引用需要严格遵循标识符格式要求，尤其是日期含横杠这类特殊字符时，必须用正确的方式包裹字段名。以下是针对你问题的具体修正方案：

核心问题分析 #

你原代码中EVOLUTIVO_ASISTENCIA.[" & INICIO_MES_VAR1 & "]的错误在于：直接拼接字符串时，未正确处理字段名的标识符规则，且未确保变量值与表中字段名完全匹配。

修正方案 #

1. 确保日期变量与字段名格式完全一致 #

首先要保证从表单获取的日期，转换为和表中字段名完全相同的字符串格式。比如表中字段名为01-01-2023（日-月-年），需用Format函数统一格式：

' 假设表单上的日期控件名为txtStartDate
Dim INICIO_MES_VAR1 As String
INICIO_MES_VAR1 = Format(Me.txtStartDate, "dd-mm-yyyy") ' 格式需与表字段名严格匹配

2. 动态引用字段的正确写法 #

场景1：操作DAO记录集

如果是遍历记录集获取字段值，直接通过Fields方法传入字段名字符串即可：

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("EVOLUTIVO_ASISTENCIA")

If Not rs.EOF Then
    ' 直接通过字段名字符串引用
    Dim fieldVal As Variant
    fieldVal = rs.Fields(INICIO_MES_VAR1).Value
End If

rs.Close

场景2：构建SQL查询统计数据

统计两个日期列间的数据时，用SQL聚合查询更高效，注意用[]包裹日期字段名：

Dim endDateField As String
endDateField = Format(Me.txtEndDate, "dd-mm-yyyy")

' 示例：计算两个日期字段的差值之和
Dim sqlStr As String
sqlStr = "SELECT SUM([" & endDateField & "] - [" & INICIO_MES_VAR1 & "]) AS TotalDifference " & _
         "FROM EVOLUTIVO_ASISTENCIA"

Dim sumRs As DAO.Recordset
Set sumRs = CurrentDb.OpenRecordset(sqlStr)

If Not sumRs.EOF Then
    MsgBox "总计差值：" & sumRs!TotalDifference
End If

sumRs.Close

3. 优化建议 #

尽量避免用日期作为字段名，这种设计不符合关系型数据库规范，会大幅增加后续维护难度。建议重构表结构：新增日期字段存储日期值，新增数值字段存储对应数据，后续查询会更灵活。

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