Создание информационной модели (стр. 4 из 4)

Exit_Кнопка18_Click:

Exit Sub

Err_Кнопка18_Click:

MsgBox Err.Description

Resume Exit_Кнопка18_Click

End Sub

Private Sub Кнопка20_Click()

On Error GoTo Err_Кнопка20_Click

Dim stDocName As String

stDocName = "Запрос2"

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка20_Click:

Exit Sub

Err_Кнопка20_Click:

MsgBox Err.Description

Resume Exit_Кнопка20_Click

End Sub

Private Sub Кнопка33_Click()

On Error GoTo Err_Кнопка33_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Товары"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка33_Click:

Exit Sub

Err_Кнопка33_Click:

MsgBox Err.Description

Resume Exit_Кнопка33_Click

End Sub

Sub ПолеСоСписком34_AfterUpdate()

' Поиск записи, соответствующей этому элементу управления.

Me.RecordsetClone.FindFirst "[Name_zakaz] = '" & Me![ПолеСоСписком34] & "'"

Me.Bookmark = Me.RecordsetClone.Bookmark

End Sub

Форма “ПОСТАВЩИК”

Option Compare Database

Option Explicit

Private Sub Кнопка18_Click()

On Error GoTo Err_Кнопка18_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Кнопка18_Click:

Exit Sub

Err_Кнопка18_Click:

MsgBox Err.Description

Resume Exit_Кнопка18_Click

End Sub

Private Sub Кнопка20_Click()

On Error GoTo Err_Кнопка20_Click

Dim stDocName As String

stDocName = "Запрос1"

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка20_Click:

Exit Sub

Err_Кнопка20_Click:

MsgBox Err.Description

Resume Exit_Кнопка20_Click

End Sub

Форма “ТОВАР”

Option Compare Database

Option Explicit

Sub ПолеСоСписком18_AfterUpdate()

' Поиск записи, соответствующей этому элементу управления.

Me.RecordsetClone.FindFirst "[Name_tovar] = '" & Me![ПолеСоСписком18] & "'"

Me.Bookmark = Me.RecordsetClone.Bookmark

End Sub

Private Sub Кнопка25_Click()

On Error GoTo Err_Кнопка25_Click

DoCmd.Close

Exit_Кнопка25_Click:

Exit Sub

Err_Кнопка25_Click:

MsgBox Err.Description

Resume Exit_Кнопка25_Click

End Sub

Форма “О ПРОГРАММЕ”

Option Compare Database ' Сортировка базы данных для сравнения строк.

Option Explicit ' Обязательное описание переменных перед применением.

Private Sub Отмена_Click()

' Программа, созданная мастером кнопок.

On Error GoTo Err_Cancel_Click

' Закрытие формы.

DoCmd.Close

Exit_Cancel_Click:

Exit Sub

Err_Cancel_Click:

MsgBox Err.Description

Resume Exit_Cancel_Click

End Sub

Private Sub ОК_Click()

On Error GoTo Err_OK_Click

Dim strMsg As String, strTitle As String

Dim intStyle As Integer

' Если отчет о продажах по годам не был открыт для просмотра или печати, возникает ошибка.

' (Перем. blnOpening имеет значение True, только если для отчета произошло событие Open.)

If Not Reports![Дата].blnOpening Then Err.Raise 0

' Скрытие формы.

Me.Visible = False

Exit_OK_Click:

Exit Sub

Err_OK_Click:

strMsg = "Для использования формы нужно просматривать или печатать отчет 'Продажи по годам' из окна базы данных или конструктора."

intStyle = vbOKOnly

strTitle = "Открытие из отчета"

MsgBox strMsg, intStyle, strTitle

Resume Exit_OK_Click

End Sub

Private Sub Кнопка5_Click()

On Error GoTo Err_Кнопка5_Click

DoCmd.Close

Exit_Кнопка5_Click:

Exit Sub

Err_Кнопка5_Click:

MsgBox Err.Description

Resume Exit_Кнопка5_Click

End Sub

Форма “ПОДЧИНЁННАЯ ФОРМА ТОВАРА”

Option Compare Database

Option Explicit

Private Sub Кнопка22_Click()

On Error GoTo Err_Кнопка22_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Кнопка22_Click:

Exit Sub

Err_Кнопка22_Click:

MsgBox Err.Description

Resume Exit_Кнопка22_Click

End Sub

Private Sub Кнопка23_Click()

On Error GoTo Err_Кнопка23_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Кнопка23_Click:

Exit Sub

Err_Кнопка23_Click:

MsgBox Err.Description

Resume Exit_Кнопка23_Click

End Sub

ЗАПРОС1

SELECT Товары.Name_tovar, Sum(Товары.Cena) AS Sum_Cena, Поставщик.Name_postav, Поставщик.Number_D, Поставщик.Date_Z

FROM Поставщик INNER JOIN Товары ON Поставщик.Key_postav = Товары.Key_tovar

WHERE (((Поставщик.Name_postav)=[Forms]![Поставщик]![Name_postav]))

GROUP BY Товары.Name_tovar, Поставщик.Name_postav, Поставщик.Number_D, Поставщик.Date_Z;

ЗАПРОС2

SELECT Заказчик.Name_zakaz, Заказчик.Adres_zakaz, Заказчик.Number_N, Заказчик.Date_N, Товары.Name_tovar, Товары.Srok_god, Товары.Ves_b, Товары.Ves_n, Товары.Cena, Товары.Date

FROM [Заказчик] INNER JOIN Товары ON Заказчик.Name_tov = Товары.Name_tovar

WHERE (((Заказчик.Name_tov)=[Forms]![Заказчик1]![Name_tov]))

GROUP BY Заказчик.Name_zakaz, Заказчик.Adres_zakaz, Заказчик.Number_N, Заказчик.Date_N, Товары.Name_tovar, Товары.Srok_god, Товары.Ves_b, Товары.Ves_n, Товары.Cena, Товары.Date;