КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Руководство пользователя
Поиск Добавление данных Данные о клиентах - физических лицах вносятся в общую таблицу через форму "Реестр физических лиц". Эта входная форма содержит следующие поля: 1) реестровый номер, 2) порядковый номер, 3) фамилия, 4) имя, 5) отчество, 6) адрес, 7) дата регистрации, 8) вид документа, 9) серия, 10) номер, 11) сумма государственной пошлины; 12) примечания. Добавление и коррекция данных позволяет работать со всеми клиентами, обратившимся в частную нотариальную контору. Они регистрируются в реестре и затем могут пользоваться необходимые документы. Выдаче нотариальных документов производятся в соответствии с реестровым номером, под которым зарегистрировано лицо. Форма "Поиск" предназначена для нахождения нужной информации о клиентах нотариальной конторы (рис.7). Поиск нужной информации осуществляется путем нажатия на кнопку "Найти запись". В результате поиска пользователь получает всю информацию об интересующем его клиенте. Источником данных для поиска являются как все таблицы, так и только та таблица, в которой содержаться данные о физических или юридических лицах.
4.5. Создание отчетов – выходных форм. Одним из главных назначений системы является выдача нотариальных документов установленной процессуальной формы. Эти документы создаются СУБД автоматически при заполнении соответствующих реестров, и вводе дополнительных сведений в форму требующегося документа. Для создания выходных форм, соответствующих всем требованиям, было использовано создание отчетов. Для создания отчета используются те же методы, которые нужны для создания форм и запросов.
Отчет является эффективным средством представления требуемых клиенту документов (данных) в печатном формате. Имея возможность управлять размером и внешним видом всех элементов отчета (документа), пользователь может отобразить сведения желаемым образом. Источником записей отчета являются поля в базовых таблицах и запросах. Отчет не должен включать все поля из каждой таблицы или запроса, на основе которых он создается. СУБД "Нотариат" предназначена для быстрой и эффективной работы частной нотариальной конторы. Данная система используется для ведения отчетности по выполненным нотариальным действиям, а также для получения итоговых и предварительных данных по конкретному делу заинтересованными лицами. Основанием для разработки данной системы явилась очень большая трудоемкость работы нотариуса: - по заполнению различных учетных журналов и реестров; - при предоставлении и оформлении документов, требующихся клиенту. До настоящего времени эти работы во всех нотариальных конторах осуществлялись "вручную". Разработанная СУБД "Нотариат" позволяет, за счет автоматизации ведения БД и подготовки выходных форм, значительно сократить время осуществления указанных нотариальных операций, обеспечить гибкую подготовку и качественное оформление нотариальных документов. Тем самым она способствует совершенствованию нотариальной деятельности в части роста ее производительности и улучшения качества услуг, делает компьютеризированную нотариальную службу конкурентоспособной на юридическом рынке труда. СУБД "Нотариат" соответствует требованиям критерия эффективного использования АИС: рациональному использованию рабочего времени нотариуса, быстрому предоставлению качественных документов в форме установленной законом. Она ориентирована на реальное облегчение нотариальной деятельности ее пользователей.
После запуска программы пользователь видит основное окно, представленное на рис.1. В нем названия кнопок подобраны так, чтобы пользователь мог сразу понять назначение каждой из них. Каждая кнопка содержит всплывающую подсказку. Например, нажатие кнопки "Реестр физических лиц" позволяет получить доступ к информации, касающейся физических лиц (рис.8).
Экранная форма "Реестр физических лиц", как и "Реестр юридических лиц", позволяет добавлять, удалять, сохранять и дублировать данные, осуществлять поиск информации по задаваемым пользователем критериям. Выбор необходимого нотариального документа производится с помощью формы "Нотариальные документы" (рис.9.).
Ввод дополнительных данных, т.е. заполнение документа, осуществляется с помощью его электронной формы, которая затем и печатается и оформляется нотариусом как востребованный клиентом документ. Работа с программой заканчивается после нажатия кнопки "Выход" в основном окне СУБД или в какой-либо из ее форм. Листинги программ СУБД "Нотариат" представлены в приложении 5.
Заключение В результате выполнения курсового проекта была четко поставлена задача, установлен основной алгоритм работы нотариуса, спроектированы инфологическая модель его деятельности и ее БД, выбрано и успешно использовано средство реализации модели – MS Access. Логическое и физическое проектирование БД, представление структур данных с учетом используемых приложений позволили в рамках инфологической модели создать удобную автоматизированную систему "Частная нотариальная контора" – СУБД "Нотариат". Областью применения программы - нотариальная деятельность, в частности автоматизированное рабочее места (АРМ) нотариуса. Программа проста в применении и не вызывает затруднений у сотрудников нотариальных контор. В соответствии с целью курсового проекта была решена задача проектирование и внедрение СУБД для нотариальной деятельности. Созданный при выполнении работы программный продукт, способствует совершенствованию действий по учету и подготовке нотариальных документов. Программа опробована в частной нотариальной конторе. Однако, при соответствующей ее модификации она может быть использована и для государственных нотариальных контор. Программа обеспечивает автоматизацию ведения отчетности по выполненным нотариальным действиям, подготовку документов, получения итоговых и предварительных данных по конкретному делу заинтересованными лицами.
СУБД "Нотариат" готова к эксплуатации и может использоваться даже не квалифици-рованным частным нотариусом.
список литературы 1. Вейскас Д. Эффективная работа с Microsoft Access 7.0. – М.: Microsoft Press, 1997. - 864с. 2. Власов Ю.Н. Нотариат в РФ. – М.: Юридическая литература, 1998. – 213с. 3. Вудкок Дж., Янг М. Эффективная работа с Microsoft Office 95. – М.: Microsoft Access, 2002. - 1000с. 4. Горев А., Макашарипов С., Ахаян Р. Эффективная работа с СУБД. – СПб.: Питер, 1997. - 704с. 5. Гражданский кодекс РФ //Собрание законодательства РФ. 1994. №32. – 136с. 6. Дженнингс Р.: - MS ACCESS 97. – СПб.: Петер, 1998. – 232с. 7. Закон РФ "О государственной пошлине". – М.: Юристъ, 2000. – 32с. 8. Курносов А.С., Мироненко В.Л. Работа в СУБД MS ACCESS. - Краснодар: КубГАУ, 2003. - 46с. 9. Лустов А.В. Образцы нотариальных документов. – М., 1999. – 254с. 10. Репин В.С, Комментарий к Основам законодательства РФ "О нотариате". – М.: Юридическая литература, 1999. – 412с. 11. Формы реестров для регистрации нотариальных действий и удостоверительных надписей на сделках и свидетельствуемых документах. Приложение к приказу Министерства юстиции РФ от 10.04.2002г. №99. ПРИЛОЖЕНИЕ 1 Доверенность на получение зарплаты ДОВЕРЕННОСТЬ (место и дата выдачи доверенности)
Я, гр. _________________________________________, проживающий(ая) по адресу: _______________________________________________________________________________, доверяю гр. ________________________________________________________________, проживающему(ей) по адресу: _____________________________________________________, получить в кассе _______________________________________________________________, (наименование предприятия) Находящегося по адресу: ________________________________________________, Причитающуюся мне заработную плату за _________________________________, (период времени)
расписаться за меня и совершить все действия, связанные с исполнением этого поручения.
___________________ (подпись)
ПРИЛОЖЕНИЕ 2 Доверенность на управление ТС ДОВЕРЕННОСТЬ №
Я, гр. _________________________________________, проживающий(ая) по адресу: _______________________________________________________________________________, паспорт: серия _________________, № ______________________________________________ имея в собственности (распоряжаясь по доверенности с правом передоверия)______________ ________________________________________________________________________________ (марка, модель транспортного средства) государственный регистрационный знак_____________________________________________ год выпуска ______________, двигатель № __________________, кузов №________________, цвет ___________, паспорт транспортного средства (серия, №) _________________________,
настоящей доверенностью уполномочиваю гр. _________________, проживающего (ую)_____ _________________________________________________________________________________, управлять и распоряжаться указанным транспортным средством Срок действия доверенности до _______________________________________, Подпись______________________ Дата __________________________ Настоящая доверенность удостоверена мной ____________________________, Нотариусом частной нотариальной конторы Зарегистрировано в реестре за № _____________________________________ Взыскано государственной пошлины: _________________________________ Нотариус: _________________________ Подпись _______________________ (подпись) ПРИЛОЖЕНИЕ 3 Договор ДОГОВОР №
Мы, гр. _______________________________________, проживающий(ая) по адресу: ________________________________________________________________________________, паспорт: серия ______________, № ________________________ и гр. ________________________________________, проживающий(ая) по адресу: ________________________________________________________________________________, паспорт: серия ______________, № ________________________ заключили настоящий договор о нижеследующем:
1. Я гр. ___________________________________________________ продаю, а гр. ______________________________________________покупаю легковую автомашину марки _________________, год выпуска __________________, № двигателя _____________, № кузова ________________, цвет _____________, государственный регистрационный знак ____________ ________________________________.
2. Указанная автомашина принадлежит мне, гр. __________________________________________________________________, на основании паспорта технического средства ____________________________.
3. Стоимость автомашины по оценочному документу составляет _____________________ ______________________________________________________________ рублей.
4. Автомашина продается за ____________________________________ рублей, уплачиваемых гр._____________________ гр. ____________________________ при подписании договора.
ПРИЛОЖЕНИЕ 4 Справка СПРАВКА
Выдана ЧАСТНОЙ НОТАРИАЛЬНОЙ КОНТОРОЙ в том, что гр. ____________________________________________________________________ (фамилия имя отчество полностью) по день смерти проживал постоянно согласно регистрации по адресу: ________________________________________________________________________________ (адрес полностью) Совместно с ним проживал(а) и был(а) зарегистрирован(а): ________________________________________________________________________________ (степень родства, фамилия имя отчество полностью) В настоящее время по этому адресу постоянно проживает согласно регистрации: _______________________________________________________________________________ (степень родства, фамилия имя отчество полностью)
______________ (подпись)
Дата ПРИЛОЖЕНИЕ 5 Листинги программ Доверенность_зарплата Option Compare Database Private Sub Кнопка36_Click() On Error GoTo Err_Кнопка36_Click Dim stDocName As String stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1077) & ChrW(1090) & ChrW(32) & ChrW(1044) & ChrW(1086) & ChrW(1074) & ChrW(1077) & ChrW(1088) & ChrW(95) & ChrW(1079) & ChrW(1072) & ChrW(1088) & ChrW(1087) & ChrW(1083) & ChrW(1072) & ChrW(1090) & ChrW(1072) DoCmd.OpenReport stDocName, acPreview Exit_Кнопка36_Click: Exit Sub Err_Кнопка36_Click: MsgBox Err.Description Resume Exit_Кнопка36_Click End Sub Private Sub Кнопка37_Click() On Error GoTo Err_Кнопка37_Click DoCmd.Close Exit_Кнопка37_Click: Exit Sub Err_Кнопка37_Click: MsgBox Err.Description Resume Exit_Кнопка37_Click End Sub Доверенность ТС Option Compare Database 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 Private Sub Кнопка19_Click() On Error GoTo Err_Кнопка19_Click Dim stDocName As String stDocName = ChrW(1044) & ChrW(1086) & ChrW(1074) & ChrW(1077) & ChrW(1088) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1058) & ChrW(1057) DoCmd.OpenReport stDocName, acPreview Exit_Кнопка19_Click: Exit Sub Err_Кнопка19_Click: MsgBox Err.Description Resume Exit_Кнопка19_Click End Sub
Договор купли-продажи Option Compare Database Private Sub Кнопка65_Click() On Error GoTo Err_Кнопка65_Click DoCmd.Close Exit_Кнопка65_Click: Exit Sub Err_Кнопка65_Click: MsgBox Err.Description Resume Exit_Кнопка65_Click End Sub Private Sub Кнопка66_Click() On Error GoTo Err_Кнопка66_Click Dim stDocName As String stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1077) & ChrW(1090) & ChrW(32) & ChrW(1082) & ChrW(1091) & ChrW(1087) & ChrW(1083) & ChrW(1103) & ChrW(45) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1076) & ChrW(1072) & ChrW(1078) & ChrW(1072) & ChrW(32) & ChrW(1058) & ChrW(1057) DoCmd.OpenReport stDocName, acPreview Exit_Кнопка66_Click: Exit Sub Err_Кнопка66_Click: MsgBox Err.Description Resume Exit_Кнопка66_Click End Sub
Нотариальные документы Option Compare Database Private Sub Кнопка0_Click() On Error GoTo Err_Кнопка0_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1044) & ChrW(1086) & ChrW(1074) & ChrW(1077) & ChrW(1088) & ChrW(32) & ChrW(1079) & ChrW(1072) & ChrW(1088) & ChrW(1087) & ChrW(1083) & ChrW(1072) & ChrW(1090) & ChrW(1072) DoCmd.OpenForm stDocName,,, stLinkCriteria 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 Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1044) & ChrW(1086) & ChrW(1074) & ChrW(1077) & ChrW(1088) & ChrW(32) & ChrW(1058) & ChrW(1057) DoCmd.OpenForm stDocName,,, stLinkCriteria 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(1044) & ChrW(1086) & ChrW(1074) & ChrW(1077) & ChrW(1088) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1079) & ChrW(1072) & ChrW(1088) & ChrW(1087) & ChrW(1083) & ChrW(1072) & ChrW(1090) & ChrW(1072) DoCmd.OpenForm stDocName,,, stLinkCriteria Exit_Кнопка5_Click: Exit Sub Err_Кнопка5_Click: MsgBox Err.Description Resume Exit_Кнопка5_Click End Sub Private Sub Кнопка6_Click() On Error GoTo Err_Кнопка6_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1089) & ChrW(1087) & ChrW(1072) & ChrW(1088) & ChrW(1074) & ChrW(1082) & ChrW(1072) DoCmd.OpenForm stDocName,,, stLinkCriteria Exit_Кнопка6_Click: Exit Sub Err_Кнопка6_Click: MsgBox Err.Description Resume Exit_Кнопка6_Click End Sub Private Sub Кнопка11_Click() On Error GoTo Err_Кнопка11_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1089) & ChrW(1087) & ChrW(1088) & ChrW(1072) & ChrW(1074) & ChrW(1082) & ChrW(1072) 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(1044) & ChrW(1086) & ChrW(1074) & ChrW(1077) & ChrW(1088) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1058) & ChrW(1057) 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 Dim stLinkCriteria As String stDocName = ChrW(1044) & ChrW(1086) & ChrW(1075) & ChrW(1086) & ChrW(1074) & ChrW(1086) & ChrW(1088) & ChrW(32) & ChrW(1082) & ChrW(1091) & ChrW(1087) & ChrW(1083) & ChrW(1080) & ChrW(45) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1076) & ChrW(1072) & ChrW(1078) & ChrW(1080) & ChrW(32) & ChrW(1058) & ChrW(1057) DoCmd.OpenForm stDocName,,, stLinkCriteria Exit_Кнопка13_Click: Exit Sub Err_Кнопка13_Click: MsgBox Err.Description Resume Exit_Кнопка13_Click End Sub Справка Option Compare Database Private Sub Кнопка32_Click() On Error GoTo Err_Кнопка32_Click DoCmd.Close Exit_Кнопка32_Click: Exit Sub Err_Кнопка32_Click: MsgBox Err.Description Resume Exit_Кнопка32_Click End Sub Private Sub Кнопка33_Click() On Error GoTo Err_Кнопка33_Click Dim stDocName As String stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1077) & ChrW(1090) & ChrW(32) & ChrW(1057) & ChrW(1087) & ChrW(1088) & ChrW(1072) & ChrW(1074) & ChrW(1082) & ChrW(1072) DoCmd.OpenReport stDocName, acPreview Exit_Кнопка33_Click: Exit Sub Err_Кнопка33_Click: MsgBox Err.Description Resume Exit_Кнопка33_Click End Sub Private Sub Кнопка34_Click() On Error GoTo Err_Кнопка34_Click Dim stDocName As String stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1077) & ChrW(1090) & ChrW(32) & ChrW(1057) & ChrW(1087) & ChrW(1088) & ChrW(1072) & ChrW(1074) & ChrW(1082) & ChrW(1072) DoCmd.OpenReport stDocName, acPreview Exit_Кнопка34_Click: Exit Sub Err_Кнопка34_Click: MsgBox Err.Description Resume Exit_Кнопка34_Click End Sub
Физ лица Option Compare Database Private Sub Кнопка22_Click() On Error GoTo Err_Кнопка22_Click DoCmd.GoToRecord,, acFirst 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.GoToRecord,, acPrevious 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 DoCmd.GoToRecord,, acNext Exit_Кнопка24_Click: Exit Sub Err_Кнопка24_Click: MsgBox Err.Description Resume Exit_Кнопка24_Click End Sub Private Sub Кнопка25_Click() On Error GoTo Err_Кнопка25_Click DoCmd.GoToRecord,, acLast Exit_Кнопка25_Click: Exit Sub Err_Кнопка25_Click: MsgBox Err.Description Resume Exit_Кнопка25_Click End Sub Private Sub Кнопка28_Click() On Error GoTo Err_Кнопка28_Click DoCmd.GoToRecord,, acNewRec Exit_Кнопка28_Click: Exit Sub Err_Кнопка28_Click: MsgBox Err.Description Resume Exit_Кнопка28_Click End Sub Private Sub Кнопка29_Click() On Error GoTo Err_Кнопка29_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70 Exit_Кнопка29_Click: Exit Sub Err_Кнопка29_Click: MsgBox Err.Description Resume Exit_Кнопка29_Click End Sub Private Sub Кнопка30_Click() On Error GoTo Err_Кнопка30_Click DoCmd.GoToRecord,, acNewRec Exit_Кнопка30_Click: Exit Sub Err_Кнопка30_Click: MsgBox Err.Description Resume Exit_Кнопка30_Click End Sub Private Sub Кнопка31_Click() On Error GoTo Err_Кнопка31_Click Dim oApp As Object Set oApp = CreateObject("Word.Application") oApp.Visible = True Exit_Кнопка31_Click: Exit Sub Err_Кнопка31_Click: MsgBox Err.Description Resume Exit_Кнопка31_Click End Sub Private Sub Кнопка32_Click() On Error GoTo Err_Кнопка32_Click Screen.PreviousControl.SetFocus DoCmd.DoMenuItem acFormBar, acEditMenu, 10,, acMenuVer70 Exit_Кнопка32_Click: Exit Sub Err_Кнопка32_Click: MsgBox Err.Description Resume Exit_Кнопка32_Click End Sub Private Sub Кнопка33_Click() On Error GoTo Err_Кнопка33_Click DoCmd.Close Exit_Кнопка33_Click: Exit Sub Err_Кнопка33_Click: MsgBox Err.Description Resume Exit_Кнопка33_Click End Sub Private Sub Кнопка34_Click() On Error GoTo Err_Кнопка34_Click DoCmd.Close Exit_Кнопка34_Click: Exit Sub Err_Кнопка34_Click: MsgBox Err.Description Resume Exit_Кнопка34_Click End Sub Private Sub Кнопка39_Click() On Error GoTo Err_Кнопка39_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1053) & ChrW(1086) & ChrW(1090) & ChrW(1072) & ChrW(1088) & ChrW(1080) & ChrW(1072) & ChrW(1083) & ChrW(1100) & ChrW(1085) & ChrW(1099) & ChrW(1077) & ChrW(32) & ChrW(1076) & ChrW(1086) & ChrW(1082) & ChrW(1091) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1099) DoCmd.OpenForm stDocName,,, stLinkCriteria Exit_Кнопка39_Click: Exit Sub Err_Кнопка39_Click: MsgBox Err.Description Resume Exit_Кнопка39_Click End Sub Private Sub Кнопка41_Click() On Error GoTo Err_Кнопка41_Click DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo,, acMenuVer70 Exit_Кнопка41_Click: Exit Sub Err_Кнопка41_Click: MsgBox Err.Description Resume Exit_Кнопка41_Click End Sub Private Sub Кнопка42_Click() On Error GoTo Err_Кнопка42_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70 Exit_Кнопка42_Click: Exit Sub Err_Кнопка42_Click: MsgBox Err.Description Resume Exit_Кнопка42_Click End Sub Private Sub Кнопка43_Click() On Error GoTo Err_Кнопка43_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 2,, acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 5,, acMenuVer70 'Paste Append Exit_Кнопка43_Click: Exit Sub Err_Кнопка43_Click: MsgBox Err.Description Resume Exit_Кнопка43_Click End Sub
Юр лица Option Compare Database Private Sub Кнопка18_Click() On Error GoTo Err_Кнопка18_Click DoCmd.GoToRecord,, acFirst 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,, acNext 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 DoCmd.GoToRecord,, acPrevious 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.GoToRecord,, acLast Exit_Кнопка21_Click: Exit Sub Err_Кнопка21_Click: MsgBox Err.Description Resume Exit_Кнопка21_Click End Sub Private Sub Кнопка24_Click() On Error GoTo Err_Кнопка24_Click DoCmd.GoToRecord,, acNewRec Exit_Кнопка24_Click: Exit Sub Err_Кнопка24_Click: MsgBox Err.Description Resume Exit_Кнопка24_Click End Sub Private Sub Кнопка25_Click() On Error GoTo Err_Кнопка25_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70 Exit_Кнопка25_Click: Exit Sub Err_Кнопка25_Click: MsgBox Err.Description Resume Exit_Кнопка25_Click End Sub Private Sub Кнопка26_Click() On Error GoTo Err_Кнопка26_Click Screen.PreviousControl.SetFocus DoCmd.DoMenuItem acFormBar, acEditMenu, 10,, acMenuVer70 Exit_Кнопка26_Click: Exit Sub Err_Кнопка26_Click: MsgBox Err.Description Resume Exit_Кнопка26_Click End Sub Private Sub Кнопка27_Click() On Error GoTo Err_Кнопка27_Click DoCmd.Close Exit_Кнопка27_Click: Exit Sub Err_Кнопка27_Click: MsgBox Err.Description Resume Exit_Кнопка27_Click End Sub Private Sub Кнопка28_Click() On Error GoTo Err_Кнопка28_Click DoCmd.Close Exit_Кнопка28_Click: Exit Sub Err_Кнопка28_Click: MsgBox Err.Description Resume Exit_Кнопка28_Click End Sub Private Sub Кнопка29_Click() On Error GoTo Err_Кнопка29_Click Dim oApp As Object Set oApp = CreateObject("Word.Application") oApp.Visible = True Exit_Кнопка29_Click: Exit Sub Err_Кнопка29_Click: MsgBox Err.Description Resume Exit_Кнопка29_Click End Sub Private Sub Кнопка35_Click() On Error GoTo Err_Кнопка35_Click DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo,, acMenuVer70 Exit_Кнопка35_Click: Exit Sub Err_Кнопка35_Click: MsgBox Err.Description Resume Exit_Кнопка35_Click End Sub Private Sub Кнопка36_Click() On Error GoTo Err_Кнопка36_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 2,, acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 5,, acMenuVer70 'Paste Append Exit_Кнопка36_Click: Exit Sub Err_Кнопка36_Click: MsgBox Err.Description Resume Exit_Кнопка36_Click End Sub Private Sub Кнопка37_Click() On Error GoTo Err_Кнопка37_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70 Exit_Кнопка37_Click: Exit Sub Err_Кнопка37_Click: MsgBox Err.Description Resume Exit_Кнопка37_Click End Sub
Экранная Option Compare Database Private Sub Кнопка0_Click() On Error GoTo Err_Кнопка0_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1060) & ChrW(1080) & ChrW(1079) & ChrW(95) & ChrW(1083) & ChrW(1080) & ChrW(1094) & ChrW(1072) DoCmd.OpenForm stDocName,,, stLinkCriteria 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 Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1070) & ChrW(1088) & ChrW(95) & ChrW(1083) & ChrW(1080) & ChrW(1094) & ChrW(1072) DoCmd.OpenForm stDocName,,, stLinkCriteria 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 DoCmd.Close Exit_Кнопка2_Click: Exit Sub Err_Кнопка2_Click: MsgBox Err.Description Resume Exit_Кнопка2_Click End Sub
Дата добавления: 2015-05-09; Просмотров: 470; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |