обработка выделенных записей
в выделяемой форме - субформе на событие изменение выделения обработчик из общего модуля
1.
2.
Private Sub Form_SelectionChange()
Call isSel
End Sub
в общем модуле процедура определения списка идентификаторов записей источника данных
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
Public ids_plat
Public Sub isSel()
Dim frm As Form
Dim seltop
Dim selh, sh
Dim bm, bmold
On Error Resume Next
ids_plat = ""
' запоминаем текущие параметры субформы.
Set frm = Forms!allplat.p1allplat.Form
bm = Forms!allplat.p1allplat.Form.Bookmark
bmold = Forms!allplat.p1allplat.Form.Bookmark
seltop = Forms!allplat.p1allplat.Form.seltop
selh = Forms!allplat.p1allplat.Form.SelHeight
sh = selh
Do Until sh < 1
' переходим по записям и формируем список идентификаторов источника данных чезез запятую
ids_plat = ids_plat & Forms!allplat.p1allplat.Form.idplat & " , "
sh = sh - 1
bm( 0 ) = bm( 0 ) + 1
Forms!allplat.p1allplat.Form.Bookmark = bm
Loop
' восстановление выделения'
Forms!allplat.p1allplat.Form.Bookmark = bmold
Forms!allplat.p1allplat.Form.seltop = seltop
Forms!allplat.p1allplat.Form.SelHeight = selh
'обрезаем последнюю запятую и получаем результат список идентификаторов'
ids_plat = Left(ids_plat, Len(ids_plat) - 2 )
Debug.Print "ids_plat =" & ids_plat
End Sub
для программы - обработчика, который может быть вызван по таймеру или по другому событию либо из другой формы - обработчика код формирования рекордсета в котором можно как считать сумму так и делать любые действия с выбранными записями.
1.
2.
3.
4.
'ваш запрос
Rs = "SELECT * FROM .... WHERE .... "
'добавляем условие только записи чьи идентификаторы в списке
Rs = Rs & " and ( idplat in ( " & ids_plat & " )) "
пробовал сделать проще, но все время путались записи в всвязи с различными видами сортировок и фильтров формы. Этот способ и был оставлен как самый надежный.
Кстати интересует какие еще аналогичные решения у кого есть...
А.А. Козин
