a + 100Me.Екскурсія1.Value=True Then a=a + 200Me.Екскурсія2.Value=True Then a=a + 300Me.Екскурсія3.Value=True Then a=a + 400Me.УслугіГіда.Value=True Then a=a + 500.VsegoSumma=Me.Поле31 + Me.Поле39 + (a * Me.KolichestvoChelovek)=Me.VsegoSumma + (18 * Me.VsegoSumma )/100.Вдолларах=VsegoSummaNDS/Me.KursSub
Процедура ПолеСоСпіском23_BeforeUpdate оновлює список з готелями при виборі міста, розроблялася вручну.
Малюнок 26 - Списки Готель і Місто
Private Sub ПолеСоСпіском23_BeforeUpdate (Cancel As Integer)
Me.ПолеСоСпіском27.Requery
Процедура Кнопка41_Click обробки натиснення кнопки Зробити замовлення заносить всі дані, введені у формі, в таблицю «BlankZakaza», вона розроблялася c використанням майстра.
Малюнок 27 - Кнопка Зробити замовлення
Опишемо послідовність дій при створенні кнопки «Зробити замовлення».
Натиснемо кнопку «Використовувати майстра» на панелі інструментів.
Малюнок 28
Активізуємо кнопку «Кнопка» на панелі інструментів.
Малюнок 29
Розмістимо кнопку на формі. З'явиться діалогове вікно майстра.
Малюнок 30
Виберемо категорію «Обробка записів» і дія «Зберегти запис».
Малюнок 31
У вікні в полі «Текст» введемо текст для кнопки -
«Зробити замовлення».
Малюнок 32
Натиснемо кнопку «Готово».
Малюнок 33
Згенерований VBA код: Кнопка41_Click ()
On Error GoTo Err_Кнопка41_Click.RunCommand acCmdSaveRecord_Кнопка41_Click:Sub_Кнопка41_Click:Err.DescriptionExit_Кнопка41_Click
End Sub
Процедура Кнопка42_Click виконує закриття бази даних при натисканні кнопки Вихід, розроблялася c використання майстра.
Малюнок 34 - Кнопка Вихід
Опишемо послідовність дій при створенні кнопки «Вихід».
Натиснемо кнопку «Використовувати майстра» на панелі інструментів.
Малюнок 35
Активізуємо кнопку «Кнопка» на панелі інструментів.
Малюнок 36
Розмістимо кнопку на формі. З'явиться діалогове вікно майстра.
Малюнок 37
Виберемо категорію «Додаток» і дія «Вийти з програми».
Малюнок 38
У вікні в полі «Текст» введемо текст для кнопки - «Вихід».
Малюнок 39
Натиснемо кнопку «Готово».
Малюнок 40
Згенерований VBA код: Sub Кнопка42_Click ()
On Error GoTo Err_Кнопка42_ClickMe.Dirty Then Me.Dirty=False.Quit_Кнопка42_Click:Sub_Кнопка42_Click:Err.DescriptionExit_Кнопка42_Click
End Sub
Процедура ПолеСоСпіском23_Click приховує поле із зоряною категорією готелю, коли готель не обраний, і показує його, коли готель обраний, розроблялася вручну.
Малюнок 41 - Поля Місто і Готель
Sub ПолеСоСпіском23_Click ()
Me.Спісок53.Visible=FalseПолеСоСпіском23.Column (1, Name)= Мадрид Then ( IDgorod )=1ПолеСоСпіском23.Column (1, Name)= Нью-Йорк Then ( IDgorod )=2ПолеСоСпіском23.Column (1, Name)= Лондон Then ( IDgorod )=3IfSub
Процедура ПолеСоСпіском27_BeforeUpdate при виборі готелю виводить відповідну кількість зірок, розроблялася вручну.
Малюнок 42 - Відображення категорії зірковості готелю
Sub ПолеСоСпіском27_BeforeUpdate (Cancel As Integer) .Спісок53.Requery Sub
Процедура ПолеСоСпіском27_Click відображає поле з зірками готелю при виборі готелю. Оновлює списки з харчуванням, розміщенням та ін. Розраховується вартість харчування і розміщення з урахуванням кількості осіб і днів, виду розміщення і типу харчування, розроблялася вручну.
Private Sub ПолеСоСпіском27_Click (). Спісок53.Visible=True .Спісок60.Requery.Спісок55.Requery.Поле39=Me.Поле49 * Me.Спісок55.Column (1, PricePitanie) * Me.KolichestvoChelovek.Поле31 =Me.KolichestvoChelovek * Me.Спісок60.Column (1, PriceRazmeshenie) * Me.Поле49
End Sub
