Створення форм

ЛАБОРАТОРНА РОБОТА №8

End Sub

End Sub

Задача 2.4. Підрахувати кількість чоловіків та жінок в таблиці tvidom. Використаємо класичний алгоритм підрахунку кількості.

Sub Стать()

Dim r As Recordset, m As Integer, f As Integer

Set r = CurrentDb. OpenRecordset (" tvidom", dbOpenDynaset)

m = 0: f = 0

r. MoveFirst

Do Until r. EOF

If r! pol = "чоловік" Then

m = m + 1 ' m - кількість чоловіків

Else

f = f + 1 ' f - кількість жінок

End If

r. MoveNext

Loop

MsgBox "Чоловіків – " & Str(m) & Chr(13) & "Жінок – " & Str(f)

2.3 Індивідуальні завдання

Написати програми, які відчиняють таблиці як набори записів і виконують такі дії:

1) добавляють новий запис до головної таблиці та заповнюють його даними;

2) відшукують потрібний запис і змінюють дані в ньому;

3) встановлюють фільтр та підраховують скільки записів задо­вольняють умовам фільтру;

4) вилучають записи з підпорядкованої таблиці, які задовольня­ють певній умові.

Тема роботи: Створення форм.

Мета роботи: навчитись створювати прості форми та форми з підпорядкованою формою, використовуючи таблиці або запити.

Форми можна створювати трьома різними способами:

ü за допомогою автоформи на основі таблиці або запиту;

ü за допомогою майстра форм:

ü в режимі конструктора.

Автоформа створюється для всіх полів таблиці або запиту. Якщо вона створюється для таблиці, що має зв’язані таблиці, то на формі теж будуть виведені всі їхні поля та записи.

Завдання. Створити автоформу для таблиці tvidom.

Для цього виділимо таблицю tvidom і натиснемо кнопку Новый объект на панелі інструментів, а потім виберемо пункт Автоформа.

Форму буде створено по двом таблицям tvidom та tzarobitok (див. рис. 3.1). Таблиця tzarobitok буде вбудована до головної форми. В кон­структорі можна потім змінити вигляд форми.

Рисунок 3.1 – Автоформа для таблиці tvidom

Дата добавления: 2015-03-29