Пример создания новой таблицы MS ACCESS методами DAO
'Пример создания таблицы методами DAO 'Создает таблицу "tblNEW" с полями: 'idSheet - последовательный счетчик 'NameSheet - текстовое поле длиной 20 символов 'DateSheet - поле типа дата, краткий формат даты Sub CreateTbl_DAO() Dim dbs As Database Dim tdf As TableDef Dim fld As Field Dim prt As Property On Error GoTo CreateTbl_ERR
Set dbs = CurrentDb() 'создаем новую таблицу Set tdf = dbs.CreateTableDef("tblNEW") 'cоздаем новое поле с типом LONG Set fld = tdf.CreateField("idSheet", dbLong) 'поле последовательный счетчик fld.Attributes = dbAutoIncrField 'добавляем созданное поле в таблицу tdf.Fields.Append fld 'создаем новое текстовое поле длинной 20 символов Set fld = tdf.CreateField("NameSheet", dbText, 20) 'поле обязательное fld.Required = True 'пустые строки не допускаются fld.AllowZeroLength = False 'добавляем созданное поле в таблицу tdf.Fields.Append fld 'создаем новое поле с типом Date Set fld = tdf.CreateField("DateSheet", dbDate) 'поле обязательное fld.Required = True 'добавляем созданное поле в таблицу tdf.Fields.Append fld 'обновляем cемейство полей созданной таблицы tdf.Fields.Refresh 'добавляем созданную таблицу в cемейство таблиц БД dbs.TableDefs.Append tdf 'обновляем cемейство таблиц dbs.TableDefs.Refresh 'указываем формат представления поля DateSheet т.е. Создаем свойство Format Set prt = fld.CreateProperty("Format", dbText, "Short Date") 'добавляем созданное свойство в cемейство свойств поля DateSheet fld.Properties.Append prt 'указываем маску ввода поля DateSheet т.е. Создаем свойство InputMask Set prt = fld.CreateProperty("InputMask", dbText, "99/99/00;0;_") 'добавляем созданное свойство в cемейство свойств поля DateSheet fld.Properties.Append prt 'обновляем cемейство свойств поля DateSheet fld.Properties.Refresh
CreateTbl_EXIT: Exit Sub
CreateTbl_ERR: MsgBox "Ошибка #: " & Format$(Err.Number) & vbCrLf & Err.Description, vbInformation, "CreateTbl" Resume CreateTbl_EXIT End Sub
Ваш коментарий будет первым