Как объединить поля Memo в Access с помощью VBA?

Question

Я переношу данные из одной модели данных в другую, и при этом мне нужно объединить несколько разных полей Memo в один, чтобы предотвратить потерю данных.

Я не очень хорошо знаком с VBA, но я понимаю, что использование запроса Update ограничивает мои поля Memo 255 символами.

Может кто-то, пожалуйста, дать некоторое представление о том, как я должен заниматься этим с помощью VBA.

Пример того, что я хотел бы достичь:

комментарии к каждой записи будет результатом конкатенации 3 Memo поля: [комментарии] = [Memo1] & [Memo2] & [Memo3]

Answer 1

Загрузите таблицу как DAO.Recordset и обновите Комментарии Поле в каждой строке.

Несмотря на то, что это подход RBAR (row by agonizing row), поскольку он предназначен для миграции, мы надеемся, что это будет то, что вам нужно сделать только один раз. Главное преимущество заключается в том, что он не будет задыхаться с текстовыми суммами, превышающими 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