ник: osmor
как-то так для всех таблиц и всех полей
ну еще бы надо вычленить системные и связанные таблицы
Public Sub setFieldDescription()
Dim tbl As TableDef
Dim db As dao.Database
Dim fld As dao.Field
Dim prpNew As dao.Property
On Error GoTo Err_Property
Set db = CurrentDb
For Each tbl In db.TableDefs
For Each fld In tbl.Fields
fld.Properties("Description") = fld.name
Next
Next
Err_Property:
' Ошибка 3270 означает, что свойство не найдено.
If DBEngine.Errors(0).Number = 3270 Then
' Создает свойство, задает его значение и добавляет
' свойство в семейство Properties.
Set prpNew = fld.CreateProperty("Description", dbText, fld.name)
fld.Properties.Append prpNew
Resume Next
Else
' При возникновении другой ошибки выводит сообщение.
MsgBox "Код ошибки: " & Err.Number & vbCr & Err.Description
End If
End Sub
|
А ты что поля по русски называешь?
