[Ст] = sm = DCount ("[Кількість]", " ; [ВиручкаОтЗаказчіка] ")! [Головна]! [Кількість] = s = DSum (" [Вартість] "," [ВиручкаФабрікі] ")! [Головна]! [РФабрікі] = tIfSub
Далі заходимо в властивості полів В«ПрізвищеВ», В«Дата1В» і В«Дата2В» на вкладці Події з подією Після оновлення пов'язуємо виконання наступної процедури:
Private Sub Дата1_AfterUpdate ()
ВиручкаSub
Тепер після оновлення поля з прізвищем співробітника або одного з полів з датами перераховуватиметься і відображатися у відповідних полях кількість проданих виробів обраному нами в полі зі списком замовнику, вартість цих виробів і результат роботи кондитерської фабрики.
Сімейство MS ACCESS
Крім об'єктів типу даних MS ACCESS передбачає об'єкти доступу до даних (DAO. - верхній рівень моделі DAO-колекція, що містить всі сеанси роботи користувачів-сеанс роботи, містить всі відкриті бази даних. Підтримує захист на рівні користувачів - представляє відкриту базу даних-всі відкриті в Workspace бази даних-сімейство визначень запитів-визначення запиту-запису в таблиці або отримані в результаті виконання запиту
Для переміщення по записах використовуються методи об'єкта типу Recordset.
MoveFifstПеремещеніе на першу запісьMoveLastПеремещеніе на останню запісьMoveNextПеремещеніе на наступний запис
На формі створимо поле зі списком В«КондВ». У ньому ми будемо вибирати яке - або кондитерський виріб і поля В«КількістьВ» для виведення інформації про кількість продажів даного кондитерського виробу, В«СтоїмоВ», для виведення ціни вибраного в полі зі списком кондитерського виробу. Будемо використовувати програму Visual Basic і об'єкти доступу до даних. Загалом модулі створюємо процедуру NG і ND. p align="justify"> Процедура NG:
Public Sub NG () s As Singledbs As Databaserst As Recordsetdbs = CurrentDbrst = dbs.OpenRecordset ("ЗаказаноНаФабріке"). MoveFirstUntil rst.EOF
If rst! [КодІзделія] = Val (Forms! [ІтогоПоЗаказам]! [Конд])
s = s + rst! КолічествIf.Close! ІтогоПоЗаказам! Кількість = s.Closedbs = NothingSub
У цій процедурі за допомогою змінної rst проглядаються всі записи з таблиці В«ЗаказаноНаФабрікеВ». У вікні властивостей поля зі списком В«КондітерскіеІзделіяВ» подією В«Після оновленняВ» слід зіставити виконання процедури NG (). p align="justify"> Процедура ND: Sub ND () f As Singledbs As Databaserst As Recordsetdbs = CurrentDbrst = dbs.OpenRecordset ("КондітерскіеІзделія"). MoveFirstUntil rst.EOF
If rst! [КодІзделія] = Val (Forms! [ІтогоПоЗаказам]! [Конд])
f = f + rst! ЦенаІзделіяIf.MoveNext! ІтогоПоЗаказам! Стоїмо = f.Closedbs = NothingSub
У цій процедурі за допомогою змінн...
