a. Создание таблицы

 

     Наверное, Вы уже научились создавать таблицу с помощью мастера, этот способ указан слева.

     Теперь давайте попробуем создать ее программным способом. Иногда этот способ становится более предпочтительным, чем стандартный. В качестве переменной создаваемой таблицы будем использовать имя StrTable = «Калькулятор»

 

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

End Function