|
|
|
Пересчет поля базы даных
|
|||
|---|---|---|---|
|
#18+
Проблемка от новичка. Сори. Есть табличка1 и подчиненая к ней табличка2. После редактирования формы при е закрытии надобно перебрать подчиненные записи из таблички2, чтоб насчитать определенное значение полю из таблички1. Как сделать? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.09.2003, 17:48 |
|
||
|
Пересчет поля базы даных
|
|||
|---|---|---|---|
|
#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, 17:58 |
|
||
|
Пересчет поля базы даных
|
|||
|---|---|---|---|
|
#18+
Немного не так. Есть только форма1 в которй в виде заголовка запись из таблички1 и ниже подчиненые записи из таблички2. Т.е. форма только одна. Проблека в том, что насчитывать(определять значение) надо не просто цифровому полю. Логика сложнее нужно именно проанализировать определенное поле в подчиненых записях таблички2 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.09.2003, 18:08 |
|
||
|
Пересчет поля базы даных
|
|||
|---|---|---|---|
|
#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, 18:25 |
|
||
|
Пересчет поля базы даных
|
|||
|---|---|---|---|
|
#18+
После 'блаблабла надо еще rs.movenext :^) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.09.2003, 20:58 |
|
||
|
Пересчет поля базы даных
|
|||
|---|---|---|---|
|
#18+
Так точно. :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.09.2003, 21:02 |
|
||
|
|

start [/forum/topic.php?fid=45&msg=32272098&tid=1679313]: |
0ms |
get settings: |
8ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
46ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
43ms |
get tp. blocked users: |
1ms |
| others: | 210ms |
| total: | 341ms |

| 0 / 0 |
