Читайте также: |
|
Форма «Титульный лист»
Option Compare Database
Private Sub Кнопка7_Click()
On Error GoTo Err_Кнопка7_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1054) & ChrW(1089) & ChrW(1085) & ChrW(1086) & ChrW(1074) & ChrW(1085) & ChrW(1072) & ChrW(1103)
DoCmd.OpenForm stDocName,,, stLinkCriteria
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.Quit
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
Форма «Основная»
Option Compare Database
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1050) & ChrW(1072) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1076) & ChrW(1072) & ChrW(1088) & ChrW(1100)
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
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(51) & ChrW(1082) & ChrW(1072) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1076) & ChrW(50)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка2_Click:
Exit Sub
Err_Кнопка2_Click:
MsgBox Err.Description
Resume Exit_Кнопка2_Click
End Sub
Private Sub Кнопка3_Click()
On Error GoTo Err_Кнопка3_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1053) & ChrW(1072) & ChrW(1075) & ChrW(1088) & ChrW(1091) & ChrW(1079) & ChrW(1082) & ChrW(1072)
DoCmd.OpenForm stDocName,,, stLinkCriteria
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
Dim stLinkCriteria As String
stDocName = ChrW(1050) & ChrW(1058) & ChrW(1055)
DoCmd.OpenForm stDocName,,, stLinkCriteria
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(1084) & ChrW(1077) & ChrW(1085) & ChrW(1102)
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
DoCmd.Close
Exit_Кнопка6_Click:
Exit Sub
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click
End Sub
Форма «Календарь»
Option Compare Database
Private Sub Кнопка6_Click()
On Error GoTo Err_Кнопка6_Click
Dim stDocName As String
stDocName = ChrW(1042) & ChrW(1074) & ChrW(1086) & ChrW(1076) & ChrW(32) & ChrW(1084) & ChrW(1077) & ChrW(1089) & ChrW(1103) & ChrW(1094) & ChrW(1072)
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(49)
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = ChrW(1076) & ChrW(1077) & ChrW(1085) & ChrW(1100) & ChrW(1053) & ChrW(1077) & ChrW(1076) & ChrW(32) & ChrW(1074) & ChrW(32) & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090)
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = ChrW(1074) & ChrW(1099) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1085) & ChrW(1099) & ChrW(1077)
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = ChrW(1085) & ChrW(1086) & ChrW(1084) & ChrW(1077) & ChrW(1088) & ChrW(32) & ChrW(1085) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1080)
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = ChrW(1076) & ChrW(1086) & ChrW(1073) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1095) & ChrW(1077) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1080)
DoCmd.OpenQuery stDocName, acNormal, acEdit
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.DoMenuItem acFormBar, acRecordsMenu, 5,, acMenuVer70
Exit_Кнопка7_Click:
Exit Sub
Err_Кнопка7_Click:
MsgBox Err.Description
Resume Exit_Кнопка7_Click
End Sub
Private Sub Кнопка13_Click()
On Error GoTo Err_Кнопка13_Click
Dim stDocName As String
stDocName = ChrW(1076) & ChrW(1077) & ChrW(1085) & ChrW(1100) & ChrW(1053) & ChrW(1077) & ChrW(1076) & ChrW(32) & ChrW(1074) & ChrW(32) & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090)
DoCmd.OpenQuery stDocName, acNormal, acEdit
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
Dim stDocName As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(49)
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = ChrW(1076) & ChrW(1077) & ChrW(1085) & ChrW(1100) & ChrW(1053) & ChrW(1077) & ChrW(1076) & ChrW(32) & ChrW(1074) & ChrW(32) & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090)
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = ChrW(1074) & ChrW(1099) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1085) & ChrW(1099) & ChrW(1077)
DoCmd.OpenQuery stDocName, acNormal, acEdit
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
Dim stDocName As String
stDocName = ChrW(1076) & ChrW(1077) & ChrW(1085) & ChrW(1100) & ChrW(1053) & ChrW(1077) & ChrW(1076) & ChrW(32) & ChrW(1074) & ChrW(32) & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090)
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = ChrW(1074) & ChrW(1099) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1085) & ChrW(1099) & ChrW(1077)
DoCmd.OpenQuery stDocName, acNormal, acEdit
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
Dim stDocName As String
stDocName = ChrW(1074) & ChrW(1099) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1085) & ChrW(1099) & ChrW(1077)
DoCmd.OpenQuery stDocName, acNormal, acEdit
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, 5,, acMenuVer70
Exit_Кнопка17_Click:
Exit Sub
Err_Кнопка17_Click:
MsgBox Err.Description
Resume Exit_Кнопка17_Click
End Sub
Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка20_Click
Dim stDocName As String
stDocName = ChrW(1085) & ChrW(1086) & ChrW(1084) & ChrW(1077) & ChrW(1088) & ChrW(32) & ChrW(1085) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1080)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Кнопка20_Click:
Exit Sub
Err_Кнопка20_Click:
MsgBox Err.Description
Resume Exit_Кнопка20_Click
End Sub
Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click
Dim stDocName As String
stDocName = ChrW(1076) & ChrW(1086) & ChrW(1073) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1095) & ChrW(1077) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1080)
DoCmd.OpenQuery stDocName, acNormal, acEdit
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
Dim stLinkCriteria As String
stDocName = ChrW(1056) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(95) & ChrW(1085) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1103) & ChrW(32) & ChrW(1074) & ChrW(1089) & ChrW(1077)
stLinkCriteria = "[четная/нечетная]=" & "'" & Me![нечетная/четная] & "'"
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка23_Click:
Exit Sub
Err_Кнопка23_Click:
MsgBox Err.Description
Resume Exit_Кнопка23_Click
End Sub
Private Sub Кнопка25_Click()
On Error GoTo Err_Кнопка25_Click
Dim stDocName As String
stDocName = ChrW(1076) & ChrW(1086) & ChrW(1073) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1095) & ChrW(1077) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1080)
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5,, 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
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5,, 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
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(95) & ChrW(1085) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1103) & ChrW(32) & ChrW(1074) & ChrW(1089) & ChrW(1077)
stLinkCriteria = "[Неделя нечет/чет]=" & "'" & Me![нечетная/четная] & "'"
DoCmd.OpenForm stDocName,,, stLinkCriteria
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
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(51) & ChrW(1082) & ChrW(1072) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1076) & ChrW(50)
DoCmd.OpenForm stDocName,,, stLinkCriteria
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.Close
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.Close
Exit_Кнопка30_Click:
Exit Sub
Err_Кнопка30_Click:
MsgBox Err.Description
Resume Exit_Кнопка30_Click
End Sub
Форма «Текущая неделя»
Option Compare Database
Private Sub Кнопка30_Click()
On Error GoTo Err_Кнопка30_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(50) & ChrW(1056) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(95) & ChrW(1085) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1103) & ChrW(49)
stLinkCriteria = "[четная/нечетная]=" & "'" & Me![Поле7] & "'"
DoCmd.OpenForm stDocName,,, stLinkCriteria
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 stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(51) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(32) & ChrW(1085) & ChrW(1086) & ChrW(1074)
stLinkCriteria = "[Неделя нечет/чет]=" & "'" & Me![Поле7] & "'"
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка31_Click:
Exit Sub
Err_Кнопка31_Click:
MsgBox Err.Description
Resume Exit_Кнопка31_Click
End Sub
Private Sub Кнопка36_Click()
On Error GoTo Err_Кнопка36_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(51) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(32) & ChrW(1085) & ChrW(1086) & ChrW(1074)
stLinkCriteria = "[День недели]=" & "'" & Me![Поле34] & "'"
DoCmd.OpenForm stDocName,,, stLinkCriteria
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
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(51) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(1085)
stLinkCriteria = "[Неделя нечет/чет]=" & "'" & Me![Поле7] & "'"
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка37_Click:
Exit Sub
Err_Кнопка37_Click:
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(51) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(32) & ChrW(1074) & ChrW(1090)
stLinkCriteria = "[Неделя нечет/чет]=" & "'" & Me![Поле7] & "'"
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка40_Click:
Exit Sub
Err_Кнопка40_Click:
MsgBox Err.Description
Resume Exit_Кнопка40_Click
End Sub
Private Sub Кнопка55_Click()
On Error GoTo Err_Кнопка55_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1053) & ChrW(1072) & ChrW(1095) & ChrW(1072) & ChrW(1083) & ChrW(1086) & ChrW(32) & ChrW(1091) & ChrW(1095) & ChrW(32) & ChrW(1075) & ChrW(1086) & ChrW(1076) & ChrW(1072)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка55_Click:
Exit Sub
Err_Кнопка55_Click:
MsgBox Err.Description
Resume Exit_Кнопка55_Click
End Sub
Private Sub Кнопка66_Click()
On Error GoTo Err_Кнопка66_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(51) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(1085)
stLinkCriteria = "[Неделя нечет/чет]=" & "'" & Me![Поле56] & "'"
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка66_Click:
Exit Sub
Err_Кнопка66_Click:
MsgBox Err.Description
Resume Exit_Кнопка66_Click
End Sub
Private Sub Кнопка67_Click()
On Error GoTo Err_Кнопка67_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(51) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(32) & ChrW(1074) & ChrW(1090)
stLinkCriteria = "[Неделя нечет/чет]=" & "'" & Me![Поле58] & "'"
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка67_Click:
Exit Sub
Err_Кнопка67_Click:
MsgBox Err.Description
Resume Exit_Кнопка67_Click
End Sub
Private Sub Кнопка68_Click()
On Error GoTo Err_Кнопка68_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(51) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(32) & ChrW(1089) & ChrW(1088)
stLinkCriteria = "[Неделя нечет/чет]=" & "'" & Me![Поле59] & "'"
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка68_Click:
Exit Sub
Err_Кнопка68_Click:
MsgBox Err.Description
Resume Exit_Кнопка68_Click
End Sub
Private Sub Кнопка69_Click()
On Error GoTo Err_Кнопка69_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(51) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(32) & ChrW(1095) & ChrW(1090)
stLinkCriteria = "[Неделя нечет/чет]=" & "'" & Me![Поле60] & "'"
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка69_Click:
Exit Sub
Err_Кнопка69_Click:
MsgBox Err.Description
Resume Exit_Кнопка69_Click
End Sub
Private Sub Кнопка70_Click()
On Error GoTo Err_Кнопка70_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(51) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1090)
stLinkCriteria = "[Неделя нечет/чет]=" & "'" & Me![Поле61] & "'"
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка70_Click:
Exit Sub
Err_Кнопка70_Click:
MsgBox Err.Description
Resume Exit_Кнопка70_Click
End Sub
Private Sub Кнопка74_Click()
On Error GoTo Err_Кнопка74_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1042) & ChrW(1074) & ChrW(1076) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(32) & ChrW(1076) & ChrW(1072) & ChrW(1090) & ChrW(1091)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка74_Click:
Exit Sub
Err_Кнопка74_Click:
MsgBox Err.Description
Resume Exit_Кнопка74_Click
End Sub
Private Sub Кнопка80_Click()
On Error GoTo Err_Кнопка80_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1082) & ChrW(1080)
stLinkCriteria = "[Дата]=" & "#" & Me![Поле9] & "#"
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка80_Click:
Exit Sub
Err_Кнопка80_Click:
MsgBox Err.Description
Resume Exit_Кнопка80_Click
End Sub
Private Sub Кнопка81_Click()
On Error GoTo Err_Кнопка81_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1082) & ChrW(1080)
stLinkCriteria = "[Дата]=" & "#" & Me![Поле9] & "#"
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка81_Click:
Exit Sub
Err_Кнопка81_Click:
MsgBox Err.Description
Resume Exit_Кнопка81_Click
End Sub
Private Sub Кнопка82_Click()
On Error GoTo Err_Кнопка82_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1082) & ChrW(1080)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка82_Click:
Exit Sub
Err_Кнопка82_Click:
MsgBox Err.Description
Resume Exit_Кнопка82_Click
End Sub
Private Sub Кнопка83_Click()
On Error GoTo Err_Кнопка83_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1082) & ChrW(1080)
stLinkCriteria = "[Дата]=" & "#" & Me![Сегодня] & "#"
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка83_Click:
Exit Sub
Err_Кнопка83_Click:
MsgBox Err.Description
Resume Exit_Кнопка83_Click
End Sub
Private Sub Кнопка84_Click()
On Error GoTo Err_Кнопка84_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1082) & ChrW(1080)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка84_Click:
Exit Sub
Err_Кнопка84_Click:
MsgBox Err.Description
Resume Exit_Кнопка84_Click
End Sub
Private Sub Кнопка86_Click()
On Error GoTo Err_Кнопка86_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1042) & ChrW(1089) & ChrW(1077) & ChrW(32) & ChrW(1079) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1082) & ChrW(1080)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка86_Click:
Exit Sub
Err_Кнопка86_Click:
MsgBox Err.Description
Resume Exit_Кнопка86_Click
End Sub
Private Sub Кнопка87_Click()
On Error GoTo Err_Кнопка87_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1082) & ChrW(1080) & ChrW(32) & ChrW(1089) & ChrW(1077) & ChrW(1075) & ChrW(1086) & ChrW(1076) & ChrW(1085) & ChrW(1103)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка87_Click:
Exit Sub
Err_Кнопка87_Click:
MsgBox Err.Description
Resume Exit_Кнопка87_Click
End Sub
Private Sub Кнопка88_Click()
On Error GoTo Err_Кнопка88_Click
DoCmd.Close
Exit_Кнопка88_Click:
Exit Sub
Err_Кнопка88_Click:
MsgBox Err.Description
Resume Exit_Кнопка88_Click
End Sub
Private Sub Кнопка89_Click()
On Error GoTo Err_Кнопка89_Click
DoCmd.Close
Exit_Кнопка89_Click:
Exit Sub
Err_Кнопка89_Click:
MsgBox Err.Description
Resume Exit_Кнопка89_Click
End Sub
Форма «Введите дату»
Option Compare Database
Private Sub Кнопка2_Click()
On Error GoTo Err_Кнопка2_Click
Dim stDocName As String
stDocName = ChrW(1057) & ChrW(1045) & ChrW(1043) & ChrW(1054) & ChrW(1044) & ChrW(1053) & ChrW(1071)
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5,, acMenuVer70
Exit_Кнопка2_Click:
Exit Sub
Err_Кнопка2_Click:
MsgBox Err.Description
Resume Exit_Кнопка2_Click
End Sub
Private Sub Кнопка3_Click()
On Error GoTo Err_Кнопка3_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5,, acMenuVer70
Exit_Кнопка3_Click:
Exit Sub
Err_Кнопка3_Click:
MsgBox Err.Description
Resume Exit_Кнопка3_Click
End Sub
Форма «Группа»
Option Compare Database
Private Sub Кнопка6_Click()
On Error GoTo Err_Кнопка6_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1076) & ChrW(1080) & ChrW(1089) & ChrW(1094) & ChrW(1080) & ChrW(1087) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1099)
stLinkCriteria = "[Группа]=" & "'" & Me![Группа] & "'"
DoCmd.OpenForm stDocName,,, stLinkCriteria
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
Dim stLinkCriteria As String
stDocName = ChrW(1087) & ChrW(1077) & ChrW(1088) & ChrW(1077) & ChrW(1095) & ChrW(1077) & ChrW(1085) & ChrW(1100) & ChrW(32) & ChrW(1076) & ChrW(1080) & ChrW(1089) & ChrW(1094) & ChrW(1080) & ChrW(1087) & ChrW(1083) & ChrW(1080) & ChrW(1085)
stLinkCriteria = "[Группа]=" & "'" & Me![Группа] & "'"
DoCmd.OpenForm stDocName,,, stLinkCriteria
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
Форма «Дисциплины2»
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
Форма «КТП»
Option Compare Database
Private Sub Кнопка16_Click()
On Error GoTo Err_Кнопка16_Click
Dim stDocName As String
stDocName = ChrW(1050) & ChrW(1058) & ChrW(1055)
DoCmd.OpenReport stDocName, acPreview
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.Close
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_Кнопка11_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1052) & ChrW(1077) & ChrW(1090) & ChrW(1086) & ChrW(1076) & ChrW(1080) & ChrW(1095) & ChrW(1082) & ChrW(1080)
stLinkCriteria = "[Наименование дисциплин, входящих в заявленную образовательную пр]=" & Me![Наименование дисциплин, входящих в заявленную образовательную пр]
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
stDocName = ChrW(1083) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1072)
DoCmd.OpenReport stDocName, acPreview
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(1052) & ChrW(1077) & ChrW(1090) & ChrW(1086) & ChrW(1076) & ChrW(1080) & ChrW(1095) & ChrW(1082) & ChrW(1080)
DoCmd.OpenForm stDocName,,, stLinkCriteria
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
Dim stDocName As String
stDocName = ChrW(1052) & ChrW(1077) & ChrW(1090) & ChrW(1086) & ChrW(1076) & ChrW(1080) & ChrW(1095) & ChrW(1082) & ChrW(1080)
DoCmd.OpenQuery stDocName, acNormal, acEdit
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
Screen.PreviousControl.SetFocus
DoCmd.FindNext
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
Dim stDocName As String
stDocName = ChrW(1074) & ChrW(1074) & ChrW(1077) & ChrW(1076) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(32) & ChrW(1075) & ChrW(1086) & ChrW(1076) & ChrW(32) & ChrW(1080) & ChrW(1079) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1103)
DoCmd.OpenQuery stDocName, acNormal, acEdit
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
Dim stDocName As String
stDocName = ChrW(1083) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1072)
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка17_Click:
Exit Sub
Err_Кнопка17_Click:
MsgBox Err.Description
Resume Exit_Кнопка17_Click
End Sub
Private Sub Кнопка18_Click()
On Error GoTo Err_Кнопка18_Click
DoCmd.Close
Exit_Кнопка18_Click:
Exit Sub
Err_Кнопка18_Click:
MsgBox Err.Description
Resume Exit_Кнопка18_Click
End Sub
Форма «литература по дисциплинам»
Option Compare Database
Private Sub Кнопка4_Click()
On Error GoTo Err_Кнопка4_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1083) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1072)
stLinkCriteria = "[Наименование дисциплин, входящих в заявленную образовательную пр]=" & "'" & Me![Дисциплина] & "'"
DoCmd.OpenForm stDocName,,, stLinkCriteria
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(1083) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1072)
stLinkCriteria = "[Наименование дисциплин, входящих в заявленную образовательную пр]=" & "'" & Me![Дисциплина] & "'"
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка5_Click:
Exit Sub
Err_Кнопка5_Click:
MsgBox Err.Description
Resume Exit_Кнопка5_Click
End Sub
Private Sub Кнопка7_Click()
On Error GoTo Err_Кнопка7_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1083) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1072)
stLinkCriteria = "[Наименование дисциплин, входящих в заявленную образовательную пр]=" & Me![Дисциплина]
DoCmd.OpenForm stDocName,,, stLinkCriteria
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
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1083) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1072)
stLinkCriteria = "[Наименование дисциплин, входящих в заявленную образовательную пр]=" & Me![Код]
DoCmd.OpenForm stDocName,,, stLinkCriteria
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
Dim stLinkCriteria As String
stDocName = ChrW(1076) & ChrW(1080) & ChrW(1089) & ChrW(1094) & ChrW(1080) & ChrW(1087) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1099) & ChrW(50)
DoCmd.OpenForm stDocName,,, stLinkCriteria
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
Форма «меню»
Option Compare Database
Private Sub Кнопка5_Click()
On Error GoTo Err_Кнопка5_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1043) & ChrW(1088) & ChrW(1091) & ChrW(1087) & ChrW(1087) & 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(1076) & ChrW(1080) & ChrW(1089) & ChrW(1094) & ChrW(1080) & ChrW(1087) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1099)
DoCmd.OpenForm stDocName,,, stLinkCriteria
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
Dim stLinkCriteria As String
stDocName = ChrW(1076) & ChrW(1080) & ChrW(1089) & ChrW(1094) & ChrW(1080) & ChrW(1087) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1099) & ChrW(49)
DoCmd.OpenForm stDocName,,, stLinkCriteria
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
Dim stLinkCriteria As String
stDocName = ChrW(1083) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1072)
DoCmd.OpenForm stDocName,,, stLinkCriteria
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
Dim stLinkCriteria As String
stDocName = ChrW(1055) & ChrW(1088) & ChrW(1077) & ChrW(1087) & ChrW(1086) & ChrW(1076) & ChrW(1072) & ChrW(1074) & ChrW(1072) & ChrW(1090) & ChrW(1077) & ChrW(1083) & ChrW(1080)
DoCmd.OpenForm stDocName,,, stLinkCriteria
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
Dim stLinkCriteria As String
stDocName = ChrW(1062) & ChrW(1050)
DoCmd.OpenForm stDocName,,, stLinkCriteria
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.Quit
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
DoCmd.Quit
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.Quit
Exit_Кнопка15_Click:
Exit Sub
Err_Кнопка15_Click:
MsgBox Err.Description
Resume Exit_Кнопка15_Click
End Sub
Private Sub Кнопка19_Click()
On Error GoTo Err_Кнопка19_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1042) & ChrW(1072) & ChrW(1082) & ChrW(1072) & ChrW(1085) & ChrW(1089) & ChrW(1080) & ChrW(1103)
DoCmd.OpenForm stDocName,,, stLinkCriteria
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
Dim stLinkCriteria As String
stDocName = ChrW(1052) & ChrW(1077) & ChrW(1090) & ChrW(1086) & ChrW(1076) & ChrW(1080) & ChrW(1095) & ChrW(1082) & ChrW(1080)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка20_Click:
Exit Sub
Err_Кнопка20_Click:
MsgBox Err.Description
Resume Exit_Кнопка20_Click
End Sub
Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click
DoCmd.Close
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
Dim stLinkCriteria As String
stDocName = ChrW(1087) & ChrW(1077) & ChrW(1088) & ChrW(1077) & ChrW(1095) & ChrW(1077) & ChrW(1085) & ChrW(1100) & ChrW(32) & ChrW(1076) & ChrW(1080) & ChrW(1089) & ChrW(1094) & ChrW(1080) & ChrW(1087) & ChrW(1083) & ChrW(1080) & ChrW(1085)
DoCmd.OpenForm stDocName,,, stLinkCriteria
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
Dim stLinkCriteria As String
stDocName = ChrW(1083) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1072) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1076) & ChrW(1080) & ChrW(1089) & ChrW(1094) & ChrW(1080) & ChrW(1087) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1072) & ChrW(1084)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка24_Click:
Exit Sub
Err_Кнопка24_Click:
MsgBox Err.Description
Resume Exit_Кнопка24_Click
End Sub
Форма «Методички»
Option Compare Database
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
Форма «Нагрузка»
Option Compare Database
Private Sub Кнопка30_Click()
On Error GoTo Err_Кнопка30_Click
Dim stDocName As String
stDocName = ChrW(1053) & ChrW(1072) & ChrW(1075) & ChrW(1088) & ChrW(1091) & ChrW(1079) & ChrW(1082) & ChrW(1072)
DoCmd.OpenReport stDocName, acPreview
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
DoCmd.Close
Exit_Кнопка31_Click:
Exit Sub
Err_Кнопка31_Click:
MsgBox Err.Description
Resume Exit_Кнопка31_Click
End Sub
Форма «Перечень дисциплин»
Option Compare Database
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
Форма «Преподаватели»
Option Compare Database
Private Sub Кнопка6_Click()
On Error GoTo Err_Кнопка6_Click
DoCmd.Close
Exit_Кнопка6_Click:
Exit Sub
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click
End Sub
Форма «Расписание_неделя все»
Option Compare Database
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
Форма «Расписание_неделя нечет»
Option Compare Database
Private Sub Кнопка18_Click()
On Error GoTo Err_Кнопка18_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1056) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(95) & ChrW(1085) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1103) & ChrW(1063) & ChrW(1077) & ChrW(1090)
stLinkCriteria = "[пара]=" & Me![Пара]
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка18_Click:
Exit Sub
Err_Кнопка18_Click:
MsgBox Err.Description
Resume Exit_Кнопка18_Click
End Sub
Форма «ЦК»
Option Compare Database
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
Отчёты
КТП
Дата добавления: 2015-07-08; просмотров: 191 | Нарушение авторских прав
<== предыдущая страница | | | следующая страница ==> |
Организационные и технические мероприятия по защите от поражения электрическим током | | | Урок Календарные сроки Наименование Количеств Вид занятий Учебно-наглядные Задания для Примечания |