Public Sub tstfieldstblproperties()
Dim s$
Dim fld As Field
Dim j%
Dim prp As dao.Property
Dim rst As dao.Recordset
Dim db As Database
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT * FROM TBLPRICE")
With rst
For j = 0 To rst.Fields.Count - 1
'Выводим имя поля
Debug.Print .Fields(j).Properties("NAME")
On Error GoTo 1 'Если нет описания - создаем
'Выводим ОПИСАНИЕ (Description) поля
Debug.Print "" & Nz(.Fields(j).Properties("Description"), ""), .Fields(j).Properties("Type")
GoTo 2
1:
' можно запросить msgbox-ом, но для простоты:
SetAccessProperty db.TableDefs("TblPrice").Fields(j), "Description", dbMemo, "тут пишем описание"
2:
Next
End With
Set rst = Nothing
End Sub
|