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 'Очищаем поток от ошибок

Содержание раздела

---

---