Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
ОГРОМНОЕ СПАСИБО!!!!
ВСЁ ПОПЁРЛО,,,

Public Sub setFieldDescription() ' пренос наименований в описания Dim tbl As TableDef Dim db As DAO.Database Dim fld As DAO.Field Dim f As Long Dim prpNew As DAO.Property   On Error GoTo Err_Property Set db = CurrentDb For Each tbl In db.TableDefs If Left(tbl.Name, 4) = "MSys" Then GoTo dalee If Left(tbl.Name, 4) = "~TMP" Then GoTo dalee     For Each fld In tbl.Fields         fld.Properties("Description") = fld.Properties("Caption")     Next dalee: Next Err_Property: ' Ошибка 3270 означает, что свойство не найдено.     If DBEngine.Errors(0).Number = 3270 Then         ' Создает свойство, задает его значение и добавляет         ' свойство в семейство Properties.         Set prpNew = fld.CreateProperty("Description", dbText, fld.Properties("Caption"))         fld.Properties.Append prpNew         Resume Next     Else         ' При возникновении другой ошибки выводит сообщение.               MsgBox "Код ошибки: " & Err.Number & vbCr & Err.Description                 End If End Sub Private Sub Кнопка0_Click() setFieldDescription End Sub