Главная    Почта    Новости    Каталог    Одноклассники    Погода    Работа    Игры     Рефераты     Карты
  
по Казнету new!
по каталогу
в рефератах

Организация баз данных

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;



Пред.6
скачать работу

Организация баз данных

 

Отправка СМС бесплатно

На правах рекламы


ZERO.kz
 
Модератор сайта RESURS.KZ