FrmSubjFromClass

Код:

Dim db As Database

Dim tbl As TableDef

Dim fld As Field

Private Sub Command1_Click()

On Error GoTo eh

Dim subj As String

subj = List1.Text

Set tbl = db.TableDefs(subj)

'добавляем предметы в лист из существующего класса

For i = 20 To tbl.Fields.Count - 1

Set fld = tbl.Fields(i)

frmAddClass.List2.AddItem fld.Name

Next i

frmAddClass.Text2.Enabled = True

frmAddClass.Text2.BackColor = vbWhite

db.Close

Unload Me

Exit Sub

eh:

If Err.Number = 3265 Then MsgBox " Вы ничего не выбрали",, " Сообщение"

End Sub

Private Sub Form_Load()

frmParol.CenterForm Me

Set db = OpenDatabase(" c: \Program Files\SchoolDB\SchoolDB.mdb")

For i = 0 To db.TableDefs.Count - 1

Set tbl = db.TableDefs(i)

If IsNumeric(Left$(tbl.Name, 1)) Then List1.AddItem tbl.Name

Next i

End Sub

Практическое задание

Создать базу данных «Записная книжка»

Описание:

Форма 1:

1. При нахождении курсора мыши над надписью Создать базу данных «Записная книжка» она загорается красным. Вне надписи – черным
2. При щелчке мышью на надписи все элементы формы (кроме кнопки «Добавить таблицу с …») становятся доступными, а элемент List1 заполняется предлагаемыми пользователю полями для записной книжки.
3. Первая строка в первом листе выделена.
4. При переносе строк во второй лист выделенная строка из первого списка удаляется.
5. Все кнопки >, > >, <, < < прописать аналогично.
6. При появлении во втором листе первого выбранного поля кнопка «Добавить таблицу с …» становится доступной
7. После щелчка по кнопке создания базы должно появиться сообщение об успешном создании базы по указанному пути. Или сообщения о следующих ошибках создания 1) База уже существует, 2) Путь для создания не найден. В этом случае предложить создать путь. (Помните – вложенные папки создаются по одной!)
8. При создании таблицы сообщение об успешном создании таблицы. Также имеется возможность добавления нескольких таблиц с выбранными полями в базу.
9. Под кнопками удаления запрашивать подтверждение.
10. По нажатии кнопки «Работа с базой» открывается вторая форма:

где можно:

1. Открыть форму для заполнения выбранной таблицы. Имена полей в форме пишутся в столбик (они выбираются из таблицы базы). Причем пишутся так, чтобы размеры формы соответствовали количеству полей выбранной таблицы. Рядом с именами полей выводятся текстовые поля для изменения полей БД. Все они привязаны к конкретным поля таблицы БД. На форме также имеются кнопки «Новая», «Сохранить», «Удалить», «Обновить», «Выход». В элементе управления данными отображается номер текущей записи из таблицы.
2. Открыть таблицу в режиме таблицы (DBGrid)
3. Добавить новое поле в таблицу.
4. Удалить поле из таблицы (этого не делали – догадайтесь самостоятельно)
1. Во время всего написания кода тестируйте программу – постарайтесь обнаружить всевозможные ошибки раньше пользователя! Помните – признаком хорошей программы является то, что она не разрешает пользователю выполнить некорректное действие!