Description
Resume Exit_Кнопка10_Click
End Sub
Private Sub Кнопка11_Click ()
On Error GoTo Err_Кнопка11_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70
Exit_Кнопка11_Click:
Exit Sub
Err_Кнопка11_Click:
MsgBox Err. Description
Resume Exit_Кнопка11_Click
End Sub
Private Sub btnCloseBus_Click ()
DoCmd.Close
End Sub
Private Sub Кнопка13_Click ()
On Error GoTo Err_Кнопка13_Click
Dim stDocName As String
stDocName = ChrW (1053) & ChrW (1077) & ChrW (1076) & ChrW (1077) & ChrW (1083) & ChrW (1100) & ChrW (1085) & ChrW (1099) & ChrW (1081) & ChrW (32) & ChrW (1075) & ChrW (1088) & ChrW (1072) & ChrW (1092) & ChrW (1080) & ChrW (1082) & ChrW (32) & ChrW (1072) & ChrW (1074) & ChrW (1090) & ChrW (1086) & ChrW (1073) & ChrW (1091) & ChrW (1089) & ChrW (1072)
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка13_Click:
Exit Sub
Err_Кнопка13_Click:
MsgBox Err. Description
Resume Exit_Кнопка13_Click
End Sub
Private Sub Кнопка16_Click ()
On Error GoTo Err_Кнопка16_Click
Dim stDocName As String
stDocName = ChrW (1055) & ChrW (1088) & ChrW (1086) & ChrW (1081) & ChrW (1076) & ChrW (1077) & ChrW (1085) & ChrW (1085) & ChrW (1099) & ChrW (1081) & ChrW (32) & ChrW (1087) & ChrW (1091) & ChrW (1090) & ChrW (1100)
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка16_Click:
Exit Sub
Err_Кнопка16_Click:
MsgBox Err. Description
Resume Exit_Кнопка16_Click
End Sub
Процедуры обработки на форме frmDriver:
Private Sub btnCloseDriver_Click ()
DoCmd.Close
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 Кнопка22_Click ()
On Error GoTo Err_Кнопка22_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, 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
Dim stDocName As String
stDocName = ChrW (1043) & ChrW (1088) & ChrW (1072) & ChrW (1092) & ChrW (1080) & ChrW (1082) & ChrW (32) & ChrW (1088) & ChrW (1072) & ChrW (1073) & ChrW (1086) & ChrW (1090) & ChrW (1099) & ChrW (32) & ChrW (1074) & ChrW (1086) & ChrW (1076) & ChrW (1080) & ChrW (1090) & ChrW (1077) & ChrW (1083) & ChrW (1103)
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка23_Click:
Exit Sub
Err_Кнопка23_Click:
MsgBox Err. Description
Resume Exit_Кнопка23_Click
End Sub
Private Sub Кнопка24_Click ()
On Error GoTo Err_Кнопка24_Click
Dim stDocName As String
stDocName = ChrW (1054) & ChrW (1090) & ChrW (1088) & ChrW (1072) & ChrW (1073) & ChrW (1086) & ChrW (1090) & ChrW (1072) & ChrW (1085) & ChrW (1085) & ChrW (1086) & ChrW (1077) & ChrW (32) & ChrW (1074) & ChrW (1088) & ChrW (1077) & ChrW (1084) & ChrW (1103)
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка24_Click:
Exit Sub
Err_Кнопка24_Click:
MsgBox Err. Description
Resume Exit_Кнопка24_Click
End Sub
Процедуры обработки на форме frmRout:
Private Sub Кнопка8_Click ()
On Error GoTo Err_Кнопка8_Click
DoCmd.GoToRecord, , acNewRec
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
DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err. Description
Resume Exit_Кнопка9_Click
End Sub
Private Sub btnCloseRout_Click ()
DoCmd.Close
End Sub
Процедуры обработки на форме frmTimeTable:
Private Sub Кнопка14_Click ()
On Error GoTo Err_Кнопка14_Click
DoCmd.GoToRecord, , acNewRec
Exit_Кнопка14_Click:
Exit Sub
Err_Кнопка14_Click:
MsgBox Err. Description
Resume Exit_Кнопка14_Click
End Sub
Private Sub Кнопка15_Click ()
On Error GoTo Err_Кнопка15_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70
Exit_Кнопка15_Click:
Exit Sub
Err_Кнопка15_Click:
MsgBox Err. Description
Resume Exit_Кнопка15_Click
End Sub
Private Sub Кнопка16_Click ()
On Error GoTo Err_Кнопка16_Click
DoCmd.Close
Exit_Кнопка16_Click:
Exit Sub
Err_Кнопка16_Click:
MsgBox Err. Description
Resume Exit_Кнопка16_Click
End Sub
Заключение
При выполнении курсовой работы были получены знания и практические навыки работы в MS Access и среде разработки VBA. Разработана база данных и к ней форма с меню отчеты и запросы для получения необходимой информации.
Список литературы
Бекаревич Ю. Б., Пушкина Н. В. Самоучитель Microsoft Access 2003. -СПб: БХВ-Петербург, 2004, — 738 с.
Виллариал Б. Программирование Access 2002 в примерах: Пер. с англ. — М.: КУДИЦ-ОБРАЗ, 2003. — 496 с.
Гарнаев А. Самоучитель VBA. СПб: БХВ-Петербург, 2004, — 542 с.
Дунаев В. В. Базы данных. Язык SQL для студента. -СПб: БХВ-Петербург, 2006, — 288 с.
Полякова Л. Н. Основы SQL: Курс лекций. Учебное пособие/ Л. Н. Полякова. — М.: Интернет-Университет Информационных Технологий, 2004, — 368 с.
Тимошок Т. В. Microsoft Access 2003. — Киев: Диалектика, 2004, — 464 с.
