Access VBA日期比较问题 筛选逾期任务的SQL查询无返回值如何解决

问题排查及解决方案 #

核心问题点 #

• 日期拼接格式错误：Access SQL的日期字面量要求固定格式，使用Format(Now(), "short date")会跟随系统区域配置变化，极易出现日期解析错误（例如中文系统生成的2024/5/9可能被Access识别为2024年9月5日，导致筛选逻辑完全错误）。
• 未考虑用户标识的字段类型：如果TempVars("CurrentUser")存储的是文本型用户名，拼接SQL时没有加单引号包裹会触发语法错误，导致查询无返回。
• 缺少逾期任务的必要过滤逻辑：逾期任务默认是未完成的任务，原代码没有过滤已完成的任务，即使查询正常也会返回不符合预期的结果。

修正后的代码 #

情况1：TempVars("CurrentUser")为数字型用户ID

' 使用Date()替代Now()，仅取当前日期，避免时间部分干扰
strRowSource = "SELECT [ID],[TaskType],[TaskName],[StartDate],[EndDate],[isFinished] " & _
"FROM tblTasks " & _
"WHERE [Person] = " & TempVars("CurrentUser") & _
" AND [EndDate] < #" & Format(Date, "yyyy-mm-dd") & "#" & _
" AND [isFinished] = FALSE;"

情况2：TempVars("CurrentUser")为文本型用户名

' 用单引号包裹用户名，同时处理用户名内的单引号避免语法错误
strRowSource = "SELECT [ID],[TaskType],[TaskName],[StartDate],[EndDate],[isFinished] " & _
"FROM tblTasks " & _
"WHERE [Person] = '" & Replace(TempVars("CurrentUser"), "'", "''") & "'" & _
" AND [EndDate] < #" & Format(Date, "yyyy-mm-dd") & "#" & _
" AND [isFinished] = FALSE;"

验证方法 #

拼接完成后执行Debug.Print strRowSource，将输出的SQL语句复制到Access的查询设计器中直接运行，即可快速定位是否还有语法错误或数据匹配问题。

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