Организация баз данных
e = 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;
| | скачать работу |
Организация баз данных |