Создание отчетов – выходных форм.

Одним из главных назначений системы является выдача нотариальных документов установленной процессуальной формы. Эти документы создаются СУБД автоматически при заполнении соответствующих реестров, и вводе дополнительных сведений в форму требующегося документа. Для создания выходных форм, соответствующих всем требованиям, было использовано создание отчетов. Для создания отчета используются те же методы, которые нужны для создания форм и запросов.

Отчет является эффективным средством представления требуемых клиенту документов (данных) в печатном формате. Имея возможность управлять размером и внешним видом всех элементов отчета (документа), пользователь может отобразить сведения желаемым образом. Источником записей отчета являются поля в базовых таблицах и запросах. Отчет не должен включать все поля из каждой таблицы или запроса, на основе которых он создается.

Руководство пользователя

СУБД "Нотариат" предназначена для быстрой и эффективной работы частной нотариальной конторы. Данная система используется для ведения отчетности по выполненным нотариальным действиям, а также для получения итоговых и предварительных данных по конкретному делу заинтересованными лицами.

Основанием для разработки данной системы явилась очень большая трудоемкость работы нотариуса:

- по заполнению различных учетных журналов и реестров;

- при предоставлении и оформлении документов, требующихся клиенту.

До настоящего времени эти работы во всех нотариальных конторах осуществлялись "вручную". Разработанная СУБД "Нотариат" позволяет, за счет автоматизации ведения БД и подготовки выходных форм, значительно сократить время осуществления указанных нотариальных операций, обеспечить гибкую подготовку и качественное оформление нотариальных документов. Тем самым она способствует совершенствованию нотариальной деятельности в части роста ее производительности и улучшения качества услуг, делает компьютеризированную нотариальную службу конкурентоспособной на юридическом рынке труда. СУБД "Нотариат" соответствует требованиям критерия эффективного использования АИС: рациональному использованию рабочего времени нотариуса, быстрому предоставлению качественных документов в форме установленной законом. Она ориентирована на реальное облегчение нотариальной деятельности ее пользователей.

После запуска программы пользователь видит основное окно, представленное на рис.1. В нем названия кнопок подобраны так, чтобы пользователь мог сразу понять назначение каждой из них. Каждая кнопка содержит всплывающую подсказку. Например, нажатие кнопки "Реестр физических лиц" позволяет получить доступ к информации, касающейся физических лиц (рис.8).

Рис.8. Экранная форма "Реестр физических лиц"

Экранная форма "Реестр физических лиц", как и "Реестр юридических лиц", позволяет добавлять, удалять, сохранять и дублировать данные, осуществлять поиск информации по задаваемым пользователем критериям.

Выбор необходимого нотариального документа производится с помощью формы "Нотариальные документы" (рис.9.).

Рис.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

Лойко Валерий Иванович

Курносов Сергей Андреевич

Лаптев Владимир Николаевич