如何使用VBA访问中的连接备忘录

Question

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

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

有人可以提供一些有关我应该如何使用VBA解决此问题的见解。

我想实现的示例：

每个记录的评论将是串联3个备忘录字段的结果：[注释] = [memo1]＆amp;[memo2]＆amp;[memo3]

Answer 1

将表加载为DAO.Recordset，并在每一行更新注释字段。

尽管这是一个rbar（苦难行）的方法，但由于它是用于迁移的，希望您只需要一次。主要好处是它不会以文字大于255个字符的cho缩。

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