ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / определение идентификаторов выделенных записей
19 сообщений из 19, страница 1 из 1
определение идентификаторов выделенных записей
    #32321766
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
в одной форме выделяем записи

во второй кодом нужно получить значения полей - идентификаторов выделенных записей.

хотелось бы чтобы правильно работало при выделеннии строк сверху вниз и снизу вверх

если кто такое делал - поделитесь пожайлуста.

такая зараза работает неправильно при выделении снизу вверх так как отсчет производится от текущей записи а при выделении снизу вверх текущая - последняя


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
bm = Frm.Bookmark
bmold = Frm.Bookmark
seltop = Frm.seltop
selh = Frm.SelHeight
sh = selh

Do Until sh <  1 
' переходим по записям и формируем список идентификаторов источника данных чезез запятую'
ids_plat = ids_plat & Frm.idplat &  ", " 
sh = sh -  1 
bm( 0 ) = bm( 0 ) +  1 
Frm.Bookmark = bm
Loop

'восстановление выделения'
Frm.Bookmark = bmold
Frm.seltop = seltop
Frm.SelHeight = selh

'обрезаем последнюю запятую и получаем результат список идентификаторов'
ids_plat = Left(ids_plat, Len(ids_plat) -  2 )
...
Рейтинг: 0 / 0
12.11.2003, 16:13
| Ответить | Цитировать | Написать  
определение идентификаторов выделенных записей
    #32321800
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
incold
Участник
Тут я делал что-то похожее, там же ссылка ХТ на программку
...
Рейтинг: 0 / 0
12.11.2003, 16:25
| Ответить | Цитировать | Написать  
определение идентификаторов выделенных записей
    #32321831
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
2 incod
насколько я понял из ссылки ни у кого так и не получилось обойтись без чекбоксов?

на кой тогда
Frm.seltop
Frm.SelHeight

c выделением быстрее чем чекбоксы ставить ...

мой юзер хочет именно выделение - много данных (десятки тысяч записей)
...
Рейтинг: 0 / 0
12.11.2003, 16:39
| Ответить | Цитировать | Написать  
определение идентификаторов выделенных записей
    #32321849
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
incold
Участник
Я вообще отказался от этой затеи...точнее отложил на время
Про других не знаю.

Интересно, а если среди выделенных записей, одна (две, несколько) не нужны и находятся посредине?
Пока постановки задачи такой нет, но аппетит приходит во время еды - мало ли чего еще захочет юзер...
...
Рейтинг: 0 / 0
12.11.2003, 16:44
| Ответить | Цитировать | Написать  
определение идентификаторов выделенных записей
    #32321865
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
в моем случае рассматривается только ситуация когда нужные записи идут подряд
а для того чтобы они шли подряд - сортировка.
...
Рейтинг: 0 / 0
12.11.2003, 16:49
| Ответить | Цитировать | Написать  
определение идентификаторов выделенных записей
    #32321875
CtrlAlt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CtrlAlt
Участник
Попробуй так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Set rst = frm.RecordsetClone

rst.MoveFirst
rst.Move frm.SelTop -  1 
For i =  1  To frm.SelHeight
    ids_plat = ids_plat & rst( "idplat" ) &  ", " 

rst.MoveNext
Next i

ids_plat = Left(ids_plat, Len(ids_plat) -  2 )
...
Рейтинг: 0 / 0
12.11.2003, 16:53
| Ответить | Цитировать | Написать  
определение идентификаторов выделенных записей
    #32321908
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
2 CtrlAlt

сейчас попробую. нужно проверить как себя будет вести при использовании сортировки / фильтров в форме
...
Рейтинг: 0 / 0
12.11.2003, 17:08
| Ответить | Цитировать | Написать  
определение идентификаторов выделенных записей
    #32321939
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
2 CtrlAlt

твой вариант ошибается если в форме используется фильтр
...
Рейтинг: 0 / 0
12.11.2003, 17:30
| Ответить | Цитировать | Написать  
определение идентификаторов выделенных записей
    #32321946
CtrlAlt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CtrlAlt
Участник
А у меня вроде работает с фильтром. И с сортировками.
...
Рейтинг: 0 / 0
12.11.2003, 17:33
| Ответить | Цитировать | Написать  
определение идентификаторов выделенных записей
    #32321969
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
у меня access 2002 sp2, ADP

сортировки и фильтры не влияют на клон рекордсета

добавил :

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
If frm.FilterOn Then
rst.Filter = Replace(frm.Filter, frm.NAME &  "." ,  "", , , vbTextCompare)
Else
rst.Filter = "  "
End If

If frm.OrderByOn Then
rst.Sort = frm.OrderBy
Else
rst.Sort = " "
End If


пока все пучком, но ищу новые гадости ))
...
Рейтинг: 0 / 0
12.11.2003, 17:45
| Ответить | Цитировать | Написать  
определение идентификаторов выделенных записей
    #32321979
CtrlAlt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CtrlAlt
Участник
Access 97, mdb. По-всякому попробовал работает. Наверно из-за ADP RecordsetClone не так работает. Проверить не могу :(
...
Рейтинг: 0 / 0
12.11.2003, 17:52
| Ответить | Цитировать | Написать  
определение идентификаторов выделенных записей
    #32331818
Фотография Varan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Varan
Участник
"Access 97, mdb. По-всякому попробовал работает"(CtrlAlt)
Работает какой вариант?
...
Рейтинг: 0 / 0
21.11.2003, 17:26
| Ответить | Цитировать | Написать  
определение идентификаторов выделенных записей
    #32331847
Хам трамвайный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хам трамвайный
Участник
вот код
который считает
сумму по выделенным ячейкам
может пригодится

Dim rst As DAO.Recordset, summa
Dim i As Long
If Me.Form.SelHeight > 0 Then
Set rst = Me.RecordsetClone
summa = 0
rst.MoveFirst
rst.Move Me.Form.SelTop - 1
For i = 1 To Me.Form.SelHeight
summa = summa + Nz(rst("êîä"), 0)
rst.MoveNext
Next
Me.Parent.Ñóììà = summa
rst.Close
Set rst = Nothing
End If
...
Рейтинг: 0 / 0
21.11.2003, 18:00
| Ответить | Цитировать | Написать  
определение идентификаторов выделенных записей
    #32331860
Фотография Varan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Varan
Участник
Чего-то я не понял, чего там выше люди говорили.
У меня такая проблема, мне тоже надо прочитать идентификаторы выделенных строк. Как только я нажимаю кнопку, которая должна читать эти selTop,selHeihgt,selWidth,selLeft, выделение, естественно, пропадает и debug.print MyForm.SelHeight возвращает 0, соответственно я не знаю, до какого места читать рекордсет :-(
...
Рейтинг: 0 / 0
21.11.2003, 18:11
| Ответить | Цитировать | Написать  
определение идентификаторов выделенных записей
    #32331876
Фотография Varan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Varan
Участник
Надо прочитать идентификаторы выделенны записей в подчиненной форме, хорошо бы сохранять параметры выделения по событию "выделение", но такого нет, а на какое ставить - не понятно.
...
Рейтинг: 0 / 0
21.11.2003, 18:28
| Ответить | Цитировать | Написать  
определение идентификаторов выделенных записей
    #32331892
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
а ежели сделать битовое поле и через него помечать нужные записи?
причем это можно сделать и разными цветами... менять цвет выделения в зависимости от какого -либо параметра в строке?

исполнимый

чем не вариант
...
Рейтинг: 0 / 0
21.11.2003, 18:42
| Ответить | Цитировать | Написать  
определение идентификаторов выделенных записей
    #32331915
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
>Чего-то я не понял, чего там выше люди говорили.
У меня такая проблема, мне тоже надо прочитать идентификаторы выделенных строк. Как только я нажимаю кнопку, которая должна читать эти selTop,selHeihgt,selWidth,selLeft, выделение, естественно, пропадает и debug.print MyForm.SelHeight возвращает 0, соответственно я не знаю, до какого места читать рекордсет :-(
-------------------------------------------------------------------

все просто: обрати внимание что когда выбираешь меню на тулбаре - выделение остается...

делаешь свой тулбар с вызовом формы далнейших действий с выделением
...
Рейтинг: 0 / 0
21.11.2003, 19:05
| Ответить | Цитировать | Написать  
определение идентификаторов выделенных записей
    #32331943
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
"Access 97, mdb. По-всякому попробовал работает"(CtrlAltDel)
Работает какой вариант?
...
Рейтинг: 0 / 0
21.11.2003, 19:49
| Ответить | Цитировать | Написать  
определение идентификаторов выделенных записей
    #32331953
Фотография Varan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Varan
Участник
АлексейК , Я по-другому выкрутился. Подчиненные формы ловят событие нажатие определенной клавиши, управление передается вобщий модуль и там делается все, что надо.
...
Рейтинг: 0 / 0
21.11.2003, 20:05
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / определение идентификаторов выделенных записей
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32321800&tid=1678093]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 55ms
get topic data:
 11ms
get forum data:
 4ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 239ms
total:  398ms
созд. / загр.: 398ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]