dmitry » Ср ноя 13, 2024 5:21 am
Если программа открыта на других компьютерах в сети, закрыть ее.
Если она работает у вас, перезапустите ее, и ничего не открывая:
1. Скопировать текст ниже.
2. В программе нажать клавиши Ctrl+F10.
3. Вставить текст, нажать ОК.
Dim Tb As DAO.TableDef = Predpr.DataMain.DBmain.TableDefs("Documents")
Dim Fld As DAO.Field = Tb.CreateField("Text_tmp", 12)
Tb.Fields.Append(Fld)
Predpr.DataMain.DBmain.Execute("UPDATE Documents SET [Text_tmp] = Documents.Text WHERE Text Is Not Null")
Tb.Fields.Delete("Text")
Fld = Tb.Fields("Text_tmp")
Fld.Name = "Text"