ник: Мария
Мой фрагмент:
Dim DataBase_Data As Database
Dim sBase As String
Dim MyTable As DAO.TableDef
sBase = ПутьКДанным
Set DataBase_Data = OpenDatabase(sBase)
Set MyTable = DataBase_Data.TableDefs("МояТаблица")
MyTable.Fields("МоеПоле").DefaultValue = НовоеЗначение
Ругается на последнюю строку. При наведении курсора на MyTable.Fields("МоеПоле").DefaultValue показывает установленное ранее значение. Не могу найти ошибку.