Гость
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Отловить выбранные строчки в подформе / 10 сообщений из 10, страница 1 из 1
15.11.2017, 18:07
    #39553789
Rivkin Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отловить выбранные строчки в подформе
Привет всем! Сто лет не был на форуме... Соскучился!
А2003
Нет проблемы перебрать выделенные строчки на табличной форме. Но! Мне это нужно при нажатии кнопки на главной форме. Прблема в том, что фокус сразу уходит на главную и выбранные строки перестают быть выбранными. Наверняка, кто-нибудь подобную проблему уже решал. Тыкните! Я что-то не нашел сходу...
...
Рейтинг: 0 / 0
15.11.2017, 18:13
    #39553798
Predeclared
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отловить выбранные строчки в подформе
CommandBarButton
не?
...
Рейтинг: 0 / 0
15.11.2017, 18:20
    #39553808
Rivkin Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отловить выбранные строчки в подформе
Predeclared,

В смысле через меню? Наверное, получится, ты прав, но не охота огород городить. Для клиента не будет это интуитивным действием...
...
Рейтинг: 0 / 0
15.11.2017, 19:13
    #39553842
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отловить выбранные строчки в подформе
Запоминать SelTop и SelHeight подформы в процедуре OnExit контрола-контейнера подформы.
...
Рейтинг: 0 / 0
16.11.2017, 09:47
    #39554076
Rivkin Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отловить выбранные строчки в подформе
__MichelleЗапоминать SelTop и SelHeight подформы в процедуре OnExit контрола-контейнера подформы.
Пытался... Но .SelHeight = 0 уже...
Придется, видимо, ловить на мышке. Так не хочется...
...
Рейтинг: 0 / 0
16.11.2017, 11:04
    #39554147
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отловить выбранные строчки в подформе
Rivkin Dmitry,
тут понравилась идея 1666380
...
Рейтинг: 0 / 0
16.11.2017, 11:29
    #39554170
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отловить выбранные строчки в подформе
Rivkin Dmitry__MichelleЗапоминать SelTop и SelHeight подформы в процедуре OnExit контрола-контейнера подформы.
Пытался... Но .SelHeight = 0 уже...
Придется, видимо, ловить на мышке. Так не хочется...А у меня получается.
Проверено в Ac2000 и Ac2007.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
' В основной форме:
Option Compare Database
Option Explicit
Dim ST As Long, _
    SH As Long

Private Sub Внедренный0_Exit(Cancel As Integer)
 ST = Внедренный0.Form.SelTop
 SH = Внедренный0.Form.SelHeight
End Sub

Private Sub Кнопка2_Click()
 Debug.Print ST, SH
End Sub

' В Immediate после нажатия Кнопка2 (в подформе выбраны записи с 15-ой по 26-ю вкл.):
SelTop        15           SelHeight      12
...
Рейтинг: 0 / 0
16.11.2017, 11:32
    #39554175
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отловить выбранные строчки в подформе
Поправка:
Код: vbnet
1.
2.
3.
Private Sub Кнопка2_Click()
 Debug.Print "SelTop", ST, "SelHeight", SH
End Sub
...
Рейтинг: 0 / 0
16.11.2017, 13:09
    #39554286
Rivkin Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отловить выбранные строчки в подформе
guest_rusimportRivkin Dmitry,
тут понравилась идея 1666380

Супер! Получается. Сам бы не додумался

автор__Michelle
Спасибо за помощь, но не идет у меня так. Я еще до вопроса это проверял и после твоего ответа проверил. А2003. Может быть в этом дело?
...
Рейтинг: 0 / 0
16.11.2017, 13:43
    #39554317
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отловить выбранные строчки в подформе
Rivkin Dmitryавтор__Michelle
Спасибо за помощь, но не идет у меня так. Я еще до вопроса это проверял и после твоего ответа проверил.
А2003. Может быть в этом дело?В 2000 и 2007 идет.
На след. неделе смогу проверить в 2003. Просто для коллекции.

А другой вариант тоже понравился.
В основном тем, что выделение в подформе не исчезает. Получается, конечно, наглядней.
Но с OnExit тоже можно этого добиться.
В процедуру для OnExit добавить
Внедренный0.Form.Painting = False
А в процедуру нажатия кнопки добавить
Внедренный0.Form.SelTop = ST
Внедренный0.Form.SelHeight = SH
Внедренный0.Form.Painting = True
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Отловить выбранные строчки в подформе / 10 сообщений из 10, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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