如何使用 VBA 在 Access 中连接备注字段？答案

【问题标题】：How do I concatenate Memo fields in Access using VBA?如何使用 VBA 在 Access 中连接备注字段？
【发布时间】：2015-05-05 18:53:52
【问题描述】：

我正在将数据从一种数据模型迁移到另一种数据模型，在此过程中，我需要将多个不同的备忘录字段连接到一个数据模型中，以防止任何数据丢失。

我对 VBA 不是很熟悉，但我知道使用更新查询会将我的备注字段限制为 255 个字符。

谁能提供一些关于我应该如何使用 VBA 解决这个问题的见解。

我想要实现的示例：

每条记录的 cmets 将是连接 3 个备注字段的结果： [评论] = [备忘录1] & [备忘录2] & [备忘录3]

【问题讨论】：

标签： ms-access vba

【解决方案1】：

将您的表格加载为DAO.Recordset 并更新每一行中的Comments 字段。

虽然这是一种 RBAR（逐行痛苦）方法，但由于它是用于迁移的，因此希望它是您只需要执行一次的操作。主要好处是它不会被超过 255 个字符的文本阻塞。

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("YourTable", dbOpenTable)
With rs
    Do While Not .EOF
        .Edit
        !Comments.Value = !Memo1.Value & !Memo2.Value & !Memo3.Value
        .Update
        .MoveNext
    Loop
    .Close
End With

【讨论】：

谢谢！我花了更多的时间来考虑如何解决这个问题。非常感谢。
不客气。欢迎来到 Stack Overflow。 :-)
我想在我的评论字段中添加一些澄清文本（即检测方法：Memo1）和空格，但前提是我的备忘录 1、2 和3个字段。解决这个问题的最佳方法是什么？
没关系！我想通了。谢谢你的帮助。 :)