Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19



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;
Скачали данный реферат: Ажикелямов, Трофим, Авандеев, Nadervel', Авандеев, Beschastnyh, Вива.
Последние просмотренные рефераты на тему: реферат на тему общество, курсовики скачать бесплатно, курсовики скачать бесплатно, темы рефератов по биологии.

Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19

Поделитесь этой записью или добавьте в закладки