@bc |
---|
Да, именно так Прошу прощения за вопрос, вчера именно этим методом пробовал не получалось |
что-то не так делали, или пытались читать/менять с НЕсуществующие свойства
Sub tst()
On Error GoTo err1
Dim db As DAO.Database: Set db = CurrentDb
db.Execute "create table t1 (f1 long, f2 text(50))"
Dim tb As DAO.TableDef: Set tb = db.TableDefs("t1")
With tb.Fields("f1")
'создать свойства поля
.Properties.Append .CreateProperty("Description", dbText, "описание поля f1")
.Properties.Append .CreateProperty("Caption", dbText, "F_1")
Debug.Print 1, .Properties("Caption"), .Properties("Description")
'изменить значения ранее созданных свойств поля
.Properties("Description") = "более другое описание поля f1"
.Properties("Caption") = "поле_F1"
Debug.Print 2, .Properties("Caption"), .Properties("Description")
End With
Exit Sub
err1:
MsgBox Err.Description, vbExclamation, Err.Number
Exit Sub
End Sub