Access VBA操作Record Set报错‘No Current Record’求助

我来帮你搞定这个问题！你遇到的“No Current Record”提示，本质是你的SQL查询没有找到任何匹配的记录，所以后续的rs.Edit和rs.Update操作自然会报错。咱们从几个关键点排查修复：

1. 先揪出SQL语句里的空格bug #

看你代码里的查询条件：

"SELECT * FROM tbl_Suggestions_Historic WHERE ID = ' " & ID & " '"

这里单引号和变量ID之间多了不必要的空格！比如如果你的ID是1001，生成的SQL会变成：

SELECT * FROM tbl_Suggestions_Historic WHERE ID = ' 1001 '

这会去查找ID值为" 1001 "（带前后空格）的记录，而你的实际ID肯定是没有空格的，自然查不到匹配项。把空格去掉就好：

"SELECT * FROM tbl_Suggestions_Historic WHERE ID = '" & ID & "'"

2. 注意ID字段的数据类型 #

如果你的tbl_Suggestions_Historic里的ID字段是数字类型（比如AutoNumber自动编号），那SQL里根本不需要加单引号！单引号是给文本类型字段用的，数字类型直接写变量就行：

"SELECT * FROM tbl_Suggestions_Historic WHERE ID = " & ID

如果ID是文本类型，就保留单引号但务必去掉前后的空格。

3. 加个记录存在的判断（很重要） #

就算修复了SQL，也可能存在找不到记录的情况（比如ID输入错误），所以最好先判断记录集是否有内容，再执行更新操作：

修正后的完整代码（分两种情况） #

情况1：ID是文本类型

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
' 去掉单引号与变量间的空格
Set rs = db.OpenRecordset("SELECT * FROM tbl_Suggestions_Historic WHERE ID = '" & ID & "'")

' 先判断是否找到记录
If Not rs.EOF Then
    rs.Edit
    rs("Status") = "Closed By User"
    rs("ReasonClosed") = ClosedWhy
    rs.Update
    MsgBox "记录更新成功！"
Else
    MsgBox "未找到匹配ID的记录，请检查ID值！"
End If

' 别忘了释放对象
Set rs = Nothing
Set db = Nothing

情况2：ID是数字类型

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
' 数字类型无需单引号
Set rs = db.OpenRecordset("SELECT * FROM tbl_Suggestions_Historic WHERE ID = " & ID)

If Not rs.EOF Then
    rs.Edit
    rs("Status") = "Closed By User"
    rs("ReasonClosed") = ClosedWhy
    rs.Update
    MsgBox "记录更新成功！"
Else
    MsgBox "未找到匹配ID的记录，请检查ID值！"
End If

Set rs = Nothing
Set db = Nothing

调试小技巧 #

如果你不确定SQL是否正确，可以在代码里加一行打印语句：

Debug.Print "SQL语句：SELECT * FROM tbl_Suggestions_Historic WHERE ID = '" & ID & "'"

然后打开VBA编辑器的立即窗口（按Ctrl+G），复制打印出来的SQL语句到Access的查询设计里直接运行，就能直观看到是否返回记录了。

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