添加dbSeeChanges后DAO Recordset的FindFirst触发3021错误原因咨询

底层机制变化 #

dbSeeChanges参数的核心作用是让DAO适配SQL Server的IDENTITY列特性，开启该参数后，DAO对记录集的状态校验逻辑会从“宽松”转为“严格”：

• 无dbSeeChanges时，空记录集（BOF和EOF同时为True）调用FindFirst，DAO仅会遍历空集并设置NoMatch = True，不会触发错误——此时DAO默认允许对空记录集执行查找操作，仅返回无匹配结果。
• 开启dbSeeChanges后，DAO强制要求记录集具备有效指针位置才能执行查找操作。空记录集没有可定位的记录指针，执行FindFirst时会直接抛出3021“无当前记录”错误，这是因为该参数需要DAO跟踪SQL Server的行版本和IDENTITY值变更，空记录集无法满足这个前提校验。

潜在副作用 #

• 所有Find系列方法（FindFirst/FindLast/FindNext/FindPrevious）在空记录集下都会触发3021错误，而非仅设置NoMatch。
• 对包含IDENTITY列的SQL Server表执行编辑操作时，必须指定dbSeeChanges（否则会触发“无法更新；当前已被其他用户锁定”类错误），但开启后会降低空记录集场景下的操作容错性。
• 性能层面：dbSeeChanges会让DAO与SQL Server之间增加额外的元数据同步（比如跟踪IDENTITY列的最新值），高频操作场景下可能存在微小性能开销。
• 代码逻辑需调整：执行Find方法前必须先检查记录集是否为空（Not (rst.BOF And rst.EOF)），否则会触发未捕获的运行时错误。

DAO详细技术规范参考 #

微软官方DAO文档中，以下部分明确了相关逻辑：

• Database.OpenRecordset方法的Options参数说明：详细阐述了dbSeeChanges针对SQL Server IDENTITY列的适配逻辑。
• Recordset.FindFirst方法的异常说明：明确了在记录集无有效指针时（空记录集），开启严格校验模式会触发3021错误。

代码示例 #

无参数无报错版本 #

Dim dbCurrDB As Dao.Database
Dim rstA As Recordset

Set dbCurrDB = CurrentDB
Set rstA = dbCurrDB.OpenRecordset("SomeTable", dbOpenDynaset)

With rstA
  .FindFirst "Id=1"

  If .NoMatch = False Then
    .Edit
      !SomeField = SomeValue
    .Update
  End If
End With

含参数触发错误版本 #

Dim dbCurrDB As Dao.Database
Dim rstA As Recordset

Set dbCurrDB = CurrentDB
Set rstA = dbCurrDB.OpenRecordset("SomeTable", dbOpenDynaset, dbSeeChanges)

With rstA
  .FindFirst "Id=1"

  If .NoMatch = False Then
    .Edit
      !SomeField = SomeValue
    .Update
  End If
End With

内容的提问来源于stack exchange，提问作者Maiol Salse Escudero