
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
22.09.2003, 17:48
|
|||
|---|---|---|---|
|
|||
Пересчет поля базы даных |
|||
|
#18+
Проблемка от новичка. Сори. Есть табличка1 и подчиненая к ней табличка2. После редактирования формы при е закрытии надобно перебрать подчиненные записи из таблички2, чтоб насчитать определенное значение полю из таблички1. Как сделать? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
22.09.2003, 17:58
|
|||
|---|---|---|---|
Пересчет поля базы даных |
|||
|
#18+
Уточняю вопрос: Есть табличка1 и подчиненая к ней табличка2. Есть Форма1, связанная с "табличка1", и подчиненная ей Форма2, связанная с "табличка2". Так? Если да, то можно: 1)В Форма2 на события "После обновления" и "Текущая запись" написать Private Sub Form_AfterUpdate() Me.Parent.ПолеБлаблабла = dSum("ПолеБлабла","Табличка2","Ключ=" & Me.ПолеКлюча) End Sub Private Sub Form_Current() Me.Parent.ПолеБлаблабла = dSum("ПолеБлабла","Табличка2","Ключ=" & Me.ПолеКлюча) End Sub Значение будет пересчитываться при сохранении записи подчиненной формы, переходе с записи на запись, удалении записи. Опционально вместо Form_Current можно обрабатывать Form_Delete. 2)То же, что в пункте (1) + на "после обновления" ПоляБлаблабла Private Sub ПолеБлаблабла_AfterUpdate() DoCmd.RunCommand acSaveRecord End Sub Тогда запись будет сохраняться и сумма пересчитываться сразу по изменении требуемого поля, но при этом нельзя будет отменять внесенные изменения по Escape. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
22.09.2003, 18:08
|
|||
|---|---|---|---|
|
|||
Пересчет поля базы даных |
|||
|
#18+
Немного не так. Есть только форма1 в которй в виде заголовка запись из таблички1 и ниже подчиненые записи из таблички2. Т.е. форма только одна. Проблека в том, что насчитывать(определять значение) надо не просто цифровому полю. Логика сложнее нужно именно проанализировать определенное поле в подчиненых записях таблички2 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
22.09.2003, 18:25
|
|||
|---|---|---|---|
Пересчет поля базы даных |
|||
|
#18+
Ок. Не будем гадать, и, в соответствии с ТЗ при eе закрытии надобно перебрать подчиненные записи из таблички2 Private Sub Form_Close() ' Здесь перебираем подчиненные записи из таблички 2, например, так: dim rs as dao.recordset set rs = currentdb.openrecordset("Табличка2") do until rs.eof 'блаблабла loop rs.close set rs = nothing End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
22.09.2003, 20:58
|
|||
|---|---|---|---|
|
|||
Пересчет поля базы даных |
|||
|
#18+
После 'блаблабла надо еще rs.movenext :^) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
22.09.2003, 21:02
|
|||
|---|---|---|---|
Пересчет поля базы даных |
|||
|
#18+
Так точно. :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=45&tablet=1&tid=1679313]: |
0ms |
get settings: |
8ms |
get forum list: |
18ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
204ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
44ms |
get tp. blocked users: |
1ms |
| others: | 237ms |
| total: | 531ms |

| 0 / 0 |
