46883 (607974), страница 5
Текст из файла (страница 5)
Exit Sub
Err_Кнопка17_Click:
MsgBox Err.Description
Resume Exit_Кнопка17_Click
End Sub
FORM_Отчёт по дате
Option Compare Database
Private Sub Кнопка7_Click()
On Error GoTo Err_Кнопка7_Click
Dim stDocName As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1076) & ChrW(1072) & ChrW(1090) & ChrW(1077)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Кнопка7_Click:
Exit Sub
Err_Кнопка7_Click:
MsgBox Err.Description
Resume Exit_Кнопка7_Click
End Sub
Private Sub Кнопка9_Click()
On Error GoTo Err_Кнопка9_Click
DoCmd.Close
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
FORM_Отчёт_услуги
Option Compare Database
Private Sub Кнопка0_Click()
On Error GoTo Err_Кнопка0_Click
Dim stDocName As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1105) & ChrW(1090) & ChrW(32) & ChrW(1086) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1099) & ChrW(1093) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1072) & ChrW(1093)
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка0_Click:
Exit Sub
Err_Кнопка0_Click:
MsgBox Err.Description
Resume Exit_Кнопка0_Click
End Sub
Private Sub Кнопка2_Click()
On Error GoTo Err_Кнопка2_Click
Dim stDocName As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1105) & ChrW(1090) & ChrW(32) & ChrW(1086) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1099) & ChrW(1093) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1072) & ChrW(1093)
DoCmd.OpenReport stDocName, acNormal
Exit_Кнопка2_Click:
Exit Sub
Err_Кнопка2_Click:
MsgBox Err.Description
Resume Exit_Кнопка2_Click
End Sub
Private Sub Кнопка4_Click()
On Error GoTo Err_Кнопка4_Click
DoCmd.Close
Exit_Кнопка4_Click:
Exit Sub
Err_Кнопка4_Click:
MsgBox Err.Description
Resume Exit_Кнопка4_Click
End Sub
FORM_Отчёты
Option Compare Database
Private Sub Кнопка0_Click()
On Error GoTo Err_Кнопка0_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Кнопка0_Click:
Exit Sub
Err_Кнопка0_Click:
MsgBox Err.Description
Resume Exit_Кнопка0_Click
End Sub
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Кнопка1_Click:
Exit Sub
Err_Кнопка1_Click:
MsgBox Err.Description
Resume Exit_Кнопка1_Click
End Sub
Private Sub Кнопка4_Click()
On Error GoTo Err_Кнопка4_Click
DoCmd.Close
Exit_Кнопка4_Click:
Exit Sub
Err_Кнопка4_Click:
MsgBox Err.Description
Resume Exit_Кнопка4_Click
End Sub
Private Sub Кнопка5_Click()
On Error GoTo Err_Кнопка5_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1105) & ChrW(1090) & ChrW(95) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1080)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка5_Click:
Exit Sub
Err_Кнопка5_Click:
MsgBox Err.Description
Resume Exit_Кнопка5_Click
End Sub
FORM_Прайс-лист
Option Compare Database
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
DoCmd.PrintOut
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
Private Sub Кнопка11_Click()
On Error GoTo Err_Кнопка11_Click
DoCmd.Close
Exit_Кнопка11_Click:
Exit Sub
Err_Кнопка11_Click:
MsgBox Err.Description
Resume Exit_Кнопка11_Click
End Sub
FORM_Услуга
Option Compare Database
Private Sub Кнопка0_Click()
On Error GoTo Err_Кнопка0_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Кнопка0_Click:
Exit Sub
Err_Кнопка0_Click:
MsgBox Err.Description
Resume Exit_Кнопка0_Click
End Sub
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Кнопка1_Click:
Exit Sub
Err_Кнопка1_Click:
MsgBox Err.Description
Resume Exit_Кнопка1_Click
End Sub
Private Sub Кнопка2_Click()
On Error GoTo Err_Кнопка2_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Кнопка2_Click:
Exit Sub
Err_Кнопка2_Click:
MsgBox Err.Description
Resume Exit_Кнопка2_Click
End Sub
Private Sub Кнопка3_Click()
On Error GoTo Err_Кнопка3_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Кнопка3_Click:
Exit Sub
Err_Кнопка3_Click:
MsgBox Err.Description
Resume Exit_Кнопка3_Click
End Sub
Private Sub Кнопка8_Click()
On Error GoTo Err_Кнопка8_Click
DoCmd.Close
Exit_Кнопка8_Click:
Exit Sub
Err_Кнопка8_Click:
MsgBox Err.Description
Resume Exit_Кнопка8_Click
End Sub
Private Sub Кнопка9_Click()
On Error GoTo Err_Кнопка9_Click
Dim stDocName As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1088) & ChrW(1087) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1074) & ChrW(1080) & ChrW(1076) & ChrW(1091) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1080)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
Dim stDocName As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1088) & ChrW(1087) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1080) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1085) & ChrW(1072) & ChrW(1079) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1102)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
Private Sub Кнопка11_Click()
On Error GoTo Err_Кнопка11_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1055) & ChrW(1088) & ChrW(1072) & ChrW(1081) & ChrW(1089) & ChrW(45) & ChrW(1083) & ChrW(1080) & ChrW(1089) & ChrW(1090)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка11_Click:
Exit Sub
Err_Кнопка11_Click:
MsgBox Err.Description
Resume Exit_Кнопка11_Click
End Sub
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1059) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1072) & ChrW(95) & ChrW(1076) & ChrW(1086) & ChrW(1073)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка12_Click:
Exit Sub
Err_Кнопка12_Click:
MsgBox Err.Description
Resume Exit_Кнопка12_Click
End Sub
Private Sub Кнопка13_Click()
On Error GoTo Err_Кнопка13_Click
Dim stDocName As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1088) & ChrW(1087) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1074) & ChrW(1080) & ChrW(1076) & ChrW(1091) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1080)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Кнопка13_Click:
Exit Sub
Err_Кнопка13_Click:
MsgBox Err.Description
Resume Exit_Кнопка13_Click
End Sub
FORM_Услуга_доб
Option Compare Database
Private Sub Кнопка19_Click()
End Sub
Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка20_Click
DoCmd.GoToRecord,, acNewRec
Exit_Кнопка20_Click:
Exit Sub
Err_Кнопка20_Click:
MsgBox Err.Description
Resume Exit_Кнопка20_Click
End Sub
Private Sub Кнопка21_Click()
On Error GoTo Err_Кнопка21_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70
Exit_Кнопка21_Click:
Exit Sub
Err_Кнопка21_Click:
MsgBox Err.Description
Resume Exit_Кнопка21_Click
End Sub
Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70
Exit_Кнопка22_Click:
Exit Sub
Err_Кнопка22_Click:
MsgBox Err.Description
Resume Exit_Кнопка22_Click
End Sub
Private Sub Кнопка23_Click()
On Error GoTo Err_Кнопка23_Click
DoCmd.Close
Exit_Кнопка23_Click:
Exit Sub
Err_Кнопка23_Click:
MsgBox Err.Description
Resume Exit_Кнопка23_Click
End Sub
Додаток Б. Інструкція користувача
-
Для того, щоб почати роботу із базою даних «студія веб-дизайну » необхідно зі списку форм обрати форму, що має назву „Меню”
-
Для того, щоб мати змогу добавити послуги до бази даних, необхідно натиснути кнопку «Услуги», а потім, у формі „Услуга” натиснути „Добавить услугу”.
-
Для внесення нового постачальника до бази даних, необхідно натиснути кнопку «Добавить заказчика».
-
Для внесення нового виробника до бази даних, необхідно натиснути кнопку «Добавить исполнителя».
-
Для заповнення чека та внесення його до бази даних, необхідно натиснути кнопку «Услуга»”Прайс-лист”.
-
При натискані кнопки „Отчёты”, в головній формі, відкриється форма „Форма_отчёты”
Якщо натиснути кнопку „Формировать отчёт о наличии товара в аптеке” в цій формі, то з’явиться ще одна форма, де буде запропановано продивитися звіт про товари, які є в базі, або роздрукувати цей звіт
-
При натискані кнопки „Договор”, в головній формі, відкриється форма „Договор”
Якщо натиснути кнопку „Поиск договора за определённій период” в цій формі, то з’явиться ще форма „Договр”, де необхідно ввести дати: з якої та по яку ви хочите одержати інформацію про продані заключені договори
Якщо ж натиснути „Добавить договор”, то на єкрані повинна з’явитися наступна форма „Договор_доб”, в якому ми можемо додавати договір, за допомогою його характеристик
-
Для того, щоб знайти послугу за назвою необхідно в головній формі натиснути „Услуги”, потім, у формі, що з’явиться, натиснути „Поиск услуги по названию”, з’явиться вікно, в якому необхідно набрати назву послуги, яка нас цікавить
-
Для того, щоб знайти послугу за видом, необхідно в головній формі натиснути „Услуги”, потім, у формі „Услуга”, що з’явиться, натиснути „Поиск услуги по виду”, з’явиться вікно, в якому необхідно вид послуги, яка нас цікавить
9. Для того, щоб закрит будь-яку форму треба натиснути копку „Закрити форму”, яка має вигляд -
.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
