Додаток А. Програмний код бази даних для меблевої фірми

4 5 6 7 8 9 10

Програмний код форми “МЕБЕЛЬ”:

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

Фамилия.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

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

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 Серия_паспорта_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

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 (((Заказчик.Фамилия)=[Запрос]![Фамилия]));

Заказчик ФИО - запит інформації про замовника та його договори, за його Ф.І.П.:

FROM Заказчик INNER JOIN Договор ON Заказчик.[Код заказчика] = Договор.[Код заказчика]

WHERE (((Заказчик.Фамилия)=[Запрос]![Фамилия]) AND ((Заказчик.Имя)=[Запрос]![Имя]) AND ((Заказчик.Отчество)=[Запрос]![Отчество]));

Изделия - запит інформації про вироби за їх найменуванням:

SELECT Изделие.[№ изделия], Изделие.Наименование, Изделие.Сложность, Изделие.[Общий вид экземпляра]

FROM Изделие

WHERE (((Изделие.Наименование)=[Запрос]![Наименование]));

Материалы - запит інформації про матеріали за групою, до якої вони належать:

SELECT Материал.[№ материала], Материал.Группа, Материал.Название, Материал.[Единица измерения], Материал.[Цена $], Материал.[Цена грн], Материал.[Внешний вид]

FROM Материал

WHERE (((Материал.Группа)=[Запрос]![Группа]));

Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями: