105
Архивация внутренних документов
Архивация исходящих документов
Архивация входящих документов
106
Справочник корреспондентов
Структурные подразделения
Вид документа
107
Классификация документов
108
Приложение 2
Отчеты
Справочник корреспондентов
Структурные подразделения
Вид документа
109
Классификация документов
Внутренние документы
110
Внутренние документы на дату
Внутренние документы по подразделению
Входящие документы
111
Входящие документы на дату
Исходящие документы
Исходящие документы по дате
112
Приложение 3
Листинг программы
Главная форма
Option Compare Database
Private Sub Вид_документа_Click()
On Error GoTo Err_Вид_документа_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1042) & ChrW(1080) & ChrW(1076) & ChrW(32) &
ChrW(1076) & ChrW(1086) & ChrW(1082) & ChrW(1091) & ChrW(1084) &
ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1072)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Вид_документа_Click:
Exit Sub
Err_Вид_документа_Click:
MsgBox Err.Description
Resume Exit_Вид_документа_Click
End Sub
Private Sub Внутренние_документы_Click()
On Error GoTo Err_Внутренние_документы_Click
Dim stDocName As String
Dim stLinkCriteria 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)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Внутренние_документы_Click:
Exit Sub
Err_Внутренние_документы_Click:
MsgBox Err.Description
Resume Exit_Внутренние_документы_Click
End Sub
Private Sub Входящие_документы_Click()
On Error GoTo Err_Входящие_документы_Click
Dim stDocName As String
Dim stLinkCriteria 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.OpenForm stDocName, , , stLinkCriteria
113
Exit_Входящие_документы_Click:
Exit Sub
Err_Входящие_документы_Click:
MsgBox Err.Description
Resume Exit_Входящие_документы_Click
End Sub
Private Sub Исходящие_документы_Click()
On Error GoTo Err_Исходящие_документы_Click
Dim stDocName As String
Dim stLinkCriteria 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.OpenForm stDocName, , , stLinkCriteria
Exit_Исходящие_документы_Click:
Exit Sub
Err_Исходящие_документы_Click:
MsgBox Err.Description
Resume Exit_Исходящие_документы_Click
End Sub
Private Sub Классификация_документов_Click()
On Error GoTo Err_Классификация_документов_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1050) & ChrW(1083) & ChrW(1072) & ChrW(1089) &
ChrW(1089) & ChrW(1080) & ChrW(1092) & ChrW(1080) & ChrW(1082) &
ChrW(1072) & ChrW(1094) & ChrW(1080) & ChrW(1103) & 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_Классификация_документов_Click:
Exit Sub
Err_Классификация_документов_Click:
MsgBox Err.Description
Resume Exit_Классификация_документов_Click
End Sub
Private Sub Справочник_корреспондентов_Click()
On Error GoTo Err_Справочник_корреспондентов_Click
Dim stDocName As String
Dim stLinkCriteria 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) &
114
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.OpenForm stDocName, , , stLinkCriteria
Exit_Справочник_корреспондентов_Click:
Exit Sub
Err_Справочник_корреспондентов_Click:
MsgBox Err.Description
Resume Exit_Справочник_корреспондентов_Click
End Sub
Private Sub Структурные_подразделения_Click()
On Error GoTo Err_Структурные_подразделения_Click
Dim stDocName As String
Dim stLinkCriteria 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.OpenForm stDocName, , , stLinkCriteria
Exit_Структурные_подразделения_Click:
Exit Sub
Err_Структурные_подразделения_Click:
MsgBox Err.Description
Resume Exit_Структурные_подразделения_Click
End Sub
Private Sub Внутренние_документы_предприятия_Click()
On Error GoTo Err_Внутренние_документы_предприятия_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)
DoCmd.OpenReport stDocName, acPreview
Exit_Внутренние_документы_предприятия_Cl:
Exit Sub
Err_Внутренние_документы_предприятия_Click:
MsgBox Err.Description
Resume Exit_Внутренние_документы_предприятия_Cl
End Sub
Private Sub Кнопка19_Click()
On Error GoTo Err_Кнопка19_Click
Dim stDocName As String