Function
AddTable() As Boolean
?
объявляем объектные переменные и
константы
═════Dim
dbs As Database, tdf As TableDef, fld As Field
═════Const conPath As String = _
═══════════════"C:\Program
Files\Microsoft Ottice\Office\Samples\Northwind.mdb"
═════On
Error GoTo Err_AddTable
══════════? присваиваем текущую
базу данных переменной типа Database
═════Set
dbs = DAO. DBEngine.
Workspaces(0).OpenDatabase(conPath)
══════════? создаем таблицу и поле и
присваиваем их переменным
═════Set
tdf = dbs. CreateTableDef ("ArchivedInvoices")
═════Set fld = tdf.CreateField("OrderlD",
dbLong)
══════════? добавляем
поле в набор Fields таблицы
═════tdf.
Fields. Append fld
══════════? добавляем таблицу в
набор TableDefs базы данных
═════dbs.TableDefs.Append
tdf
═════dbs. Close
═════AddTable = True
Exit_AddTable:
═════Exit Function
Err_AddTable:
═════MsgBox "Error " & Err & ":
" & Err. Description
═════AddTable = False
═════Resume Exit_AddTable
End Function
