带长文本字段的After Delete宏无法写入历史表问题咨询

这种情况我碰到过好几次，宏对长文本（Long Text，也就是旧版的Memo字段）的支持确实有点坑，没报错但不写入大概率是字段处理逻辑或者宏的局限性导致的，咱们一步步排查解决：

1. 先确认字段类型完全匹配 #

先打开两个表的设计视图，仔细核对：

• 确保LABELS和LABELS_HISTORY的DESCRIPTION字段都是**长文本（Long Text）**类型，不要一个是长文本一个是短文本；
• 检查该字段的约束：比如是否设置了「仅追加」「有效性规则」，或者是否不允许空值（如果原记录的DESCRIPTION可能为空的话），这些都可能阻止写入。

2. 检查宏的操作逻辑与错误设置 #

如果你的宏用的是Append Record操作：

• 打开宏设计器，仔细核对Append Record里的字段映射，确保DESCRIPTION字段正确关联到了原记录的DESCRIPTION，有时候因为字段名太长或者排版问题，容易漏选或映射错误。

如果用的是RunSQL操作：

• Access的SQL对长文本字段的直接写入支持有限，而且宏的RunSQL默认不会抛出错误（即使执行失败）。你可以先把宏的错误处理改成「提示」：点击宏设计视图的「设计」选项卡→「宏选项」，把错误处理设为「提示」，再测试删除，就能看到具体的错误信息了。

3. 替换为VBA事件过程（最可靠的方案） #

宏的调试能力太弱，换成VBA不仅能精准控制字段复制，还能捕获错误原因。步骤如下：

1. 打开LABELS表的设计视图，切换到「事件」选项卡；
2. 找到「删除后」事件，点击旁边的省略号，选择「代码生成器」进入VBA编辑器；
3. 写入以下代码：

Private Sub Form_AfterDelConfirm(Status As Integer)
    ' 仅在删除操作确认成功后执行
    If Status = acDeleteOK Then
        On Error GoTo ErrHandler
        
        ' 打开历史表的记录集
        Dim rsHistory As Recordset
        Set rsHistory = CurrentDb.OpenRecordset("LABELS_HISTORY", dbOpenDynaset)
        
        ' 获取刚删除的记录（通过RecordsetClone定位）
        Dim rsDeleted As Recordset
        Set rsDeleted = Me.RecordsetClone
        rsDeleted.Bookmark = Me.LastModified
        
        ' 写入历史表
        rsHistory.AddNew
        rsHistory!CODE = rsDeleted!CODE
        rsHistory!VALUE = rsDeleted!VALUE
        rsHistory!DESCRIPTION = rsDeleted!DESCRIPTION ' 这里直接复制长文本字段
        rsHistory.Update
        
        ' 清理资源
        rsHistory.Close
        rsDeleted.Close
        Set rsHistory = Nothing
        Set rsDeleted = Nothing
    End If
    Exit Sub

ErrHandler:
    MsgBox "写入历史表失败：" & Err.Description, vbExclamation
End Sub

这段代码直接通过Recordset操作字段，完美支持长文本类型，还加了错误捕获，能直接告诉你哪里出问题。

额外排查点 #

如果还是不行，检查LABELS_HISTORY的主键设置：比如如果历史表把CODE设为主键，重复删除同一个CODE的记录就会静默失败（宏不会提示），这时候可以给历史表加一个自增主键，或者把主键改成CODE+时间戳这类组合键。

内容的提问来源于stack exchange，提问作者s.d.90