MS Access VBA实现审计日志时OpenRecordset行报Error 3001如何解决

错误3001触发原因 #

3001错误的本质是你向OpenRecordset方法传入了无效参数，核心问题是混用了DAO和ADO两套数据访问对象的规则：

• 你代码中声明的Database、Recordset都是Access默认的DAO库对象，而你传入的adOpenDynamic是ADO库的游标常量，DAO不识别该常量。如果你没有主动引用ADO库，这个常量甚至属于未定义变量，默认值为0，完全不符合DAO方法的参数要求。

修复方案 #

将故障行的adOpenDynamic替换为DAO对应的常量dbOpenDynaset，同时建议给对象声明加上明确的DAO前缀，避免后续对象混淆：

' 变量声明增加DAO前缀
Dim DB As DAO.Database
Dim rst As DAO.Recordset

' 故障行修改为以下两种写法均可
Set rst = DB.OpenRecordset("SELECT * from tbl_AuditLog", dbOpenDynaset)
' 更简单的写法：你只需要新增日志，不需要查询全表，直接打开表即可
Set rst = DB.OpenRecordset("tbl_AuditLog", dbOpenDynaset)

其他代码问题修复 #

• 拼写错误：遍历控件的判断条件中ctl.controltpe拼写错误，应为ctl.ControlType，否则会触发类型不匹配错误。建议在所有模块顶部添加Option Explicit开启强制变量声明，系统会自动提示这类拼写错误。
• 错误处理逻辑缺陷：当前代码正常执行完成后会直接落入错误处理分支弹出无效提示，需要在正常流程末尾、错误处理标签前添加Exit Function，修正后结构如下：

rst.Close
DB.Close
Set rst = Nothing
Set DB = Nothing

Exit Function ' 新增这行，正常执行完直接退出，不进入错误处理逻辑

AuditErr:
    MsgBox Err.Number & " : " & " Unable to create audit log " & Err.Description
End Function

• 字段匹配校验：请确认tbl_AuditLog表存在，且表中字段名和代码中引用的EditDate、User、FormName、Action、RecordID、FieldName、OldValue、NewValue完全一致，类型匹配。

VBA学习建议 #

• 先理清Access VBA的基础对象模型，重点区分DAO和ADO的适用场景、常用属性方法差异。
• 掌握窗体常用事件的触发逻辑，尤其是BeforeUpdate这类可取消的事件的执行规则。
• 养成规范的错误处理、变量声明习惯，避免低级语法错误。

内容的提问来源于stack exchange，提问作者Christopher J. Joubert