Создание пользовательского приложения в среде MS ACCESS

Задание
Описание предметной области
Сценарий проектирования базы данных
Руководство программиста
Руководство пользователя
Заключение
Список литературы

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 с.
32