Приклад 8.1 Створити форму в режимі конструктора, в якій виводиться інформація про співробітників будь-якого відділу

В формі розміщені наступні елементи керування:

Ø Список – vid1, у якому вибирається необхідний відділ;

Ø Текстові поля –tel, fam , у які виводиться телефон, прізвище кервника;

Ø Командна кнопка для виклику програми пошуку, створенної мовою VBA.

Ø Список – spisok1, у якому виводиться список робітників вибранного відділу.

Ø Текстове поле – kl, у якому виводиться загальна кількість робітників.

Рисунок 8.1 Результат роботи

Текст програми для кнопки ПОШУК:

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

Dim zap As Recordset, s1 As String, s2 As String, s3 As String

Dim name1 As String, kol As Integer

Set zap = CurrentDb.OpenRecordset("tviddily", dbOpenDynaset)

vidl.SetFocus

name1 = vidl.Value

zap.FindFirst "[pidrozdil]='" & name1 & "'"

tel.SetFocus

tel.Text = zap![tel]

fam.SetFocus

fam.Text = zap![shef]

vidl.SetFocus

s1 = "SELECT tvidom.pidrozdil,tvidom.tn,tvidom.fio,”

s2=”tvidom.dtr,tvidom.pol,tvidom.ditej,tvidom.sem FROM tvidom” s3=” WHERE tvidom.pidrozdil=vidl.Value;"

spisok1.RowSource = s1 & s2 s3

kol = spisok1.ListCount

kl.SetFocus

kl.Text = kol - 1

End Sub

Приклад 8.2 Створити форму для додавання запису про нового робітника у таблицю „tvidom”

Контрольні питання

1 Події форми Open , Load, Resize, Activate, , Current.

2 Поняття підпорядкованої форми.

3 Посилання на елементи керування форми.

4 Об’єкт DoCmd та його методи.

5 Передача значень параметру від однієї форми до іншої.