End Sub. А потім в коді на подію Load форми надати властивості Caption значення аргументу OpenArgs

End Sub

А потім в коді на подію Load форми надати властивості Caption значення аргументу OpenArgs

Private Sub Form_Load()

Me.Caption = OpenArgs

Ø ShowAllRecords – відміняє дію будь-якого фільтру в активній таб­лиці або наборі записів, виконує повторний запит і забезпечує ви­ведення всіх записів (і нових також); метод не має аргументів.

Ø OpenDataAccessPage – відкриває сторінку доступу до даних; має 2 аргументи: ім’я сторінки (DataAccessPageName) – обов’язковий параметр та режим (View); за замовчанням встановлює режим пе­регляду (acDataAccessPageBrowse), можливий і режим конструкто­ра (acDataAccessPageDesign).

Ø OpenQuery – відкриває запит, ім’я якого вказувати обов’язково.

Ø OpenReport – відкриває звіт із вказаним ім’ям.

Задача 4.2 Створити послідовність форм для пошуку відомостей про заробітки певного робітника. Пошук здійснювати за прізвищем або за табельним номером.

Спочатку створимо за допомогою майстра форм підпорядковану форму, яка буде відображувати відомості про заробітки. Виберемо для форми тип Режим таблицы. Включимо до форми поля dat і zar (дата роботи і заробіток) таблиці tzarobitok і встановимо порядок сортування за датою. В розділі Примечание формы для обчислення загальної суми заробітків розмістимо Поле 1та встановимо для нього властивість Данные = Sum ([ zar ]). Конструктор форми зображений на рис. 4.1.

Рисунок 4.1 – Конструктор форми для таблиці tzarobitok

Далі створимо наступну форму для даних з таблиці tvidom. Ви­беремо поля tn і fio (табельний номер і прізвище) та тип Одиночная форма. В режимі конструктора перетягнемо на макет цієї форми з вікна бази даних піктограму форми tzarobitok подчиненная форма. До форми tvidom буде вбудована підпорядкована форма. В конструкторі у вікні властивостей Подчиненная форма / отчет на вкладці Данные будуть встановлені поля, за якими здійснюється зв’язок між таблиця­ми. Це властивості:

Подчиненные поля	tn
Основные поля	tn

Якщо підпорядковану форму запускати окремо, то будуть підсу­мовані всі заробітки. А якщо запускати головну форму, то враховува­тись будуть заробітки тільки одного конкретного робітника. Щоб відо­бразити підсумки на формі tvidom, розмістимо нове Поле 2в розділі Примечание формы з підписом Усього нараховано і встановимо для нього властивість Данные

= IIf (IsNull ([tzarobitok подчиненная форма]! [Поле1]); 0;

[tzarobitok подчиненная форма]! [Поле1])

Тобто, якщо людина не має заробітків, для неї немає підсумків в таблиці tzarobitok, а в Поле 2 відображується 0. Форма tvidom буде викликатися головною формою для одного робітника, тому встанови­мо для неї властивість Кнопки перехода=Нет.

Тепер створимо головну форму. Розмістимо на ній 2 вільних Поля, командну кнопку та написи (див. рис. 4.2).

Рисунок 4.2 – Конструктор головної форми

Після запуску форми треба ввести прізвище або табельний но­мер людини. Якщо клікнути мишкою на полі fam (прізвище), то зни­щується вміст поля nn (табельний номер) і навпаки. Якщо такої люди­ни немає, про це виводиться повідомлення. Створимо коди програм на події Click для полів та командної кнопки „ Знайти ”.

Option Compare Database

Public kriteria As String, nom As Integer

Private Sub Знайти_Click()

‘ код на кнопку Знайти

Dim dbMyDB As Database, rsRec As Recordset

Dim name As String, kriteria As String, nom as Integer

Set dbMyDB = CurrentDb

Set rsRec = dbMyDB.OpenRecordset ("tvidom", dbOpenDynaset)

If fam.Value > " " Then

‘ побудова критерію за прізвищем

name = fam. Value

kriteria = BuildCriteria ("fio", dbText, name)

ElseIf nn. Value > 0 Then

‘ побудова критерію за табельним номером

nom = nn. Value

kriteria = BuildCriteria ("tn", dbInteger, nom)

Else

MsgBox "Заповніть поле для пошуку!"

Exit Sub

End If

‘ пошук запису в таблиці tvidom, що задовольняє критерію

rsRec.FindFirst kriteria

If rsRec.NoMatch Then

‘ якщо запис не знайдено

MsgBox "Такої людини немає"

Exit Sub

End If

DoCmd. Close ‘ закрити форму

‘ виклик форми tvidom

DoCmd. OpenForm "tvidom",,, kriteria

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