ms-access - 如何使用 VBA 连接 Access 中的备注字段？

Question

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

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

有人可以提供一些关于我应该如何使用 VBA 解决这个问题的见解吗？

我想要实现的目标示例:

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

Answer 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