dmitry » Ср апр 13, 2022 4:39 am
Закройте программу на других компьютерах, где работают с этой базой данных. Потом:
- Скопировать текст ниже.
- Нажать в программе Ctrl+F10,
- вставить текст, нажать "ОК".
Dim Tb As DAO.TableDef = Predpr.DataMain.DBmain.TableDefs("Articles")
Dim Fld As DAO.Field = Tb.CreateField("Memo_tmp", 12)
Tb.Fields.Append(Fld)
Predpr.DataMain.DBmain.Execute("UPDATE Articles SET [Memo_tmp] = Articles.Memo WHERE Memo Is Not Null")
Tb.Fields.Delete("Memo")
Fld = Tb.Fields("Memo_tmp")
Fld.Name = "Memo"
Если появится сообщение, что эта таблица сейчас используется, может быть проще перезагрузить сервер и повторить.