Наверное, Вы уже научились создавать таблицу с помощью мастера, этот способ указан слева. Теперь давайте попробуем создать ее программным способом. Иногда этот способ становится более предпочтительным, чем стандартный. В качестве переменной создаваемой таблицы будем использовать имя 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 'Очищаем поток от ошибок