Курсовая работа: Разработка информационной системы средствами СУБД Access

'переход на следующую запись

rst.MoveNext

'конец цикла

Loop

End Sub

Написать процедуру создания таблицы Список категорий (структура таблицы аналогична таблице Категории) и ввода в нее записей.

Private Sub Кнопка3_Click()

Dim dbs As DAO.Database

Dim rst As DAO.TableDef

Dim Fiel1 As DAO.Field

Dim Fiel2 As DAO.Field

Dim rstt As DAO.Recordset

Dim indi As DAO.Index

Set dbs = CurrentDb()

'создание таблицы

Set rst = dbs.CreateTableDef("Список категорий")

'описание первого поля Fiel1

Set Fiel1 = rst.CreateField("Категория", dbText, 25)

'добавление поля Fiel1 в семеКатегорияйство полей таблицы tb1

rst.Fields.Append Fiel1

'описание второго поля Fiel2

SetFiel2 = rst.CreateField("Стоимость часа работы", dbText, 25)

'добавление поля Fiel2 в семейство полей таблицы tb1

rst.Fields.AppendFiel2

'добавление таблицы в семейство таблиц

dbs.TableDefs.Appendrst

MsgBox "Таблица Список Категорий", vbOKOnly

zzz:

Setrstt = dbs.OpenRecordset("Список Категорий")