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

Question

我正在将数据从一个数据模型迁移到另一个数据模型,这样做我需要将一些不同的Memo字段连接成一个,以防止任何数据丢失.

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

有人可以提供一些有关如何使用VBA解决这个问题的见解.

我想要实现的例子:

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

Answer 1

将表加载为 aDAO.Recordset并更新每行中的注释字段。

尽管这是一种 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