Скачать 0.78 Mb.
|
[Form_Отправка в архив (Code)] Option Compare Database Private Sub Кнопка12_Click() On Error GoTo Err_Кнопка12_Click Screen.PreviousControl.SetFocus DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 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 DoCmd.GoToRecord , , acNext Exit_Кнопка13_Click: Exit Sub Err_Кнопка13_Click: MsgBox Err.Description Resume Exit_Кнопка13_Click End Sub Private Sub Кнопка14_Click() On Error GoTo Err_Кнопка14_Click DoCmd.GoToRecord , , acPrevious Exit_Кнопка14_Click: Exit Sub Err_Кнопка14_Click: MsgBox Err.Description Resume Exit_Кнопка14_Click End Sub Private Sub Кнопка15_Click() Me.Refresh DoCmd.RunMacro "отправка в архив" End Sub [Form_Архив сотрудники (Code)] Option Compare Database Private Sub Кнопка16_Click() On Error GoTo Err_Кнопка16_Click DoCmd.GoToRecord , , acFirst Exit_Кнопка16_Click: Exit Sub Err_Кнопка16_Click: MsgBox Err.Description Resume Exit_Кнопка16_Click End Sub Private Sub Кнопка17_Click() On Error GoTo Err_Кнопка17_Click DoCmd.GoToRecord , , acNext Exit_Кнопка17_Click: Exit Sub Err_Кнопка17_Click: MsgBox Err.Description Resume Exit_Кнопка17_Click End Sub Private Sub Кнопка18_Click() On Error GoTo Err_Кнопка18_Click DoCmd.GoToRecord , , acPrevious Exit_Кнопка18_Click: Exit Sub Err_Кнопка18_Click: MsgBox Err.Description Resume Exit_Кнопка18_Click End Sub Private Sub Кнопка19_Click() On Error GoTo Err_Кнопка19_Click DoCmd.GoToRecord , , acLast Exit_Кнопка19_Click: Exit Sub Err_Кнопка19_Click: MsgBox Err.Description Resume Exit_Кнопка19_Click End Sub Private Sub Кнопка20_Click() On Error GoTo Err_Кнопка20_Click Screen.PreviousControl.SetFocus DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 Exit_Кнопка20_Click: Exit Sub Err_Кнопка20_Click: MsgBox Err.Description Resume Exit_Кнопка20_Click End Sub [Form_Оборудование (Code)] Option Compare Database Private Sub zav_AfterUpdate() End Sub Private Sub Кнопка13_Click() On Error GoTo Err_Кнопка13_Click zav.SetFocus DoCmd.GoToRecord , , acNewRec Exit_Кнопка13_Click: Exit Sub Err_Кнопка13_Click: MsgBox Err.Description Resume Exit_Кнопка13_Click End Sub Private Sub Кнопка14_Click() On Error GoTo Err_Кнопка14_Click Screen.PreviousControl.SetFocus DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 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, acRecordsMenu, acSaveRecord, , 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 With CurrentDb.OpenRecordset("Оборудование") On Error Resume Next .MoveLast .MoveFirst Do Until .EOF If ![Заводской №] = zav Then MsgBox "Такой заводской номер уже существует!!!введите другой!!!", vbApplicationModal .Close zav.SetFocus Exit Sub End If .MoveNext Loop .Close End With DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Exit_Кнопка16_Click: Exit Sub Err_Кнопка16_Click: MsgBox Err.Description Resume Exit_Кнопка16_Click End Sub |
Методические указания к дипломному проектированию для студентов специальности... ... |
Сценарий проекта Полное название проекта «Солнце Русской поэзии» Участники проекта – воспитанники, воспитатель, музыкальный родители |
||
Реферат в результате выполнения дипломного проекта разработано автоматизированное... В ходе дипломного проектирования была изучена предметная область, проведены работы по предпроектному исследованию деятельности сотрудника... |
Проекта Название проекта должно отражать суть нир, которую заявители считают необходимым выполнить и обозначать действие (разработка, исследование,... |
||
Результаты самооценки качества выполнения пояснительной записки и... |
Экономический раздел Целью дипломного проекта является разработка прототипа системы управления поставками продукции для более эффективного учёта товаров... |
||
Методические указания по выполнению организационно-экономической... Поэтому исследование, конструирование, проектирование современных новых технических средств, технологических процессов производства... |
Дипломного проекта «Дизайн-концепция спортивно оздоровительного центра»... Стилистическая и художественно-композиционная проработка проектируемого объекта, объемно-пространственного 23 |
||
Дипломной практики на кафедре асоиу по теме «Применение предметно-ориентированного... Руководителем дипломного проекта назначить ассистента кафедры асоиу степулёнка Дениса Олеговича |
Название проекта Конкурс молодежных инновационных команд рост «Россия-Ответственность-Стратегия-Технологии» |
Поиск на сайте Главная страница Литература Доклады Рефераты Курсовая работа Лекции |