С. Создание полей таблицы
Создание полей с помощью программы является важным элементом программирования баз данных. Так как в складском и бухгалтерском учете очень сложно учесть все поля таблиц из-за часто меняющихся требований к учету, естественно Вы должны предусмотреть в своих программах изменение базы данных различных версий по шаблону (метод называется репликацией).
В данном примере в таблицу «Калькулятор», переменная strTable, добавляются два новых поля Выражение и Итог, а также изменяются свойства поля Пункт
Public Function funCreateFields(strTable As String) As Boolean
Dim dbs As Database, tdf As TableDef, fld As Field
On Error GoTo 999 'Назначаем переход по ошибке
funCreateFields = False 'Возвращаем результат при ошибке
Set dbs = appAccess.CurrentDb ‘Определяем базу данных
Set tdf = dbs.TableDefs(strTable) 'Находим таблицу
With tdf 'Выбираем таблицу для изменения
.Fields.Append .CreateField("Выражение", dbText, 75) 'Создаем поле Выражение
.Fields.Append .CreateField("Итог", dbDouble) 'Создаем поле Итог
End With
Set fld = tdf.Fields("Пункт") 'Изменяем свойства поля "Пункт"
funChangeProperty fld, "Description", dbText, "Номер выражения в калькуляторе" 'Изменяем описание
funChangeProperty fld, "Format", dbText, "Fixed" 'Назначаем фиксированный формат
funChangeProperty fld, "DecimalPlaced", dbByte, 0 'Отключаем десятичные знаки
Set fld = Nothing 'Уничтожаем переменную поля
Set tdf = Nothing 'Уничтожаем переменную таблицы
funCreateFields = True 'Возвращаем результат
Exit Function 'Выходим из программы
999:
MsgBox Err.Description, vbCritical, "Создание таблицы" 'Сообщаем об ошибке
Err.Clear 'Очищаем поток от ошибок
End Function
08.06.2000 Виктор Конюков, mailto:LiderAccess@bigfoot.com
