Програмний код форми “МЕБЕЛЬ”:
Option Compare Database
Private Sub Кнопка0_Click()
On Error GoTo Err_Кнопка0_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1054) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1075) & ChrW(1088) & ChrW(1072) & ChrW(1084) & ChrW(1084) & ChrW(1077)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка0_Click:
Exit Sub
Err_Кнопка0_Click:
MsgBox Err.Description
Resume Exit_Кнопка0_Click
End Sub
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1054) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1075) & ChrW(1088) & ChrW(1072) & ChrW(1084) & ChrW(1084) & ChrW(1077)
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(1044) & ChrW(1086) & ChrW(1075) & ChrW(1086) & ChrW(1074) & ChrW(1086) & ChrW(1088)
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(1047) & ChrW(1072) & ChrW(1082) & ChrW(1072) & ChrW(1079) & ChrW(1095) & ChrW(1080) & ChrW(1082)
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(1048) & ChrW(1079) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1080) & ChrW(1077)
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(1052) & ChrW(1072) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1080) & ChrW(1072) & ChrW(1083)
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(1050) & ChrW(1072) & ChrW(1083) & ChrW(1100) & ChrW(1082) & ChrW(1091) & ChrW(1083) & ChrW(1103) & ChrW(1094) & ChrW(1080) & ChrW(1103)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка6_Click:
Exit Sub
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_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
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(1099) & ChrW(32) & ChrW(1080) & 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_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
Програмний код форми “О программе”:
Option Compare Database
Private Sub Кнопка9_Click()
On Error GoTo Err_Кнопка9_Click
DoCmd.Close
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
Програмний код форми “Заказчик”:
Option Compare Database
Private Sub Form_Load()
Имя_фирмы.Enabled = False
Факс.Enabled = False
Название_банка.Enabled = False
МФО.Enabled = False
ОКПО.Enabled = False
Расчетный_счет.Enabled = False
Form.Caption = "Заказчик"
End Sub
Private Sub Группа34_BeforeUpdate(Cancel As Integer)
If Группа34 = 1 Then
Имя_фирмы.Enabled = False
Факс.Enabled = False
Название_банка.Enabled = False
МФО.Enabled = False
ОКПО.Enabled = False
Расчетный_счет.Enabled = False
Серия_паспорта.Enabled = True
№_паспорта.Enabled = True
Контактный_телефон.Enabled = True
End If
If Группа34 = 2 Then
Серия_паспорта.Enabled = False
№_паспорта.Enabled = False
Контактный_телефон.Enabled = False
Имя_фирмы.Enabled = True
Факс.Enabled = True
Название_банка.Enabled = True
МФО.Enabled = True
ОКПО.Enabled = True
Расчетный_счет.Enabled = True
End If
End Sub
Public Sub ДобавитьЗапись_Click()
On Error GoTo Err_ДобавитьЗапись_Click
Фамилия.SetFocus
If (Фамилия.Text <> "") Then
Имя.SetFocus
If (Имя.Text <> "") Then
Отчество.SetFocus
If (Отчество.Text <> "") Then
Адрес.SetFocus
If (Адрес.Text <> "") Then
Телефон.SetFocus
If (Телефон.Text <> "") Then
If (Группа34 = 1) Then
Серия_паспорта.SetFocus
If (Серия_паспорта.Text = "") Then
GoTo Err_ДобавитьЗапись_Click
End If
Else
If (Группа34 = 2) Then
Имя_фирмы.SetFocus
If (Имя_фирмы.Text = "") Then
GoTo Err_ДобавитьЗапись_Click
End If
End If
End If
End If
End If
End If
End If
End If
Фамилия.SetFocus
DoCmd.GoToRecord,, acNewRec
Группа34.Enabled = True
Exit_ДобавитьЗапись_Click:
Exit Sub
Err_ДобавитьЗапись_Click:
If (Err.Description <> "") Then
Фамилия.SetFocus
If (Фамилия.Text <> "") Then
Имя.SetFocus
If (Имя.Text <> "") Then
Отчество.SetFocus
If (Отчество.Text <> "") Then
Адрес.SetFocus
If (Адрес.Text <> "") Then
Телефон.SetFocus
If (Телефон.Text <> "") Then
If (Группа34 = 1) Then
Серия_паспорта.SetFocus
If (Серия_паспорта.Text <> "") Then
№_паспорта.SetFocus
MsgBox "Не все поля заполнены!!! Введите значение в поле № паспорта"
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Серия паспорта"
End If
End If
If (Группа34 = 2) Then
Имя_фирмы.SetFocus
If (Имя_фирмы.Text <> "") Then
Факс.SetFocus
If (Факс.Text <> "") Then
Название_банка.SetFocus
If (Название_банка.Text <> "") Then
МФО.SetFocus
If (МФО.Text <> "") Then
ОКПО.SetFocus
If (ОКПО.Text <> "") Then
Расчетный_счет.SetFocus
MsgBox "Не все поля заполнены!!! Введите значение в поле Расчетный_счет"
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле ОКПО"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле МФО"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Название банка"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Факс"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Имя фирмы"
End If
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Телефон"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Адрес"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Отчество"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Имя"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Фамилия"
End If
End If
Resume Exit_ДобавитьЗапись_Click
End Sub
Private Sub Серия_паспорта_Exit(Cancel As Integer)
If (Серия_паспорта.Text <> "") Then
Группа34.Enabled = False
End If
End Sub
Private Sub №_паспорта_Exit(Cancel As Integer)
If (№_паспорта.Text <> "") Then
Группа34.Enabled = False
End If
End Sub
Private Sub Контактный_Телефон_Exit(Cancel As Integer)
If (Контактный_телефон.Text <> "") Then
Группа34.Enabled = False
End If
End Sub
Private Sub Имя_фирмы_Exit(Cancel As Integer)
If (Имя_фирмы.Text <> "") Then
Группа34.Enabled = False
End If
End Sub
Private Sub Факс_Exit(Cancel As Integer)
If (Факс.Text <> "") Then
Группа34.Enabled = False
End If
End Sub
Private Sub Название_банка_Exit(Cancel As Integer)
If (Название_банка.Text <> "") Then
Группа34.Enabled = False
End If
End Sub
Private Sub МФО_Exit(Cancel As Integer)
If (МФО.Text <> "") Then
Группа34.Enabled = False
End If
End Sub
Private Sub ОКПО_Exit(Cancel As Integer)
If (ОКПО.Text <> "") Then
Группа34.Enabled = False
End If
End Sub
Private Sub Расчетный_счет_Exit(Cancel As Integer)
If (Расчетный_счет.Text <> "") Then
Группа34.Enabled = False
End If
End Sub
Private Sub Кнопка43_Click()
On Error GoTo Err_Кнопка43_Click
DoCmd.Close
Exit_Кнопка43_Click:
Exit Sub
Err_Кнопка43_Click:
MsgBox "Ошибка при закрытии формы"
Resume Exit_Кнопка43_Click
End Sub
Програмний код форми “Договор”:
Option Compare Database
Private Sub Добавить_Click()
On Error GoTo Err_Добавить_Click
DoCmd.GoToRecord,, acNewRec
Exit_Добавить_Click:
Exit Sub
Err_Добавить_Click:
№_договора.SetFocus
If (№_договора.Text <> "") Then
Код_заказчика.SetFocus
If (Код_заказчика.Text <> "") Then
Дата_заключения.SetFocus
If (Дата_заключения.Text <> "") Then
Срок_к_установке.SetFocus
If (Срок_к_установке.Text <> "") Then
Дата_окончания_гарантии.SetFocus
If (Дата_окончания_гарантии.Text <> "") Then
Код_заказчика.SetFocus
MsgBox "Клиент с таким Кодом заказчика не зарегистрирован в базе данных!!!"
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Дата окончания гарантии"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Срок к установке"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Дата заключения"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Код заказчика"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле № договора"
End If
Resume Exit_Добавить_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
Програмний код форми “Изделие”:
Option Compare Database
Private Sub Добавить_Click()
On Error GoTo Err_Добавить_Click
DoCmd.GoToRecord,, acNewRec
Exit_Добавить_Click:
Exit Sub
Err_Добавить_Click:
Наименование.SetFocus
If (Наименование.Text <> "") Then
Сложность.SetFocus
MsgBox "Не все поля заполнены!!! Введите значение в поле Сложность"
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Наименование"
End If
Resume Exit_Добавить_Click
End Sub
Private Sub Кнопка9_Click()
On Error GoTo Err_Кнопка9_Click
DoCmd.Close
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
Програмний код форми “Калькуляция”:
Option Compare Database
Private Sub Form_Load()
Цена.Enabled = False
End Sub
Private Sub №_материала_Exit(Cancel As Integer)
If (№_материала.Text <> "") Then
Цена.Enabled = True
End If
End Sub
Private Sub Цена_Click()
Материал_Цена__.SetFocus
If (Материал_Цена__.Text <> "") Then
Dim pr As String
Материал_Цена__.SetFocus
pr = Материал_Цена__.Text
ДИМ_Цена__.SetFocus
ДИМ_Цена__.Locked = False
ДИМ_Цена__.Text = pr
ДИМ_Цена__.Locked = True
Материал_Цена_грн.SetFocus
pr = Материал_Цена_грн.Text
ДИМ_Цена_грн.SetFocus
ДИМ_Цена_грн.Locked = False
ДИМ_Цена_грн.Text = pr
ДИМ_Цена_грн.Locked = True
Цена.Enabled = False
Добавить.SetFocus
End If
End Sub
Private Sub Добавить_Click()
On Error GoTo Err_Добавить_Click
DoCmd.GoToRecord,, acNewRec
Цена.Enabled = False
Exit_Добавить_Click:
Exit Sub
Err_Добавить_Click:
№договора.SetFocus
If (№договора.Text <> "") Then
№_изделия.SetFocus
If (№_изделия.Text <> "") Then
Количество_изделий.SetFocus
If (Количество_изделий.Text <> "") Then
№_материала.SetFocus
If (№_материала.Text <> "") Then
Количество_материала.SetFocus
If (Количество_материала.Text <> "") Then
ДИМ_Цена__.SetFocus
If (ДИМ_Цена__.Text <> "") Then
MsgBox "Данные о записи с такими номерами договора, изделия и материала уже существуют или не могут существовать!!!"
Else
MsgBox "Не все поля заполнены!!! Нажмите кнопку Цена для фиксации значений цен на момент заказа"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Количество материала"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле № материала"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Количество изделий"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле № изделия"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле №договора"
End If
Resume Exit_Добавить_Click
End Sub
Private Sub Клон_Click()
On Error GoTo Err_Клон_Click
Dim nd As Integer
Dim ni As String
Dim ki As String
Dim km As String
Dim dc1 As String
Dim dc2 As String
Dim mc1 As String
Dim mc2 As String
Dim m As Integer
№договора.SetFocus
nd = №договора.Text
№_изделия.SetFocus
ni = №_изделия.Text
Количество_изделий.SetFocus
ki = Количество_изделий.Text
Количество_материала.SetFocus
km = Количество_материала.Text
ДИМ_Цена__.SetFocus
ДИМ_Цена__.Locked = False
dc1 = ДИМ_Цена__.Text
ДИМ_Цена__.Locked = True
ДИМ_Цена_грн.SetFocus
ДИМ_Цена_грн.Locked = False
dc2 = ДИМ_Цена_грн.Text
ДИМ_Цена_грн.Locked = True
Материал_Цена__.SetFocus
Материал_Цена__.Locked = False
mc1 = Материал_Цена__.Text
Материал_Цена__.Locked = True
Материал_Цена_грн.SetFocus
Материал_Цена_грн.Locked = False
mc2 = Материал_Цена_грн.Text
Материал_Цена_грн.Locked = True
№_материала.SetFocus
m = №_материала.Text
DoCmd.GoToRecord,, acNewRec
Exit_Клон_Click:
№договора.SetFocus
№договора.Text = nd
№_материала.SetFocus
№_материала.Text = m
№_изделия.SetFocus
№_изделия.Text = ni
Количество_изделий.SetFocus
Количество_изделий.Text = ki
Количество_материала.SetFocus
Количество_материала.Text = km
ДИМ_Цена__.SetFocus
ДИМ_Цена__.Locked = False
ДИМ_Цена__.Text = dc1
ДИМ_Цена__.Locked = True
ДИМ_Цена_грн.SetFocus
ДИМ_Цена_грн.Locked = False
ДИМ_Цена_грн.Text = dc2
ДИМ_Цена_грн.Locked = True
Материал_Цена__.SetFocus
Материал_Цена__.Locked = False
Материал_Цена__.Text = mc1
Материал_Цена__.Locked = True
Материал_Цена_грн.SetFocus
Материал_Цена_грн.Locked = False
Материал_Цена_грн.Text = mc2
Материал_Цена_грн.Locked = True
Цена.Enabled = True
Exit Sub
Err_Клон_Click:
MsgBox "Не все поля заполнены!!! Такую запись нельзя клонировать" + Err.Description
Resume Exit_Клон_Click
End Sub
Private Sub Кнопка24_Click()
On Error GoTo Err_Кнопка24_Click
DoCmd.Close
Exit_Кнопка24_Click:
Exit Sub
Err_Кнопка24_Click:
MsgBox Err.Description
Resume Exit_Кнопка24_Click
End Sub
Програмний код форми “Материал”:
Option Compare Database
Private Sub ДобавитьМатериал_Click()
On Error GoTo Err_ДобавитьМатериал_Click
DoCmd.GoToRecord,, acNewRec
Exit_ДобавитьМатериал_Click:
Exit Sub
Err_ДобавитьМатериал_Click:
Группа.SetFocus
If (Группа.Text <> "") Then
Название.SetFocus
If (Название.Text <> "") Then
Единица_измерения.SetFocus
If (Единица_измерения.Text <> "") Then
Цена__.SetFocus
If (Цена__.Text <> "") Then
Цена_грн.SetFocus
MsgBox "Не все поля заполнены!!! Введите значение в поле Цена грн"
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Цена $"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Единица измерения"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Название"
End If
Else
MsgBox "Не все поля заполнены!!! Введите значение в поле Группа"
End If
Resume Exit_ДобавитьМатериал_Click
End Sub
Private Sub Кнопка16_Click()
On Error GoTo Err_Кнопка16_Click
DoCmd.Close
Exit_Кнопка16_Click:
Exit Sub
Err_Кнопка16_Click:
MsgBox Err.Description
Resume Exit_Кнопка16_Click
End Sub
Програмний код форми “Отчетность”:
Option Compare Database
Private Sub Form_Load()
Form.Caption = "Отчетность"
End Sub
Private Sub Кнопка2_Click()
On Error GoTo Err_Кнопка2_Click
DoCmd.Close
Exit_Кнопка2_Click:
Exit Sub
Err_Кнопка2_Click:
MsgBox Err.Description
Resume Exit_Кнопка2_Click
End Sub
Private Sub Изделие_Click()
On Error GoTo Err_Изделие_Click
Dim stDocName As String
stDocName = ChrW(1048) & ChrW(1079) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1080) & ChrW(1103)
DoCmd.OpenReport stDocName, acPreview
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(1048) & ChrW(1079) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1080) & ChrW(1103)
DoCmd.OpenReport stDocName, acNormal
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(1052) & ChrW(1072) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1080) & ChrW(1072) & ChrW(1083) & ChrW(1099)
DoCmd.OpenReport stDocName, acPreview
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(1052) & ChrW(1072) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1080) & ChrW(1072) & ChrW(1083) & ChrW(1099)
DoCmd.OpenReport stDocName, acNormal
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(1047) & ChrW(1072) & ChrW(1082) & ChrW(1072) & ChrW(1079) & ChrW(1095) & ChrW(1080) & ChrW(1082) & ChrW(32) & ChrW(1060) & ChrW(1072) & ChrW(1084) & ChrW(1080) & ChrW(1083) & ChrW(1080) & ChrW(1103)
DoCmd.OpenReport stDocName, acNormal
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(1047) & ChrW(1072) & ChrW(1082) & ChrW(1072) & ChrW(1079) & ChrW(1095) & ChrW(1080) & ChrW(1082) & ChrW(32) & ChrW(1060) & ChrW(1048) & ChrW(1054)
DoCmd.OpenReport stDocName, acPreview
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(1047) & ChrW(1072) & ChrW(1082) & ChrW(1072) & ChrW(1079) & ChrW(1095) & ChrW(1080) & ChrW(1082) & ChrW(32) & ChrW(1060) & ChrW(1048) & ChrW(1054)
DoCmd.OpenReport stDocName, acNormal
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(1044) & ChrW(1086) & ChrW(1075) & ChrW(1086) & ChrW(1074) & ChrW(1086) & ChrW(1088) & ChrW(32) & ChrW(1060) & ChrW(1051)
DoCmd.OpenReport stDocName, acPreview
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(1044) & ChrW(1086) & ChrW(1075) & ChrW(1086) & ChrW(1074) & ChrW(1086) & ChrW(1088) & ChrW(32) & ChrW(1060) & ChrW(1051)
DoCmd.OpenReport stDocName, acNormal
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(1047) & ChrW(1072) & ChrW(1082) & ChrW(1072) & ChrW(1079) & ChrW(1095) & ChrW(1080) & ChrW(1082) & ChrW(32) & ChrW(1060) & ChrW(1072) & ChrW(1084) & ChrW(1080) & ChrW(1083) & ChrW(1080) & ChrW(1103)
DoCmd.OpenReport stDocName, acPreview
Exit_Попфз_Click:
Exit Sub
Err_Попфз_Click:
MsgBox Err.Description
Resume Exit_Попфз_Click
End Sub
Коди запитів на SQL
Договор ФЮЛ - запит інформації, необхідної для створення договору:
SELECT Договор.[№ договора], Договор.[Дата заключения], Договор.[Срок к установке], Договор.[Дата окончания гарантии], Заказчик.Фамилия, Заказчик.Имя, Заказчик.Отчество, [Физическое лицо].[Серия паспорта], [Физическое лицо].[№ паспорта], Sum(ДИМ![Цена $]*ДИМ![Количество материала]*ДИМ![Количество изделий]*Изделие!Сложность) AS Выражение1, Sum(ДИМ![Цена грн]*ДИМ![Количество материала]*ДИМ![Количество изделий]*Изделие!Сложность) AS Выражение2, [Юридическое лицо].[Имя фирмы]
FROM Материал INNER JOIN (Изделие INNER JOIN (((Заказчик INNER JOIN (Договор INNER JOIN ДИМ ON Договор.[№ договора] = ДИМ.№договора) ON Заказчик.[Код заказчика] = Договор.[Код заказчика]) LEFT JOIN [Физическое лицо] ON Заказчик.[Код заказчика] = [Физическое лицо].[Код заказчика]) LEFT JOIN [Юридическое лицо] ON Заказчик.[Код заказчика] = [Юридическое лицо].[Код заказчика]) ON Изделие.[№ изделия] = ДИМ.[№ изделия]) ON Материал.[№ материала] = ДИМ.[№ материала]
GROUP BY Договор.[№ договора], Договор.[Дата заключения], Договор.[Срок к установке], Договор.[Дата окончания гарантии], Заказчик.Фамилия, Заказчик.Имя, Заказчик.Отчество, [Физическое лицо].[Серия паспорта], [Физическое лицо].[№ паспорта], [Юридическое лицо].[Имя фирмы]
HAVING (((Договор.[№ договора])=[Запрос]![№ договора]));
Заказчик Фамилия - запит інформації про замовника та його договори, за фамілією замовника:
SELECT Заказчик.[Код заказчика], Заказчик.Фамилия, Заказчик.Имя, Заказчик.Отчество, Заказчик.Адрес, Заказчик.Телефон, Договор.[№ договора], Договор.[Срок к установке], Договор.[Дата окончания гарантии]
FROM Заказчик INNER JOIN Договор ON Заказчик.[Код заказчика] = Договор.[Код заказчика]
WHERE (((Заказчик.Фамилия)=[Запрос]![Фамилия]));
Заказчик ФИО - запит інформації про замовника та його договори, за його Ф.І.П.:
SELECT Заказчик.[Код заказчика], Заказчик.Фамилия, Заказчик.Имя, Заказчик.Отчество, Заказчик.Адрес, Заказчик.Телефон, Договор.[№ договора], Договор.[Срок к установке], Договор.[Дата окончания гарантии]
FROM Заказчик INNER JOIN Договор ON Заказчик.[Код заказчика] = Договор.[Код заказчика]
WHERE (((Заказчик.Фамилия)=[Запрос]![Фамилия]) AND ((Заказчик.Имя)=[Запрос]![Имя]) AND ((Заказчик.Отчество)=[Запрос]![Отчество]));
Изделия - запит інформації про вироби за їх найменуванням:
SELECT Изделие.[№ изделия], Изделие.Наименование, Изделие.Сложность, Изделие.[Общий вид экземпляра]
FROM Изделие
WHERE (((Изделие.Наименование)=[Запрос]![Наименование]));
Материалы - запит інформації про матеріали за групою, до якої вони належать:
SELECT Материал.[№ материала], Материал.Группа, Материал.Название, Материал.[Единица измерения], Материал.[Цена $], Материал.[Цена грн], Материал.[Внешний вид]
FROM Материал
WHERE (((Материал.Группа)=[Запрос]![Группа]));