OpenRecordset未应用查询参数，Access报3061错误日期筛选失效问题

问题根因 #

• 参数赋值时使用CStr()将日期转为字符串，Access进行条件匹配时会按照文本规则而非日期规则执行比较，仅当日期完全匹配时才能返回正确结果，范围匹配时逻辑失效
• 刚打开DAO记录集直接读取RecordCount属性，未移动游标时返回值不准确，容易误判为筛选未生效
• 若系统短日期格式与Access查询默认解析格式不一致，字符串转日期的隐式转换会出现逻辑错误

修复方案 #

1. 修改参数赋值逻辑 #

删除CStr()转换，直接传入日期类型的值：

' 原错误代码
' qdf.Parameters("[forms]![frmReporting]![txtDateFrom]") = CStr([Forms]![frmReporting]![txtDateFrom])
' qdf.Parameters("[forms]![frmReporting]![txtDateTo]") = CStr([Forms]![frmReporting]![txtDateTo])

' 修改为
qdf.Parameters("[forms]![frmReporting]![txtDateFrom]") = CDate([Forms]![frmReporting]![txtDateFrom])
qdf.Parameters("[forms]![frmReporting]![txtDateTo]") = CDate([Forms]![frmReporting]![txtDateTo])

2. 修正记录数读取逻辑 #

读取RecordCount前先移动游标到记录集末尾，确保计数准确：

Set rs = qdf.OpenRecordset(dbOpenDynaset, dbSeeChanges)

' 新增游标移动逻辑
If Not rs.EOF Then
    rs.MoveLast
    rs.MoveFirst
End If

MsgBox rs.RecordCount

（可选）显式声明查询参数 #

在原查询语句最开头添加参数声明，避免参数匹配错误：

PARAMETERS [forms]![frmReporting]![txtDateFrom] DateTime, [forms]![frmReporting]![txtDateTo] DateTime;
SELECT DISTINCT 
    tblComp_Payout.Agent_ID_int As [Agent ID],
    tblExchOffices.Agent_Name AS Name
FROM
    tblExchOffices 
INNER JOIN 
    tblComp_Payout ON tblExchOffices.Agent_ID_int = tblComp_Payout.Agent_ID_int
WHERE 
    ((DateValue([Paid_Date])) >= ([forms]![frmReporting]![txtDateFrom])
    AND (DateValue([Paid_Date]))<=[forms]![frmReporting]![txtDateTo])

UNION 

SELECT DISTINCT 
    tblComp_Sending.Agent_ID_int AS [Agent ID],
    tblExchOffices.Agent_Name AS Name
FROM
    tblExchOffices 
INNER JOIN 
    tblComp_Sending ON tblExchOffices.Agent_ID_int = tblComp_Sending.Agent_ID_int
WHERE 
    ((DateValue([Sending_Date])) >= ([forms]![frmReporting]![txtDateFrom])
    AND (DateValue([Sending_Date]))<=[forms]![frmReporting]![txtDateTo]);

注意事项 #

若表单日期控件允许输入带时间的内容，赋值时可以额外用DateValue()截取日期部分，避免时间部分导致的范围匹配误差：

qdf.Parameters("[forms]![frmReporting]![txtDateFrom]") = DateValue(CDate([Forms]![frmReporting]![txtDateFrom]))
qdf.Parameters("[forms]![frmReporting]![txtDateTo]") = DateValue(CDate([Forms]![frmReporting]![txtDateTo]))

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