Access后端迁移至SQL Server后表单自动编号报错如何修复

开发者阿泽

2026-8-29

问题根因

报错来自Access本地数据库和SQL Server的自增字段生成逻辑差异，和VBA语法本身无关：

原生Access表的自动编号字段，只要新记录进入编辑状态（比如点进First Name文本框开始输入）就会提前分配编号，哪怕最后记录没保存，这个编号也会被消耗
SQL Server的IDENTITY自增字段，只有记录被正式提交插入到数据库之后才会生成值，你在编辑未保存的新记录阶段读取Me.Form_AutoN，拿到的只能是Null值，把Null赋值给绑定了非空主键的Me.FormcID，自然会触发「不能给非Variant类型变量赋Null值」的错误。

修复方案

按稳定性优先级排序：

最优方案：彻底取消前端手动给cID赋值的逻辑，主键完全交给SQL Server托管
1. 先在SQL Server侧确认目标表的cID字段已经设置为INT IDENTITY(1,1)主键，收回该字段的前端写入权限
2. 把Access表单里cID、AutoNumber对应的文本框设为锁定状态，禁止用户和VBA代码手动修改这两个字段
3. 删除原来绑定在First Name文本框焦点/输入事件上的UpdatecID调用，不需要手动同步两个字段的值——只要Access正确识别到cID是SQL Server的自增列，记录插入成功后会自动拿到值。如果需要在插入后立刻获取cID做后续操作，把逻辑写在表单的AfterInsert事件里即可，示例：

Private Sub Form_AfterInsert()
    ' 记录提交成功后刷新，拿到SQL Server生成的自增ID
    Me.Requery
    ' 后续操作直接取Me.cID即可，此时已经是有效值
End Sub

临时兼容方案：如果暂时没法调整表结构，先给原有代码加Null判断兜底
把原来的UpdatecID函数改成如下逻辑，同时把触发时机从「点击First Name文本框」改成「表单保存记录前」，不要在编辑未开始的阶段就调用：

Public Function UpdatecID()
    ' 先判断自增编号已经生成，再执行赋值
    If Not IsNull(Me.Form_AutoN) Then
        If IsNull(Me.FormcID) Or Me.FormcID = 0 Then
            Me.FormcID = Me.Form_AutoN
        End If
    End If
End Function

必做配置校验
打开Access的链接表管理器，选中对应SQL Server表执行刷新链接操作。如果刷新后Access还是识别不到cID是自增字段，就删掉原有链接表重新创建链接，链接时手动指定cID为主键，确保Access不会把自增字段识别成普通数值字段。

提醒：不要强行模拟Access本地库「输入第一个字段就提前生成编号」的旧逻辑，SQL Server本身不支持未提交事务提前分配自增ID，自己写序列生成逻辑很容易在多用户并发场景下出现主键重复问题，稳定性远不如用数据库原生自增主键。

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