Изменение свойств поля таблицы в VBA

20.06.2006, 20:41. **Показов** 7695. **Ответов** 2

Подскажите пожалуйста. Столкнулся с такой проблемой: необходимо програмно изменить имя поля таблицы и затем установить необходимое количество знаков после запятой для этого поля. для реализации использую следующий код.

Visual Basic

  Dim fld As DAO.field
  Dim prop As DAO.Property
  Dim td As TableDef
 
  Set td = dbMyDB1.TableDefs("Таблица1")
  td.Fields("Поле0").Name = "Поле1"
 
  Set fld = td.Fields("Поле1") 
  Set prop = fld.CreateProperty("Format", dbText, "Standard")
  fld.Properties.Append prop
  Set prop = fld.Properties("Format")
  prop.Value = "Standard"
  Set prop = fld.CreateProperty("DecimalPlaces", dbByte, 2)
  fld.Properties.Append prop
  Set prop = fld.Properties("DecimalPlaces")
  prop.Value = 2
  
  fld.Properties.Refresh

Проблема заключается в том, что если отдельно выполнить часть кода которая соответствует установке количества знаков после запятой, то все работает нормально. Но если, как в приведеном коде, сначала изменить имя, а потом устанавливать свойства, то свойства не устанавливаются. При этом сообщение об ошибке не выдается. Подскажите в чем ошибка.

@BoNiM · 20.06.2006, 23:14

Попробуй после переименования поля

Visual Basic

1	td.Fields("Поле0").Name = "Поле1"

по-новой выполнить

Visual Basic

1 2	Set dbMyDB1 = ... ' Не знаю, что здесь у тебя находиться Set td = dbMyDB1.TableDefs("Таблица1")

21.06.2006, 13:39

Спасибо, все работает

Andrew1
	21.06.2006, 13:39	3
	Спасибо, все работает

Опции темы