Question

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

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

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

我想要实现的目标：

每条记录的注释将是连接3个备注字段的结果： [评论] = [备忘1]＆amp; [备忘录2]＆amp; [Memo3]

Answer 1

将您的表格加载为DAO.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

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

1 个答案: