Access VBA添加WHERE子句触发Run-time error '3061'问题求助

错误原因 #

你遇到的Run-time error '3061: Too few parameters. Expected 1'，是因为Access的SQL引擎无法识别WHERE子句中的Adate——这是VBA本地变量，不是数据表字段，SQL会将其视为未定义的查询参数，因此报错。

解决方案 #

方法1：参数化查询（推荐） #

参数化查询是最安全、最可靠的方式，能避免日期格式问题和SQL注入风险：

Sub RentalCalc()
    Dim db As Database
    Dim rs As DAO.Recordset
    Dim qdf As QueryDef
    Dim Adate As Date
    
    Adate = #4/24/2023# ' VBA中日期用#包裹更规范

    Set db = CurrentDb
    ' 创建临时参数化查询
    Set qdf = db.CreateQueryDef("", "SELECT [Reservation_Date], [HITAT_Rate] FROM TBL_Rate_Schedule WHERE [Reservation_Date] = [prm_Adate]")
    ' 为参数赋值
    qdf.Parameters("prm_Adate") = Adate
    ' 打开筛选后的记录集
    Set rs = qdf.OpenRecordset()

    Debug.Print Adate
    ' 判断是否有匹配记录，避免空记录集报错
    If Not rs.EOF Then
        Debug.Print rs![Reservation_Date]
        Debug.Print rs![HITAT_Rate]
    Else
        Debug.Print "未找到匹配日期的记录"
    End If
    
    ' 释放对象
    rs.Close
    Set rs = Nothing
    Set qdf = Nothing
    Set db = Nothing
End Sub

方法2：拼接符合SQL规范的日期字符串 #

如果不想用参数化，需要将VBA日期变量转换为Access SQL能识别的格式（用#包裹，推荐yyyy-mm-dd格式避免区域设置问题）：

Sub RentalCalc()
    Dim db As Database
    Dim rs As DAO.Recordset
    Dim Adate As Date
    Dim strSQL As String
    
    Adate = #4/24/2023#

    Set db = CurrentDb
    ' 拼接SQL语句，将VBA日期转为SQL可识别格式
    strSQL = "SELECT [Reservation_Date], [HITAT_Rate] FROM TBL_Rate_Schedule WHERE [Reservation_Date] = #" & Format(Adate, "yyyy-mm-dd") & "#"
    Set rs = db.OpenRecordset(strSQL)

    Debug.Print Adate
    If Not rs.EOF Then
        Debug.Print rs![Reservation_Date]
        Debug.Print rs![HITAT_Rate]
    Else
        Debug.Print "未找到匹配日期的记录"
    End If
    
    ' 释放对象
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

额外优化点 #

• 原代码中Set rs = db.OpenRecordset("TBL_Rate_Schedule")是多余的，直接删除即可，因为后续会重新给rs赋值。
• 始终判断rs.EOF：如果WHERE子句筛选后没有匹配记录，直接访问记录集字段会触发新的运行时错误。

内容的提问来源于stack exchange，提问作者Barry D. Eisemann