如何从另一表长文本字段更新本表长文本字段且不截断超256字符内容？

Access的GUI更新查询对长文本（备注字段）存在字符数限制，会导致内容截断，以下是两种可行的解决方法：

方法一：VBA批量更新（需VBA人员协助） #

• 打开数据库后按Alt + F11打开VBA编辑器
• 右键数据库对象，选择「插入」→「模块」
• 将以下代码粘贴到模块中：

Sub UpdateLongText()
    Dim db As DAO.Database
    Dim rsCurrent As DAO.Recordset
    Dim rsNew As DAO.Recordset
    Dim strSQL As String
    
    Set db = CurrentDb()
    
    ' 读取新文本表数据
    strSQL = "SELECT system_id, new_system_text FROM tbl_new_text"
    Set rsNew = db.OpenRecordset(strSQL, dbOpenDynaset)
    
    ' 打开当前文本表用于更新
    strSQL = "SELECT system_id, current_system_text FROM tbl_current_text"
    Set rsCurrent = db.OpenRecordset(strSQL, dbOpenDynaset)
    
    ' 匹配ID并更新长文本
    Do While Not rsNew.EOF
        rsCurrent.FindFirst "system_id = " & rsNew!system_id
        If Not rsCurrent.NoMatch Then
            rsCurrent.Edit
            rsCurrent!current_system_text = rsNew!new_system_text
            rsCurrent.Update
        End If
        rsNew.MoveNext
    Loop
    
    ' 释放资源
    rsCurrent.Close
    rsNew.Close
    Set rsCurrent = Nothing
    Set rsNew = Nothing
    Set db = Nothing
    
    MsgBox "更新完成，无内容截断", vbInformation
End Sub

• 注意：如果system_id是文本类型，需把rsCurrent.FindFirst行修改为：

  rsCurrent.FindFirst "system_id = '" & rsNew!system_id & "'"
  

• 按F5运行代码，或在Access界面的宏列表中找到该子过程执行

方法二：无VBA替代方案 #

如果暂时没有VBA人员支持，可尝试手动流程：

• 备份tbl_current_text和tbl_new_text
• 将tbl_new_text导出为Excel文件（导出时选择完整保留长文本）
• 在Excel中用VLOOKUP函数匹配system_id，将new_system_text对应到原current_system_text的行
• 将更新后的Excel数据导入Access，覆盖tbl_current_text（导入时确保选择长文本类型）

关键提醒 #

• 操作前必须备份数据表，防止数据丢失
• 确保system_id是两张表的唯一匹配键，避免更新错误

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