Читайте также:
|
§ Форма «Главная форма»
Option Compare Database
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Dim stDocName As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1091) & ChrW(49)
DoCmd.RunMacro stDocName
Exit_Кнопка1_Click:
Exit Sub
Err_Кнопка1_Click:
MsgBox Err.Description
Resume Exit_Кнопка1_Click
End Sub
Private Sub Кнопка3_Click()
On Error GoTo Err_Кнопка3_Click
Dim stDocName As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1091) & ChrW(50)
DoCmd.RunMacro stDocName
Exit_Кнопка3_Click:
Exit Sub
Err_Кнопка3_Click:
MsgBox Err.Description
Resume Exit_Кнопка3_Click
End Sub
Private Sub Кнопка4_Click()
On Error GoTo Err_Кнопка4_Click
Dim stDocName As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1091) & ChrW(51)
DoCmd.RunMacro stDocName
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
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1091) & ChrW(52)
DoCmd.RunMacro stDocName
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
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1091) & ChrW(53)
DoCmd.RunMacro stDocName
Exit_Кнопка6_Click:
Exit Sub
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click
End Sub
Private Sub Кнопка7_Click()
On Error GoTo Err_Кнопка7_Click
Dim stDocName As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1091) & ChrW(54)
DoCmd.RunMacro stDocName
Exit_Кнопка7_Click:
Exit Sub
Err_Кнопка7_Click:
MsgBox Err.Description
Resume Exit_Кнопка7_Click
End Sub
Private Sub Кнопка8_Click()
On Error GoTo Err_Кнопка8_Click
Dim stDocName As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1091) & ChrW(55)
DoCmd.RunMacro stDocName
Exit_Кнопка8_Click:
Exit Sub
Err_Кнопка8_Click:
MsgBox Err.Description
Resume Exit_Кнопка8_Click
End Sub
Private Sub Кнопка9_Click()
On Error GoTo Err_Кнопка9_Click
Dim stDocName As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1091) & ChrW(56)
DoCmd.RunMacro stDocName
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
Dim stDocName As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1091) & ChrW(57)
DoCmd.RunMacro stDocName
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
Private Sub Кнопка11_Click()
On Error GoTo Err_Кнопка11_Click
Dim stDocName As String
stDocName = ChrW(1069) & ChrW(1082) & ChrW(1089) & ChrW(1087) & ChrW(1086) & ChrW(1088) & ChrW(1090) & ChrW(32) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1093) & ChrW(32) & ChrW(40) & ChrW(1076) & ChrW(1083) & ChrW(1103) & ChrW(32) & ChrW(82) & ChrW(51) & ChrW(41)
DoCmd.RunMacro stDocName
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
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1091) & ChrW(53)
DoCmd.RunMacro stDocName
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.Close
Exit_Кнопка13_Click:
Exit Sub
Err_Кнопка13_Click:
MsgBox Err.Description
Resume Exit_Кнопка13_Click
End Sub
Private Sub Кнопка30_Click()
On Error GoTo Err_Кнопка30_Click
Dim stDocName As String
stDocName = ChrW(1069) & ChrW(1082) & ChrW(1089) & ChrW(1087) & ChrW(1086) & ChrW(1088) & ChrW(1090) & ChrW(32) & ChrW(1072) & ChrW(1082) & ChrW(1090) & ChrW(1086) & ChrW(1074)
DoCmd.RunMacro stDocName
Exit_Кнопка30_Click:
Exit Sub
Err_Кнопка30_Click:
MsgBox Err.Description
Resume Exit_Кнопка30_Click
End Sub
Private Sub Кнопка33_Click()
On Error GoTo Err_Кнопка33_Click
Dim stDocName As String
stDocName = ChrW(1052) & ChrW(1072) & ChrW(1082) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1076) & ChrW(1083) & ChrW(1103) & ChrW(32) & ChrW(1086) & ChrW(1090) & ChrW(1095) & ChrW(1105) & ChrW(1090) & ChrW(1072) & ChrW(45) & ChrW(1076) & ChrW(1080) & ChrW(1072) & ChrW(1075) & ChrW(1088) & ChrW(1072) & ChrW(1084) & ChrW(1084) & ChrW(1099)
DoCmd.RunMacro stDocName
Exit_Кнопка33_Click:
Exit Sub
Err_Кнопка33_Click:
MsgBox Err.Description
Resume Exit_Кнопка33_Click
End Sub
§ Форма «Итоги прибыли предприятия»
Option Compare Database
Private Sub Кнопка3_Click()
On Error GoTo Err_Кнопка3_Click
Dim stDocName As String
Dim MyForm As Form
stDocName = ChrW(1048) & ChrW(1090) & ChrW(1086) & ChrW(1075) & ChrW(1080) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1080) & ChrW(1073) & ChrW(1099) & ChrW(1083) & ChrW(1080) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1087) & ChrW(1088) & ChrW(1080) & ChrW(1103) & ChrW(1090) & ChrW(1080) & ChrW(1103)
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
Exit_Кнопка3_Click:
Exit Sub
Err_Кнопка3_Click:
MsgBox Err.Description
Resume Exit_Кнопка3_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 Кнопка7_Click()
On Error GoTo Err_Кнопка7_Click
Dim stDocName As String
stDocName = ChrW(1044) & ChrW(1083) & ChrW(1103) & ChrW(32) & ChrW(34) & ChrW(1048) & ChrW(1090) & ChrW(1086) & ChrW(1075) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1080) & ChrW(1073) & ChrW(1099) & ChrW(1083) & ChrW(1080) & ChrW(34)
DoCmd.RunMacro stDocName
Exit_Кнопка7_Click:
Exit Sub
Err_Кнопка7_Click:
MsgBox Err.Description
Resume Exit_Кнопка7_Click
End Sub
§ Форма «Отклонение факта от плана за квартал»
Option Compare Database
Private Sub ОбластьДанных_Click()
If Otkl.Value < 0 Then
Nad2.Visible = True
Else: Nad2.Visible = False
End If
If Otkl.Value > 0 Or (Otkl.Value = 0) Then
Nad1.Visible = True
Else: Nad1.Visible = False
End If
End Sub
Private Sub Кнопка21_Click()
On Error GoTo Err_Кнопка21_Click
DoCmd.Close
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.GoToRecord,, acPrevious
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,, acNext
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.DoMenuItem acFormBar, acRecordsMenu, 5,, acMenuVer70
Exit_Кнопка24_Click:
Exit Sub
Err_Кнопка24_Click:
MsgBox Err.Description
Resume Exit_Кнопка24_Click
End Sub
Private Sub Кнопка28_Click()
On Error GoTo Err_Кнопка28_Click
Dim stDocName As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1075) & ChrW(1083) & ChrW(32) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1091)
DoCmd.RunMacro stDocName
Exit_Кнопка28_Click:
Exit Sub
Err_Кнопка28_Click:
MsgBox Err.Description
Resume Exit_Кнопка28_Click
End Sub
§ Форма «Реестр договоров»
Option Compare Database
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
DoCmd.GoToRecord,, acNext
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
Private Sub Кнопка11_Click()
DoCmd.GoToRecord,, acNext
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click
DoCmd.GoToRecord,, acPrevious
Exit_Кнопка12_Click:
Exit Sub
Err_Кнопка12_Click:
MsgBox Err.Description
Resume Exit_Кнопка12_Click
End Sub
Private Sub Кнопка15_Click()
On Error GoTo Err_Кнопка15_Click
DoCmd.Close
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, acRecordsMenu, 5,, acMenuVer70
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
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70
Exit_Кнопка19_Click:
Exit Sub
Err_Кнопка19_Click:
MsgBox Err.Description
Resume Exit_Кнопка19_Click
End Sub
§ Форма «Реестр доходных актов»
Option Compare Database
Private Sub Кнопка4_Click()
On Error GoTo Err_Кнопка4_Click
DoCmd.GoToRecord,, acNext
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
DoCmd.GoToRecord,, acPrevious
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
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5,, acMenuVer70
Exit_Кнопка6_Click:
Exit Sub
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click
End Sub
Private Sub Кнопка7_Click()
On Error GoTo Err_Кнопка7_Click
DoCmd.Close
Exit_Кнопка7_Click:
Exit Sub
Err_Кнопка7_Click:
MsgBox Err.Description
Resume Exit_Кнопка7_Click
End Sub
Private Sub Кнопка9_Click()
On Error GoTo Err_Кнопка9_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
§ Форма «Реестр затратных актов»
Option Compare Database
Private Sub Кнопка5_Click()
On Error GoTo Err_Кнопка5_Click
DoCmd.GoToRecord,, acPrevious
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
DoCmd.GoToRecord,, acNext
Exit_Кнопка6_Click:
Exit Sub
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click
End Sub
Private Sub Кнопка7_Click()
On Error GoTo Err_Кнопка7_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5,, acMenuVer70
Exit_Кнопка7_Click:
Exit Sub
Err_Кнопка7_Click:
MsgBox Err.Description
Resume Exit_Кнопка7_Click
End Sub
Private Sub Кнопка8_Click()
On Error GoTo Err_Кнопка8_Click
DoCmd.Close
Exit_Кнопка8_Click:
Exit Sub
Err_Кнопка8_Click:
MsgBox Err.Description
Resume Exit_Кнопка8_Click
End Sub
Private Sub Кнопка9_Click()
On Error GoTo Err_Кнопка9_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
§ Форма «Реестр проведенных работ за 2008 г»
Option Compare Database
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click
DoCmd.Close
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
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1075) & ChrW(1083) & ChrW(32) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1091)
DoCmd.RunMacro stDocName
Exit_Кнопка13_Click:
Exit Sub
Err_Кнопка13_Click:
MsgBox Err.Description
Resume Exit_Кнопка13_Click
End Sub
Private Sub Кнопка15_Click()
On Error GoTo Err_Кнопка15_Click
DoCmd.GoToRecord,, acNext
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.GoToRecord,, acPrevious
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.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70
Exit_Кнопка17_Click:
Exit Sub
Err_Кнопка17_Click:
MsgBox Err.Description
Resume Exit_Кнопка17_Click
End Sub
§ Форма «Справочник контрагентов»
Option Compare Database
Private Sub Кнопка11_Click()
On Error GoTo Err_Кнопка12_Click
DoCmd.GoToRecord,, acPrevious
Exit_Кнопка12_Click:
Exit Sub
Err_Кнопка12_Click:
MsgBox Err.Description
Resume Exit_Кнопка12_Click
End Sub
Private Sub Кнопка12_Click()
DoCmd.GoToRecord,, acNext
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
Private Sub Кнопка14_Click()
On Error GoTo Err_Кнопка14_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5,, 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.Close
Exit_Кнопка15_Click:
Exit Sub
Err_Кнопка15_Click:
MsgBox Err.Description
Resume Exit_Кнопка15_Click
End Sub
Private Sub Кнопка17_Click()
On Error GoTo Err_Кнопка17_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70
Exit_Кнопка17_Click:
Exit Sub
Err_Кнопка17_Click:
MsgBox Err.Description
Resume Exit_Кнопка17_Click
End Sub
§ Форма «Справочник служб»
Option Compare Database
Private Sub Кнопка9_Click()
On Error GoTo Err_Кнопка9_Click
DoCmd.GoToRecord,, acPrevious
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
DoCmd.GoToRecord,, acNext
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
Private Sub Кнопка11_Click()
On Error GoTo Err_Кнопка11_Click
DoCmd.Close
Exit_Кнопка11_Click:
Exit Sub
Err_Кнопка11_Click:
MsgBox Err.Description
Resume Exit_Кнопка11_Click
End Sub
Private Sub Кнопка13_Click()
On Error GoTo Err_Кнопка13_Click
Dim stDocName As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1075) & ChrW(1083) & ChrW(32) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1091)
DoCmd.RunMacro stDocName
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.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70
Exit_Кнопка14_Click:
Exit Sub
Err_Кнопка14_Click:
MsgBox Err.Description
Resume Exit_Кнопка14_Click
End Sub
Дата добавления: 2015-07-25; просмотров: 65 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Расчет показателей экономической эффективности | | | Список сокращений. |