Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Программное представление формы

Читайте также:
  1. D) формы их объединения;
  2. I Формы возрождения
  3. II. КЛАССИФИКАЦИЯ НА ОСНОВАНИИ ФОРМЫ УПОТРЕБЛЕНИЯ
  4. III. ДЕТСКИЕ ИГРОВЫЕ ПРЕДСТАВЛЕНИЯ ЛЕТНЕЕ ПРЕДСТАВЛЕНИЕ
  5. IV. Формы контроля за исполнением административного регламента
  6. IX. ПРЕДСТАВЛЕНИЕ, СУЖДЕНИЕ, ПОНЯТИЕ
  7. V. ФОРМЫ ПРОМЕЖУТОЧНОГО И ИТОГОВОГО КОНТРОЛЯ

 

Форма «Титульный лист»

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 | Нарушение авторских прав

Читайте в этой же книге: Анализ предметной области | Требования по надежности | Потоки данных | Инфологическое проектирование | Мною, были созданы таблицы в режиме Конструктора. | Разработка запросов | Запрос на обновление | Разработка отчетов | Разработка форм для ввода и вывода информации | Разработка инструкции пользователю |
<== предыдущая страница | следующая страница ==>
Организационные и технические мероприятия по защите от поражения электрическим током| Урок Календарные сроки Наименование Количеств Вид занятий Учебно-наглядные Задания для Примечания
mybiblioteka.su - 2015-2024 год. (0.395 сек.)