Свойство таблицы MS Access

[mnzol]

В конструкторе таблиц есть колонка "Описание", а вот как получить ее значение в VB?

[Gloom]

Код: Выделить всё

    Dim db As DAO.Database
    Dim tbl As DAO.TableDef
    Dim strDescr As String
   
    Set db = CurrentDb()
    Set tbl = db.TableDefs(ИмяТаблицы)
    On Error Resume Next
    strDescr = tbl.Properties("Description")
    If Err.Number = 3270 Then 'property was not found
        MsgBox "Нет описания"
    Else
        MsgBox "Описание: " & strDescr
    End If

[Tatyanka]

Gloom, это описание таблицы, а как получить описание поля таблицы?

[alibek]

tbl.Fields().Properties("Description") пробовала?

[Tatyanka]

tbl.Fields().Properties("Description") пробовала?

Уже попробовала, оказалось, совсем рядом ходила Спасибо!