DoCmd.OpenReport为何无法正确处理日期筛选参数？

看起来你在Access里用日期范围筛选报表时踩了几个VBA条件字符串的常见坑，我来帮你理清问题所在，直接给你可行的解决方案：

正确的代码实现 #

首先确保你获取的日期值是正确的日期类型，然后构建筛选条件时严格遵循Access的日期格式规则：

dateFrom = Forms!formOptions!txtDateFrom.Value
dateTo = Forms!formOptions!txtDateTo.Value

' 核心要点：用#包裹日期值，字段名不要加引号，同时格式化日期避免区域适配问题
strCriteria = "[ActionTime] >= #" & Format(dateFrom, "yyyy-mm-dd") & "# And [ActionTime] <= #" & Format(dateTo, "yyyy-mm-dd") & "#"
DoCmd.OpenReport "reportLog", acViewReport, , strCriteria

为什么你的之前写法会出错？ #

我逐个分析你尝试过的错误案例：

• 第一种写法（单引号包裹日期）：

  strCriteria = "[ActionTime] >= '" & dateFrom & "' And [ActionTime] <= '" & dateTo & "'"
  

  Access里日期值必须用#包裹，用单引号'会让Access把日期当成文本字符串，而你的ActionTime是日期字段，文本与日期类型不匹配，导致Access无法解析条件，所以弹出「输入参数值」对话框。

• 第二种写法（字段名加单引号）：

  strCriteria = "'[ActionTime]' >= '" & dateFrom & "' And '[ActionTime]' <= '" & dateTo & "'"
  

  你给字段名[ActionTime]加了单引号后，Access会把它当成一个字符串常量，而不是数据库字段。相当于你在判断字符串"[ActionTime]"是否在日期范围内，这显然逻辑错误，所以报表会显示所有记录。

• 第三种写法（WhereCondition加外层单引号）：

  DoCmd.OpenReport "reportLog", acViewReport, , WhereCondition:="'[ActionTime] >= #" & dateFrom & "# AND [ActionTime] <= #" & dateTo & "#'"
  

  你把整个筛选条件用单引号包裹后，Access会把这个参数当成普通字符串，不会解析成筛选规则，相当于没有设置任何筛选，自然显示所有记录。

额外提醒 #

用Format(dateFrom, "yyyy-mm-dd")格式化日期是为了规避区域设置的影响——不同地区系统的日期格式（比如mm/dd/yyyy vs dd/mm/yyyy）可能导致Access识别错误，统一用yyyy-mm-dd格式是最稳妥的做法。

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