Диплом: Автоматизация процесса ведения документации и отчетности в ООО "Эсплористо"

Поиск по базе
Скачать
Заказать новую работу
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
115
stDocName = ChrW(1042) & ChrW(1085) & ChrW(1091) & ChrW(1090) &
ChrW(1088) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1080) &
ChrW(1077) & ChrW(32) & ChrW(1076) & ChrW(1086) & ChrW(1082) &
ChrW(1091) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090) &
ChrW(1099) & ChrW(32) & ChrW(1085) & ChrW(1072) & ChrW(32) &
ChrW(1076) & ChrW(1072) & ChrW(1090) & ChrW(1091)
DoCmd.OpenReport stDocName, acPreview
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
Dim stDocName As String
stDocName = ChrW(1042) & ChrW(1085) & ChrW(1091) & ChrW(1090) &
ChrW(1088) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1080) &
ChrW(1077) & ChrW(32) & ChrW(1076) & ChrW(1086) & ChrW(1082) &
ChrW(1091) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090) &
ChrW(1099) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) &
ChrW(1087) & ChrW(1086) & ChrW(1076) & ChrW(1088) & ChrW(1072) &
ChrW(1079) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1077) &
ChrW(1085) & ChrW(1080) & ChrW(1102)
DoCmd.OpenReport stDocName, acPreview
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
Dim stDocName As String
stDocName = ChrW(1042) & ChrW(1093) & ChrW(1086) & ChrW(1076) &
ChrW(1103) & ChrW(1097) & ChrW(1080) & ChrW(1077) & ChrW(32) &
ChrW(1076) & ChrW(1086) & ChrW(1082) & ChrW(1091) & ChrW(1084) &
ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1099)
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка21_Click:
Exit Sub
Err_Кнопка21_Click:
MsgBox Err.Description
Resume Exit_Кнопка21_Click
End Sub
116
Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click
Dim stDocName As String
stDocName = ChrW(1042) & ChrW(1093) & ChrW(1086) & ChrW(1076) &
ChrW(1103) & ChrW(1097) & ChrW(1080) & ChrW(1077) & ChrW(32) &
ChrW(1076) & ChrW(1086) & ChrW(1082) & ChrW(1091) & ChrW(1084) &
ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1099) & ChrW(32) &
ChrW(1085) & ChrW(1072) & ChrW(32) & ChrW(1076) & ChrW(1072) &
ChrW(1090) & ChrW(1091)
DoCmd.OpenReport stDocName, acPreview
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(1048) & ChrW(1089) & ChrW(1093) & ChrW(1086) &
ChrW(1076) & ChrW(1103) & ChrW(1097) & ChrW(1080) & ChrW(1077) &
ChrW(32) & ChrW(1076) & ChrW(1086) & ChrW(1082) & ChrW(1091) &
ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1099)
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(1048) & ChrW(1089) & ChrW(1093) & ChrW(1086) &
ChrW(1076) & ChrW(1103) & ChrW(1097) & ChrW(1080) & ChrW(1077) &
ChrW(32) & ChrW(1076) & ChrW(1086) & ChrW(1082) & ChrW(1091) &
ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1099) &
ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1076) &
ChrW(1072) & ChrW(1090) & ChrW(1077)
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка24_Click:
Exit Sub
Err_Кнопка24_Click:
MsgBox Err.Description
Resume Exit_Кнопка24_Click
117
End Sub
Private Sub Кнопка25_Click()
On Error GoTo Err_Кнопка25_Click
Dim stDocName As String
stDocName = ChrW(1057) & ChrW(1087) & ChrW(1088) & ChrW(1072) &
ChrW(1074) & ChrW(1086) & ChrW(1095) & ChrW(1085) & ChrW(1080) &
ChrW(1082) & ChrW(32) & ChrW(1082) & ChrW(1086) & ChrW(1088) &
ChrW(1088) & ChrW(1077) & ChrW(1089) & ChrW(1087) & ChrW(1086) &
ChrW(1085) & ChrW(1076) & ChrW(1077) & ChrW(1085) & ChrW(1090) &
ChrW(1086) & ChrW(1074)
DoCmd.OpenReport stDocName, acPreview
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
Dim stDocName As String
stDocName = ChrW(1057) & ChrW(1090) & ChrW(1088) & ChrW(1091) &
ChrW(1082) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1085) &
ChrW(1099) & ChrW(1077) & ChrW(32) & ChrW(1087) & ChrW(1086) &
ChrW(1076) & ChrW(1088) & ChrW(1072) & ChrW(1079) & ChrW(1076) &
ChrW(1077) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) &
ChrW(1103)
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка26_Click:
Exit Sub
Err_Кнопка26_Click:
MsgBox Err.Description
Resume Exit_Кнопка26_Click
End Sub
Private Sub Кнопка33_Click()
On Error GoTo Err_Кнопка33_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1077) &
ChrW(1090) & ChrW(1099) & ChrW(32) & ChrW(1087) & ChrW(1086) &
ChrW(32) & ChrW(1076) & ChrW(1086) & ChrW(1082) & ChrW(1091) &
ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1086) &
ChrW(1086) & ChrW(1073) & ChrW(1086) & ChrW(1088) & ChrW(1086) &
ChrW(1090) & ChrW(1091)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка33_Click:
118
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
Dim stLinkCriteria As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1077) &
ChrW(1090) & ChrW(1099) & ChrW(32) & ChrW(1087) & ChrW(1086) &
ChrW(32) & ChrW(1076) & ChrW(1086) & ChrW(1082) & ChrW(1091) &
ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1086) &
ChrW(1086) & ChrW(1073) & ChrW(1086) & ChrW(1088) & ChrW(1086) &
ChrW(1090) & ChrW(1091)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка34_Click:
Exit Sub
Err_Кнопка34_Click:
MsgBox Err.Description
Resume Exit_Кнопка34_Click
End Sub
Private Sub Кнопка35_Click()
On Error GoTo Err_Кнопка35_Click
DoCmd.Close
Exit_Кнопка35_Click:
Exit Sub
Err_Кнопка35_Click:
MsgBox Err.Description
Resume Exit_Кнопка35_Click
End Sub
Private Sub Кнопка37_Click()
On Error GoTo Err_Кнопка37_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1077) &
ChrW(1090) & ChrW(1099) & ChrW(32) & ChrW(1087) & ChrW(1086) &
ChrW(32) & ChrW(1089) & ChrW(1087) & ChrW(1088) & ChrW(1072) &
ChrW(1074) & ChrW(1086) & ChrW(1095) & ChrW(1085) & ChrW(1080) &
ChrW(1082) & ChrW(1072) & ChrW(1084)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка37_Click:
Exit Sub
Err_Кнопка37_Click:
119
MsgBox Err.Description
Resume Exit_Кнопка37_Click
End Sub
Private Sub Кнопка40_Click()
On Error GoTo Err_Кнопка40_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1046) & ChrW(1091) & ChrW(1088) & ChrW(1085) &
ChrW(1072) & ChrW(1083) & ChrW(32) & ChrW(1074) & ChrW(1085) &
ChrW(1091) & ChrW(1090) & ChrW(1088) & ChrW(1077) & ChrW(1085) &
ChrW(1085) & ChrW(1080) & ChrW(1093) & ChrW(32) & ChrW(1076) &
ChrW(1086) & ChrW(1082) & ChrW(1091) & ChrW(1084) & ChrW(1077) &
ChrW(1085) & ChrW(1090) & ChrW(1086) & ChrW(1074)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка40_Click:
Exit Sub
Err_Кнопка40_Click:
MsgBox Err.Description
Resume Exit_Кнопка40_Click
End Sub
Private Sub Кнопка41_Click()
On Error GoTo Err_Кнопка41_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1046) & ChrW(1091) & ChrW(1088) & ChrW(1085) &
ChrW(1072) & ChrW(1083) & ChrW(32) & ChrW(1080) & ChrW(1089) &
ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1103) & ChrW(1097) &
ChrW(1080) & ChrW(1093) & ChrW(32) & ChrW(1076) & ChrW(1086) &
ChrW(1082) & ChrW(1091) & ChrW(1084) & ChrW(1077) & ChrW(1085) &
ChrW(1090) & ChrW(1086) & ChrW(1074)
DoCmd.OpenForm stDocName, , , stLinkCriteria
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
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1046) & ChrW(1091) & ChrW(1088) & ChrW(1085) &
ChrW(1072) & ChrW(1083) & ChrW(32) & ChrW(1074) & ChrW(1093) &
ChrW(1086) & ChrW(1076) & ChrW(1103) & ChrW(1097) & ChrW(1080) &
ChrW(1093) & ChrW(32) & ChrW(1076) & ChrW(1086) & ChrW(1082) &
120
ChrW(1091) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090) &
ChrW(1086) & ChrW(1074)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка42_Click:
Exit Sub
Err_Кнопка42_Click:
MsgBox Err.Description
Resume Exit_Кнопка42_Click
End Sub
Private Sub Кнопка46_Click()
On Error GoTo Err_Кнопка46_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1040) & ChrW(1088) & ChrW(1093) & ChrW(1080) &
ChrW(1074) & ChrW(1072) & ChrW(1094) & ChrW(1080) & ChrW(1103) &
ChrW(32) & ChrW(1074) & ChrW(1085) & ChrW(1091) & ChrW(1090) &
ChrW(1088) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1080) &
ChrW(1093) & ChrW(32) & ChrW(1076) & ChrW(1086) & ChrW(1082) &
ChrW(1091) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090) &
ChrW(1086) & ChrW(1074)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка46_Click:
Exit Sub
Err_Кнопка46_Click:
MsgBox Err.Description
Resume Exit_Кнопка46_Click
End Sub
Private Sub Кнопка47_Click()
On Error GoTo Err_Кнопка47_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1040) & ChrW(1088) & ChrW(1093) & ChrW(1080) &
ChrW(1074) & ChrW(1072) & ChrW(1094) & ChrW(1080) & ChrW(1103) &
ChrW(32) & ChrW(1080) & ChrW(1089) & ChrW(1093) & ChrW(1086) &
ChrW(1076) & ChrW(1103) & ChrW(1097) & ChrW(1080) & ChrW(1093) &
ChrW(32) & ChrW(1076) & ChrW(1086) & ChrW(1082) & ChrW(1091) &
ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1086) &
ChrW(1074)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка47_Click:
Exit Sub
Err_Кнопка47_Click:
MsgBox Err.Description
Resume Exit_Кнопка47_Click
End Sub
121
Private Sub Кнопка48_Click()
On Error GoTo Err_Кнопка48_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1040) & ChrW(1088) & ChrW(1093) & ChrW(1080) &
ChrW(1074) & ChrW(1072) & ChrW(1094) & ChrW(1080) & ChrW(1103) &
ChrW(32) & ChrW(1074) & ChrW(1093) & ChrW(1086) & ChrW(1076) &
ChrW(1103) & ChrW(1097) & ChrW(1080) & ChrW(1093) & ChrW(32) &
ChrW(1076) & ChrW(1086) & ChrW(1082) & ChrW(1091) & ChrW(1084) &
ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1086) & ChrW(1074)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка48_Click:
Exit Sub
Err_Кнопка48_Click:
MsgBox Err.Description
Resume Exit_Кнопка48_Click
End Sub
Внутренние документы
Option Compare Database
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click
DoCmd.GoToRecord , , acNewRec
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.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
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.Close
Exit_Кнопка14_Click:
122
Exit Sub
Err_Кнопка14_Click:
MsgBox Err.Description
Resume Exit_Кнопка14_Click
End Sub
Private Sub ПолеСоСписком20_AfterUpdate()
' Поиск записи, соответствующей этому элементу управления.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[№Внутр_ документа] = '" & Me![ПолеСоСписком20] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub ПолеСоСписком23_AfterUpdate()
' Поиск записи, соответствующей этому элементу управления.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[№Внутр_ документа] = '" & Me![ПолеСоСписком23] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Входящие документы
Option Compare Database
Private Sub ПолеСоСписком19_AfterUpdate()
' Поиск записи, соответствующей этому элементу управления.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[№Вход_ документа] = '" & Me![ПолеСоСписком19] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Кнопка21_Click()
On Error GoTo Err_Кнопка21_Click
DoCmd.GoToRecord , , acNewRec
Exit_Кнопка21_Click:
Exit Sub
Err_Кнопка21_Click:
MsgBox Err.Description
Resume Exit_Кнопка21_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
123
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.Close
Exit_Кнопка23_Click:
Exit Sub
Err_Кнопка23_Click:
MsgBox Err.Description
Resume Exit_Кнопка23_Click
End Sub
Исходящие документы
Option Compare Database
Private Sub ПолеСоСписком13_AfterUpdate()
' Поиск записи, соответствующей этому элементу управления.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[№Исх_ документа] = '" & Me![ПолеСоСписком13] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Кнопка15_Click()
On Error GoTo Err_Кнопка15_Click
DoCmd.GoToRecord , , acNewRec
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.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Кнопка16_Click:
Exit Sub
Err_Кнопка16_Click:
MsgBox Err.Description
Resume Exit_Кнопка16_Click
End Sub
124
Private Sub Кнопка17_Click()
On Error GoTo Err_Кнопка17_Click
DoCmd.Close
Exit_Кнопка17_Click:
Exit Sub
Err_Кнопка17_Click:
MsgBox Err.Description
Resume Exit_Кнопка17_Click
End Sub

Смотрите также:

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)