ник: Дядя Федор
>А любое другое текстовое (и не только) св-во с левым названием вам удалось добавить объекту Fields таблицы?
Не пробовал.
А Дискрипшин - это то, что мы пишем в конструкторе в столбце "Oписание".
(Скорее всего в англ.версии это будет столбец "Description" (!?)
Вот, например, текст программы:
Public Sub fieldstblproperties()
Dim s$
Dim fld As Field
Dim j%
Dim prp As Property
Dim rst As dao.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM TBLPRICE")
With rst
For j = 0 To rst.Fields.Count - 1
Debug.Print .Fields(j).Properties("NAME")
On Error Resume Next
Debug.Print "" & Nz(.Fields(j).Properties("Description"), ""), .Fields(j).Properties("Type")
Next
End With
Set rst = Nothing
End Sub
|
Вот результат:
IdPrice
Ключ 4
VisPrice
Признак отображения позиции 1
Cena
Внутрезаводская цена без НДС (руб) 7
IdPricePref
Префикс - Ключ 4
NaimPrice
Полное наименование 10
MemoPrice
Примечание 10
Mass
BlnSkidka
Признак применени скидки 1
CenaPrice
Цена по прайсу (руб) 7
.......
Там где было ОПИСАНИЕ, например, у поля Cena - "Внутрезаводская цена без НДС (руб)"
там выводится.
Там где нет ОПИСАНИЯ (у поля Mass) - ошибка.
Как-то так.