justify"> Процедура ПолеСоСпіском29_BeforeUpdate оновлює вартість розміщення при зміні розміщення, розроблялася вручну.
Малюнок 43 - Зміна вартості розміщення при зміні розміщення
Private Sub ПолеСоСпіском29_BeforeUpdate (Cancel As Integer)
Me.Спісок60.RequerySub
Процедура Sub ПолеСоСпіском29_Click розраховує вартість розміщення при зміні розміщення, розроблялася вручну.
Sub ПолеСоСпіском29_Click (). Поле31=Me.KolichestvoChelovek * Me.Спісок60.Column (1, PriceRazmeshenie) * Me.Поле49
Процедура ПолеСоСпіском37_BeforeUpdate оновлює вартість харчування при зміні харчування, розроблялася вручну.
Малюнок 44 - Зміна вартості розміщення при зміні розміщення
Private Sub ПолеСоСпіском37_BeforeUpdate (Cancel As Integer)
Me.Спісок55.RequerySub
Процедура ПолеСоСпіском37_Click розраховує вартість харчування при зміні харчування, розроблялася вручну.
PrivateSub ПолеСоСпіском37_Click (). Поле39=Me.Поле49 * Me.Спісок55.Column (1, PricePitanie) * Me.KolichestvoChelovek
Процедура Кнопка74_Click обробляє натискання кнопки Звіт по путівках, викликає відкриття звіту, розроблялася c використанням майстра.
Малюнок 45 - Кнопка Звіт по путівках
Опишемо послідовність дій при створенні кнопки «Звіт по путівках».
Натиснемо кнопку «Використовувати майстра» на панелі інструментів.
Малюнок 46
Активізуємо кнопку «Кнопка» на панелі інструментів.
Малюнок 47
Розмістимо кнопку на формі. З'явиться діалогове вікно майстра.
Малюнок 48
Виберемо категорію «Робота із звітом» і дія «Перегляд звіту».
Малюнок 49
У вікні виберемо звіт «BlankZakaza2».
Малюнок 50
У вікні в полі «Текст» введемо текст для кнопки «Звіт по путівках».
Малюнок 51
Натиснемо кнопку «Готово».
Малюнок 52
Згенерований VBA код: Sub Кнопка74_Click ()
On Error GoTo Err_Кнопка74_ClickstDocName As String= BlankZakaza2 .OpenReport stDocName, acPreview_Кнопка74_Click: Sub_Кнопка74_Click: Err.DescriptionExit_Кнопка74_Click
End Sub
Процедура Кнопка80_Click обробляє натискання кнопки Друк путівки, розроблялася c використанням майстра.
Малюнок 53 - Кнопка Друк путівки
Згенерований VBA код:
Private Sub Кнопка80_Click () Error GoTo Err_Кнопка80_ClickstDocName As String=ChrW (тисячі п'ятьдесят одна) amp; ChrW (1080) amp; ChrW (одна тисяча вісімдесят дев'ять) amp; ChrW (1 090) amp; ChrW (104-1) amp; ChrW (1088) amp; ChrW (+1086) amp; ChrW (+1085) amp; ChrW (1080) amp; ChrW (1088) amp; ChrW (+1086) amp; ChrW (1 074) amp; ChrW (+1085) amp; ChrW (1080) amp; ChrW (+1103) .OpenReport stDocName, acNormal_Кнопка80_Click: Sub_Кнопка80_Click: Err.DescriptionExit_Кнопка80_Click
End Sub
Процедура Кнопка79_Click обробляє натискання кнопки Путівка, розроблялася c використанням майстра.
Малюнок 54 - Кнопка Путівка
Згенерований VBA код:
Private Sub Кнопка79_Click () Error GoTo Err_Кнопка79_ClickstDocName As String=ChrW (тисячі п'ятьдесят одна) amp; ChrW (1080) amp; ChrW (одна тисяча вісімдесят дев'ять) amp; ChrW (1 090) amp; ChrW (104-1) amp; ChrW (1088) amp; ChrW (+1086) amp; ChrW (+1085) amp; ChrW (1080) amp; ChrW (1088) amp; ChrW (+1086) amp; ChrW (1 074) amp; ChrW (+1085) amp; ChrW (1080) amp; ChrW (+1103) .OpenReport stDocName, acPreview_Кнопка79_Click: Sub_Кнопка79_Click: Err.DescriptionExit_Кнопка79_Click
End Sub
Висновок
Оснащення фахівців автоматизованими робочими місцями дозволяє підвищити продуктивність праці офісних працівників, скоротити їх чисельність і при цьому підвищити швидкість обробки інформації, її достовірність, що необхідно для ефективного планування і управління.
Метою роботи була розробка інформаційної системи «Автоматизоване робоче місце туроператора в середовищі MS Access», автоматизує управлін...
