Public Function funCreateTable(strTable As String) As Boolean

Dim dbs As Database, tdf As TableDef

    On Error GoTo 999 'Назначаем переход по ошибке

    funCreateTable = False 'Возвращаем результат при ошибке

    If funVerifyTable(strTable) = False Then 'Проверяем таблицу

        Set dbs = appAccess.CurrentDb 'Находим базу данных

        Set tdf = dbs.CreateTableDef(strTable)  'Создаем таблицу

        tdf.Fields.Append tdf.CreateField("Пункт", dbLong) 'Создаем 1 поле

        dbs.TableDefs.Append tdf 'Добавляем таблицу

        funCreateFields strTable '<3> Создаем поля

        funCreateTable = True 'Возвращаем результат

    End If

    Exit Function

999:

    MsgBox Err.Description, vbCritical, "Создание таблицы" 'Сообщаем красиво об ошибке

    Err.Clear 'Очищаем поток от ошибок

Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---

---

---